Commit 7fc5d205 authored by Matthias Redies's avatar Matthias Redies

cleanup more

parent dea084ba
......@@ -79,9 +79,7 @@ CONTAINS
ENDDO;ENDDO
CALL hsmt(atoms,sym,enpara,isp,input,mpi,noco,nococonv,cell,lapw,ud,td,smat,hmat)
DO i=1,nspins;DO j=1,nspins;if (hmat(1,1)%l_real) THEN
print *,"Trying",i,j
!$acc exit data copyout(hmat(i,j)%data_r,smat(i,j)%data_r)
print*,"copyout:", i,j
ELSE
!$acc exit data copyout(hmat(i,j)%data_c,smat(i,j)%data_c)
ENDIF;ENDDO;ENDDO
......
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