From 785cfe63b975677e9b66451fa3383e514d486714 Mon Sep 17 00:00:00 2001 From: ignis Date: Fri, 14 Jun 2019 18:39:26 +0900 Subject: [PATCH] corrected indentation --- code/post.f90 | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/code/post.f90 b/code/post.f90 index df842a3..5395a4f 100644 --- a/code/post.f90 +++ b/code/post.f90 @@ -120,22 +120,22 @@ dispatchloop1: DO fread=startnum,endnum,skipnum - IF ( to_omit(fread) ) THEN + IF ( to_omit(fread) ) THEN - WRITE(*,'(a47,i7,a4,i5,a3,i5)') & - ' Current fullsavenum = ', fread, ' || ', (fread-startnum+1), ' / ', (endnum-startnum+1) + WRITE(*,'(a47,i7,a4,i5,a3,i5)') & + ' Current fullsavenum = ', fread, ' || ', (fread-startnum+1), ' / ', (endnum-startnum+1) - WRITE(*,'(a12,i6,a20,i6)') & - ' Skip. ', omit_t(i,1), ' <= fullsavenum <= ', omit_t(i,2) + WRITE(*,'(a12,i6,a20,i6)') & + ' Skip. ', omit_t(i,1), ' <= fullsavenum <= ', omit_t(i,2) - ELSE + ELSE - countnum=countnum+1 + countnum=countnum+1 - CALL MPI_RECV(id_to, 1, MPI_INTEGER, MPI_ANY_SOURCE, tag, MPI_COMM_TASK, mpi_status, mpi_err) - CALL MPI_SEND(fread, 1, MPI_INTEGER, id_to, tag, MPI_COMM_TASK, mpi_err) + CALL MPI_RECV(id_to, 1, MPI_INTEGER, MPI_ANY_SOURCE, tag, MPI_COMM_TASK, mpi_status, mpi_err) + CALL MPI_SEND(fread, 1, MPI_INTEGER, id_to, tag, MPI_COMM_TASK, mpi_err) - ENDIF + ENDIF ENDDO dispatchloop1