MODULE jacobi_Module
Save
LOGICAL jacobi
INTEGER, ALLOCATABLE :: qsf(:,:)   ! quantum indexes
INTEGER, ALLOCATABLE :: qnh(:,:)   ! for jacobi wave functions
END MODULE jacobi_Module