Commit 5ac85144 authored by Daniel Wortmann's avatar Daniel Wortmann

Included changes in stars into new type-file

parent f3ecd9e4
......@@ -204,8 +204,7 @@ MODULE m_types_setup
REAL::volint
REAL:: c
END TYPE t_cell
!The stars
!The stars
TYPE t_stars
!max-length of star
REAL :: gmax
......@@ -228,6 +227,8 @@ MODULE m_types_setup
INTEGER :: kq2_fft
INTEGER :: kq3_fft
INTEGER :: kmxq_fft !no of g-vectors in sphere
INTEGER, ALLOCATABLE :: igq_fft(:)
INTEGER, ALLOCATABLE :: igq2_fft(:)
!fft box for xc-pot
INTEGER :: kxc1_fft
......@@ -273,6 +274,8 @@ MODULE m_types_setup
REAL, ALLOCATABLE :: ufft(:)
END TYPE t_stars
TYPE t_oneD
TYPE (od_dim) :: odd
TYPE (od_inp) :: odi
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment