Juan 12/11/2014: add ifdef _OPENACC

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