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

improve integration non structured openACC data regions in recvec.f90

This commit is contained in:
Pietro Delugas 2022-04-04 11:43:43 +02:00 committed by Pietro Delugas
parent ee44de5124
commit 73dacd1894
1 changed files with 28 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
Modules/recvec.f90
View File

@ -141,18 +141,31 @@
IF ( ASSOCIATED( gl ) ) DEALLOCATE ( gl )
END IF
!
!$acc exit data delete(eigts1, eigts2, eigts3)
!$acc exit data delete(mill, g)
!
IF( ALLOCATED( gg ) ) DEALLOCATE( gg )
IF( ALLOCATED( g ) ) DEALLOCATE( g )
IF( ALLOCATED( g ) ) THEN
!$acc exit data delete(g)
DEALLOCATE( g )
END IF
IF( ALLOCATED( mill_g ) ) DEALLOCATE( mill_g )
IF( ALLOCATED( mill ) ) DEALLOCATE( mill )
IF( ALLOCATED( mill ) ) THEN
!$acc exit data delete(mill)
DEALLOCATE( mill )
END IF
IF( ALLOCATED( igtongl )) DEALLOCATE( igtongl )
IF( ALLOCATED( ig_l2g ) ) DEALLOCATE( ig_l2g )
IF( ALLOCATED( eigts1 ) ) DEALLOCATE( eigts1 )
IF( ALLOCATED( eigts2 ) ) DEALLOCATE( eigts2 )
IF( ALLOCATED( eigts3 ) ) DEALLOCATE( eigts3 )
IF( ALLOCATED( eigts1 ) ) THEN
!$acc exit data delete(eigts1)
DEALLOCATE( eigts1 )
END IF
IF( ALLOCATED( eigts2 ) ) THEN
!$acc exit data delete(eigts2)
DEALLOCATE( eigts2 )
END IF
IF( ALLOCATED( eigts3 ) ) THEN
!$acc exit data delete(eigts3)
DEALLOCATE( eigts3 )
END IF
!
! GPU vars
IF (use_gpu) THEN
@ -170,8 +183,14 @@
SUBROUTINE deallocate_gvect_exx()
IF( ALLOCATED( gg ) ) DEALLOCATE( gg )
IF( ALLOCATED( g ) ) DEALLOCATE( g )
IF( ALLOCATED( mill ) ) DEALLOCATE( mill )
IF( ALLOCATED( g ) ) THEN
!$acc exit data delete(g)
DEALLOCATE( g )
END IF
IF( ALLOCATED( mill ) ) THEN
!$acc exit data delete(mill)
DEALLOCATE( mill )
END IF
IF( ALLOCATED( igtongl ) ) DEALLOCATE( igtongl )
IF( ALLOCATED( ig_l2g ) ) DEALLOCATE( ig_l2g )
END SUBROUTINE deallocate_gvect_exx