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