Module SurfaceJacobi_Module
USE Numeric_Kinds_Module
Implicit None
Save

LOGICAL  :: firstcallj
INTEGER  :: nvib
INTEGER  :: totnjsf, njsf_ir, njsf_a, react_dim, nonreact_dim 
REAL(dp) :: deltas, vasyj , vib_energy_in, vmin

!=========================================================================================
!   A L L O C A T A B L E
REAL(dp),ALLOCATABLE :: svals(:), vib_pot(:), vp(:) , kineticj(:,:)
REAL(dp),ALLOCATABLE :: vib_eig_in(:)!, vib_eig_interp_in(:)

End Module SurfaceJacobi_Module