Change data type

dalesteam · Jun 13, 2023 · d41510a · d41510a
1 parent a065271
commit d41510a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/modmpi.f90 b/src/modmpi.f90
@@ -352,7 +352,7 @@ subroutine excjs_real32(a,sx,ex,sy,ey,sz,ez,ih,jh)
                                           , sendw,recvw
   ! Check if the data is on the gpu
 #if defined(_OPENACC)
-  integer :: is_present
+  logical :: is_present
   is_present = acc_is_present(a)
 #endif
 
@@ -477,7 +477,7 @@ subroutine excjs_real64(a,sx,ex,sy,ey,sz,ez,ih,jh)
                                           , sendw,recvw
   ! Check if the data is on the gpu
 #if defined(_OPENACC)
-  integer :: is_present
+  logical :: is_present
   is_present = acc_is_present(a)
 #endif