Commit 48a06dd3 authored by Uliana Alekseeva's avatar Uliana Alekseeva

MANAGED attribute added

parent f74a8683
......@@ -27,7 +27,11 @@ CONTAINS
TYPE(t_atoms),INTENT(IN) :: atoms
TYPE(t_lapw),INTENT(IN) :: lapw
TYPE(t_tlmplm),INTENT(IN) :: td
#if defined CPP_GPU
REAL,MANAGED,INTENT(IN) :: fj(:,:,:,:),gj(:,:,:,:)
#else
REAL,INTENT(IN) :: fj(:,0:,:,:),gj(:,0:,:,:)
#endif
! .. Scalar Arguments ..
INTEGER, INTENT (IN) :: n
COMPLEX :: chi_one,chi(2,2)
......
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