Lines Matching refs:IERROR
105 INTEGER IERROR
126 CALL MPI_INITIALIZED( FLAG, IERROR )
128 IF( IERROR .NE. 0 ) THEN
135 CALL MPI_INIT( IERROR )
137 IF( IERROR .NE. 0 ) THEN
190 INTEGER IERROR
206 CALL MPI_COMM_RANK( MPI_COMM_WORLD, IENV(1), IERROR )
208 IF( IERROR .NE. 0 ) THEN
213 CALL MPI_COMM_SIZE( MPI_COMM_WORLD, IENV(2), IERROR )
215 IF( IERROR .NE. 0 ) THEN
300 INTEGER IERROR, STATUS(MPI_STATUS_SIZE)
345 $ MPI_COMM_WORLD, STATUS, IERROR )
347 IF( IERROR .NE. 0 ) THEN
398 INTEGER IERROR
433 $ MPI_COMM_WORLD, IERROR )
435 IF( IERROR .NE. 0 ) THEN
476 INTEGER IERROR
485 CALL MPI_BARRIER( MPI_COMM_WORLD, IERROR )
487 IF( IERROR .NE. 0 ) THEN
590 INTEGER IERROR local
596 CALL MPI_FINALIZE( IERROR )
598 IF( IERROR .NE. 0 ) THEN
687 INTEGER IERROR local
688 CALL MPI_FINALIZE( IERROR )
690 IF( IERROR .NE. 0 ) THEN