From 350fe085a844a23786c0b2eb62696a63e433df34 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 12 Nov 2014 16:55:41 +0100
Subject: [PATCH] Juan 12/11/2014: add ifdef _OPENACC
---
SURCOUCHE/mode_device.f90 | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/SURCOUCHE/mode_device.f90 b/SURCOUCHE/mode_device.f90
index 3c5cce64b..5edae35af 100644
--- a/SURCOUCHE/mode_device.f90
+++ b/SURCOUCHE/mode_device.f90
@@ -4,8 +4,10 @@ CONTAINS
SUBROUTINE GET_FROM_DEVICE(PTAB,ZTAB,O_PTAB_ON_DEVICE)
+#ifdef _OPENACC
USE&
OPENACC
+#endif
IMPLICIT NONE
@@ -13,6 +15,7 @@ CONTAINS
REAL, DIMENSION(:,:,:) :: ZTAB
LOGICAL :: O_PTAB_ON_DEVICE
+#ifdef _OPENACC
O_PTAB_ON_DEVICE = acc_is_present(PTAB)
if ( O_PTAB_ON_DEVICE ) then
!$acc data create(ZTAB)
@@ -24,13 +27,19 @@ CONTAINS
else
ZTAB=PTAB
endif
+#else
+ O_PTAB_ON_DEVICE = .FALSE.
+ ZTAB=PTAB
+#endif
END SUBROUTINE GET_FROM_DEVICE
SUBROUTINE PRINT_ON_DEVICE(PTAB,MES)
+#ifdef _OPENACC
USE&
- OPENACC
+ OPENACC
+#endif
IMPLICIT NONE
@@ -38,6 +47,7 @@ CONTAINS
CHARACTER(len=*) :: MES
LOGICAL :: G_PTAB_ON_DEVICE,G_EXEC_ON_DEVICE
+#ifdef _OPENACC
G_PTAB_ON_DEVICE = acc_is_present(PTAB)
G_EXEC_ON_DEVICE = ( acc_get_device_type() <> acc_device_host )
if (G_EXEC_ON_DEVICE) then
@@ -47,7 +57,9 @@ CONTAINS
print*,"ABSENT ::",MES
end if
end if
-
+#else
+ print*,"ABSENT ::",MES
+#endif
END SUBROUTINE PRINT_ON_DEVICE
--
GitLab