mirror of https://gitlab.com/QEF/q-e.git
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:
parent
6f7a2172ed
commit
517ae3c356
|
@ -185,7 +185,10 @@
|
|||
END SUBROUTINE deallocate_gvect
|
||||
|
||||
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
|
||||
!$acc exit data delete(g)
|
||||
DEALLOCATE( g )
|
||||
|
|
Loading…
Reference in New Issue