MODULE DVR2_Module
   USE Numeric_Kinds_Module
   USE DVR_Module
   IMPLICIT NONE
   SAVE
!
!     tchi,ttheta--dvr transformation matrices
!     ptchi,pttheta--dvr points
!     whchi,whtheta--here for historical reasons
!     chij,chij1,thetaj--temporary storage for calculation of dvr j^2 matrices
!     antotchi,antothet--dvr j^2 matrices
!
   REAL(KIND=dp) tchi(nchimax,nchimax),         ttheta(nthetmax,nthetmax)
   REAL(KIND=dp) ptchi(nchimax),                pttheta(nthetmax)
   REAL(KIND=dp) whchi(nchimax),                whtheta(nthetmax)
   REAL(KIND=dp) chij(nchimax),                 chij1(nchimax,nchimax),       thetaj(nthetmax)
   REAL(KIND=dp) antotchi(nchimax,nchimax),     antothet(nthetmax,nthetmax)
END MODULE DVR2_Module