MODULE DVR_Module
!     nthetmax--maximum number of theta points
!     nchimax--maximum number of chi points
!     nmax=nchimax=maximum number of dvr points kept at each theta
!     nt2max--maximum size of final diagonalization
!     nsfnmax--max number of surface functions that can be saved.
   IMPLICIT NONE
   SAVE
   INTEGER, PARAMETER:: nthetmax=120 !h3 =60
   INTEGER, PARAMETER:: nchimax=80 ! 60
   INTEGER, PARAMETER:: nmax=nchimax
   INTEGER, PARAMETER:: nt2max=nthetmax*nchimax     ! better value 400
   INTEGER, PARAMETER:: nsfnmax=nt2max
END MODULE DVR_Module