From d41510a1eb4d6d0eebd86bac4c6608ea6c07a6de Mon Sep 17 00:00:00 2001 From: Caspar Jungbacker Date: Tue, 13 Jun 2023 15:36:47 +0200 Subject: [PATCH] Change data type --- src/modmpi.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/modmpi.f90 b/src/modmpi.f90 index 74193329..c4347a18 100644 --- 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