1!************************************************************************* 2Module TypeMod 3!************************************************************************* 4 5 use SysParams, only : double 6 7 Implicit None 8 9 real( double ), parameter :: small = 1.d-32 10 11 Type minVecT 12 real( double ) :: cosine, sine 13 complex( double ), pointer :: StDesc(:) 14 complex( double ), pointer :: Phi(:) 15 complex( double ), pointer :: EPhi(:) 16 end Type minVecT 17 18 Type GridT 19 complex(double), pointer :: V(:,:,:) 20 complex(double), pointer :: Psi(:,:,:) 21 complex(double), pointer :: VPsi(:,:,:) 22 complex(double), pointer :: VPsiG(:,:,:) 23 complex(double), pointer :: Work(:,:,:) 24 integer :: NumGVec,k 25 integer, pointer :: GVecIndex(:,:) 26 integer, pointer :: GInvIndex(:,:,:) 27 integer, pointer :: BasisIndex(:,:) 28 integer, dimension(3) :: Size,Length 29 integer(double) :: PlanF,PlanB 30 real(double) :: fac 31 end Type GridT 32 33end Module TypeMod 34 35