From 30effd53fe5d9854cac7d200e83959798b82268c Mon Sep 17 00:00:00 2001 From: ignis Date: Fri, 14 Jun 2019 22:30:01 +0900 Subject: [PATCH] corrected integer type --- code/post.f90 | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/code/post.f90 b/code/post.f90 index 01336e3..bbbf9eb 100644 --- a/code/post.f90 +++ b/code/post.f90 @@ -102,6 +102,7 @@ SUBROUTINE main_lb INTEGER :: fread,i + INTEGER, PARAMETER :: eofread = -1 LOGICAL :: received CALL READ_INTRO @@ -140,7 +141,7 @@ call SLEEP (1) end do - CALL MPI_SEND(fread, 1, MPI_INTEGER, id_to, tag, MPI_COMM_TASK, mpi_err) + CALL MPI_SEND(fread, 1, MPI_INTEGER8, id_to, tag, MPI_COMM_TASK, mpi_err) ENDIF @@ -155,7 +156,7 @@ call SLEEP (1) end do - CALL MPI_SEND(-1, 1, MPI_INTEGER, id_to, tag, MPI_COMM_TASK, mpi_err) + CALL MPI_SEND(eofread, 1, MPI_INTEGER8, id_to, tag, MPI_COMM_TASK, mpi_err) ENDDO end_of_dispatch1 @@ -164,7 +165,7 @@ fetchloop1: do CALL MPI_SEND(myid, 1, MPI_INTEGER, master, tag, MPI_COMM_TASK, mpi_err) - CALL MPI_RECV(fread, 1, MPI_INTEGER, master, tag, MPI_COMM_TASK, mpi_status, mpi_err) + CALL MPI_RECV(fread, 1, MPI_INTEGER8, master, tag, MPI_COMM_TASK, mpi_status, mpi_err) if (fread < 0) exit @@ -178,7 +179,7 @@ end if - CALL MPI_BCAST(countnum, 1, MPI_INTEGER, master, MPI_COMM_TASK, mpi_err) + CALL MPI_BCAST(countnum, 1, MPI_INTEGER8, master, MPI_COMM_TASK, mpi_err) CALL m_terms_average_pass1(countnum) @@ -210,7 +211,7 @@ call SLEEP (1) end do - CALL MPI_SEND(fread, 1, MPI_INTEGER, id_to, tag, MPI_COMM_TASK, mpi_err) + CALL MPI_SEND(fread, 1, MPI_INTEGER8, id_to, tag, MPI_COMM_TASK, mpi_err) ENDIF @@ -225,7 +226,7 @@ call SLEEP (1) end do - CALL MPI_SEND(-1, 1, MPI_INTEGER, id_to, tag, MPI_COMM_TASK, mpi_err) + CALL MPI_SEND(eofread, 1, MPI_INTEGER8, id_to, tag, MPI_COMM_TASK, mpi_err) ENDDO end_of_dispatch2 @@ -234,7 +235,7 @@ fetchloop2: do CALL MPI_SEND(myid, 1, MPI_INTEGER, master, tag, MPI_COMM_TASK, mpi_err) - CALL MPI_RECV(fread, 1, MPI_INTEGER, master, tag, MPI_COMM_TASK, mpi_status, mpi_err) + CALL MPI_RECV(fread, 1, MPI_INTEGER8, master, tag, MPI_COMM_TASK, mpi_status, mpi_err) if (fread < 0) exit