Lines Matching refs:ierr
19 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
22 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr )
50 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
53 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr )
83 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
86 & MPI_INTEGER, MPI_MAX, MPI_COMM_WORLD, ierr )
123 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
126 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
167 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
170 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
210 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
213 & MPI_INTEGER, MPI_SUM, MPI_COMM_WORLD, ierr)