scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Ooops ....

This commit is contained in:
Paolo Giannozzi 2024-04-18 23:08:32 +02:00
parent f5b48785ea
commit 119f7c8c41
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
upflib/atwfc_mod.f90
View File

@ -86,6 +86,7 @@ CONTAINS
END IF
nqx = NINT( qmax/dq + 4)
allocate(tab_atwfc(nqx,nwfcm,nsp))
!$acc enter data create(tab_atwfc)
!
ndm = MAXVAL(msh(1:nsp))
ALLOCATE( aux(ndm), vchi(ndm) )