Commit faff058a authored by Uliana Alekseeva's avatar Uliana Alekseeva

CPP_GPU preprocessor macro turned into CPP_MANAGED one

parent c7aae36b
......@@ -16,18 +16,10 @@ MODULE m_types_lapw
INTEGER,ALLOCATABLE:: k1(:,:)
INTEGER,ALLOCATABLE:: k2(:,:)
INTEGER,ALLOCATABLE:: k3(:,:)
#ifdef CPP_GPU
INTEGER,ALLOCATABLE,MANAGED:: gvec(:,:,:) !replaces k1,k2,k3
#else
INTEGER,ALLOCATABLE:: gvec(:,:,:) !replaces k1,k2,k3
#endif
INTEGER,ALLOCATABLE CPP_MANAGED:: gvec(:,:,:) !replaces k1,k2,k3
INTEGER,ALLOCATABLE:: kp(:,:)
REAL,ALLOCATABLE::rk(:,:)
#ifdef CPP_GPU
REAL,ALLOCATABLE,MANAGED::gk(:,:,:)
#else
REAL,ALLOCATABLE::gk(:,:,:)
#endif
REAL,ALLOCATABLE CPP_MANAGED::gk(:,:,:)
REAL,ALLOCATABLE::vk(:,:,:)
INTEGER,ALLOCATABLE::matind(:,:)
INTEGER,ALLOCATABLE::index_lo(:,:)
......
......@@ -138,11 +138,7 @@ MODULE m_types_setup
!Calaculate forces for this atom?
LOGICAL,ALLOCATABLE :: l_geo(:)
!MT-Radius (ntype)
#ifdef CPP_GPU
REAL,ALLOCATABLE,MANAGED::rmt(:)
#else
REAL,ALLOCATABLE::rmt(:)
#endif
REAL,ALLOCATABLE CPP_MANAGED::rmt(:)
!log increment(ntype)
REAL,ALLOCATABLE::dx(:)
!vol of MT(ntype)
......@@ -156,11 +152,7 @@ MODULE m_types_setup
!pos of atom (absol) (3,nat)
REAL,ALLOCATABLE::pos(:,:)
!pos of atom (relat)(3,nat)
#ifdef CPP_GPU
REAL,ALLOCATABLE,MANAGED::taual(:,:)
#else
REAL,ALLOCATABLE::taual(:,:)
#endif
REAL,ALLOCATABLE CPP_MANAGED::taual(:,:)
!labels
CHARACTER(LEN=20), ALLOCATABLE :: label(:)
CHARACTER(len=20), ALLOCATABLE :: speciesName(:)
......
......@@ -6,19 +6,11 @@
MODULE m_types_usdus
TYPE t_usdus
#ifdef CPP_GPU
REAL,ALLOCATABLE,DIMENSION(:,:,:),MANAGED :: us
REAL,ALLOCATABLE,DIMENSION(:,:,:),MANAGED :: dus
REAL,ALLOCATABLE,DIMENSION(:,:,:),MANAGED :: uds
REAL,ALLOCATABLE,DIMENSION(:,:,:),MANAGED :: duds !(0:lmaxd,ntype,jspd)
REAL,ALLOCATABLE,DIMENSION(:,:,:),MANAGED :: ddn !(0:lmaxd,ntype,jspd)
#else
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: us
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: dus
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: uds
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: duds !(0:lmaxd,ntype,jspd)
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: ddn !(0:lmaxd,ntype,jspd)
#endif
REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED :: us
REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED :: dus
REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED :: uds
REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED :: duds !(0:lmaxd,ntype,jspd)
REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED :: ddn !(0:lmaxd,ntype,jspd)
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: ulos
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: dulos
REAL,ALLOCATABLE,DIMENSION(:,:,:) :: uulon
......
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