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

Add a missing acc exit data 

Which I think is a bug introduced in !1945 and sometimes leads to
a crash when using GPUs and EXX.
This commit is contained in:
Victor Yu 2023-06-14 16:11:51 +00:00
parent 6f7a2172ed
commit 517ae3c356
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Modules/recvec.f90
View File

@ -185,7 +185,10 @@
END SUBROUTINE deallocate_gvect END SUBROUTINE deallocate_gvect
SUBROUTINE deallocate_gvect_exx() SUBROUTINE deallocate_gvect_exx()
IF( ALLOCATED( gg ) ) DEALLOCATE( gg ) IF( ALLOCATED( gg ) ) THEN
!$acc exit data delete(gg)
DEALLOCATE( gg )
END IF
IF( ALLOCATED( g ) ) THEN IF( ALLOCATED( g ) ) THEN
!$acc exit data delete(g) !$acc exit data delete(g)
DEALLOCATE( g ) DEALLOCATE( g )