bcast_inputs.f:      call MPI_BCAST(ipr, 1, integer_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(inorm, 1, integer_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(itmax, 1, integer_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(dt, 1, dp_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(omega, 1, dp_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(tolrsd, 5, dp_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(nx0, 1, dp_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(ny0, 1, dp_type, root, MPI_COMM_WORLD, ierr)
bcast_inputs.f:      call MPI_BCAST(nz0, 1, dp_type, root, MPI_COMM_WORLD, ierr)
error.f:      call MPI_ALLREDUCE( dummy,
error.f:     >                    MPI_SUM,
error.f:     >                    MPI_COMM_WORLD,
exchange_1.f:      integer STATUS(MPI_STATUS_SIZE)
exchange_1.f:              call MPI_RECV( dum1(1,jst),
exchange_1.f:     >                       MPI_COMM_WORLD,
exchange_1.f:              call MPI_RECV( dum1(1,ist),
exchange_1.f:     >                       MPI_COMM_WORLD,
exchange_1.f:              call MPI_RECV( dum1(1,jst),
exchange_1.f:     >                       MPI_COMM_WORLD,
exchange_1.f:              call MPI_RECV( dum1(1,ist),
exchange_1.f:     >                       MPI_COMM_WORLD,
exchange_1.f:              call MPI_SEND( dum(1,jst), 
exchange_1.f:     >                       MPI_COMM_WORLD, 
exchange_1.f:              call MPI_SEND( dum(1,ist), 
exchange_1.f:     >                       MPI_COMM_WORLD, 
exchange_1.f:              call MPI_SEND( dum(1,jst), 
exchange_1.f:     >                       MPI_COMM_WORLD, 
exchange_1.f:              call MPI_SEND( dum(1,ist), 
exchange_1.f:     >                       MPI_COMM_WORLD, 
exchange_3.f:      integer STATUS(MPI_STATUS_SIZE)
exchange_3.f:          call MPI_IRECV( buf1,
exchange_3.f:     >                    MPI_ANY_SOURCE,
exchange_3.f:     >                    MPI_COMM_WORLD,
exchange_3.f:          call MPI_SEND( buf,
exchange_3.f:     >                   MPI_COMM_WORLD,
exchange_3.f:          call MPI_WAIT( mid, STATUS, IERROR )
exchange_3.f:          call MPI_IRECV( buf1,
exchange_3.f:     >                    MPI_ANY_SOURCE,
exchange_3.f:     >                    MPI_COMM_WORLD,
exchange_3.f:          call MPI_SEND( buf,
exchange_3.f:     >                   MPI_COMM_WORLD,
exchange_3.f:          call MPI_WAIT( mid, STATUS, IERROR )
exchange_3.f:          call MPI_IRECV( buf1,
exchange_3.f:     >                    MPI_ANY_SOURCE,
exchange_3.f:     >                    MPI_COMM_WORLD,
exchange_3.f:          call MPI_SEND( buf,
exchange_3.f:     >                   MPI_COMM_WORLD,
exchange_3.f:          call MPI_WAIT( mid, STATUS, IERROR )
exchange_3.f:          call MPI_IRECV( buf1,
exchange_3.f:     >                    MPI_ANY_SOURCE,
exchange_3.f:     >                    MPI_COMM_WORLD,
exchange_3.f:          call MPI_SEND( buf,
exchange_3.f:     >                   MPI_COMM_WORLD,
exchange_3.f:          call MPI_WAIT( mid, STATUS, IERROR )
exchange_4.f:      integer STATUS(MPI_STATUS_SIZE)
exchange_4.f:        call MPI_IRECV( dum,
exchange_4.f:     >                  MPI_ANY_SOURCE,
exchange_4.f:     >                  MPI_COMM_WORLD,
exchange_4.f:        call MPI_WAIT( msgid3, STATUS, IERROR )
exchange_4.f:        call MPI_SEND( dum,
exchange_4.f:     >                 MPI_COMM_WORLD,
exchange_4.f:        call MPI_IRECV( dum,
exchange_4.f:     >                  MPI_ANY_SOURCE,
exchange_4.f:     >                  MPI_COMM_WORLD,
exchange_4.f:        call MPI_WAIT( msgid1, STATUS, IERROR )
exchange_4.f:        call MPI_SEND( dum,
exchange_4.f:     >                 MPI_COMM_WORLD,
exchange_5.f:      integer STATUS(MPI_STATUS_SIZE)
exchange_5.f:        call MPI_IRECV( dum,
exchange_5.f:     >                  MPI_ANY_SOURCE,
exchange_5.f:     >                  MPI_COMM_WORLD,
exchange_5.f:        call MPI_WAIT( msgid1, STATUS, IERROR )
exchange_5.f:        call MPI_SEND( dum,
exchange_5.f:     >                 MPI_COMM_WORLD,
exchange_6.f:      integer STATUS(MPI_STATUS_SIZE)
exchange_6.f:        call MPI_IRECV( dum,
exchange_6.f:     >                  MPI_ANY_SOURCE,
exchange_6.f:     >                  MPI_COMM_WORLD,
exchange_6.f:        call MPI_WAIT( msgid3, STATUS, IERROR )
exchange_6.f:        call MPI_SEND( dum,
exchange_6.f:     >                 MPI_COMM_WORLD,
init_comm.f:      call MPI_INIT( IERROR )
init_comm.f:      call MPI_COMM_RANK( MPI_COMM_WORLD,
init_comm.f:      call MPI_COMM_SIZE( MPI_COMM_WORLD,
l2norm.f:      call MPI_ALLREDUCE( dummy,
l2norm.f:     >                    MPI_SUM,
l2norm.f:     >                    MPI_COMM_WORLD,
lu.f:      call mpi_finalize(ierr)
mpifrag.f:        dp_type = MPI_DOUBLE_PRECISION
mpifrag.f:        integer_type = MPI_INTEGER
mpifrag.f:        dc_type = MPI_DOUBLE_COMPLEX
pintgr.f:      call MPI_ALLREDUCE( dummy,
pintgr.f:     >                    MPI_SUM,
pintgr.f:     >                    MPI_COMM_WORLD,
pintgr.f:      call MPI_ALLREDUCE( dummy,
pintgr.f:     >                    MPI_SUM,
pintgr.f:     >                    MPI_COMM_WORLD,
pintgr.f:      call MPI_ALLREDUCE( dummy,
pintgr.f:     >                    MPI_SUM,
pintgr.f:     >                    MPI_COMM_WORLD,
read_input.f:         call MPI_COMM_SIZE(MPI_COMM_WORLD, nnodes, ierror)
read_input.f:            CALL MPI_ABORT( MPI_COMM_WORLD, MPI_ERR_OTHER, IERROR )
read_input.f:            CALL MPI_ABORT( MPI_COMM_WORLD, MPI_ERR_OTHER, IERROR )
ssor.f:      call MPI_BARRIER( MPI_COMM_WORLD, IERROR )
ssor.f:      wtime = MPI_WTIME()
ssor.f:      wtime = MPI_WTIME() - wtime
ssor.f:      call MPI_ALLREDUCE( wtime, 
ssor.f:     >                    MPI_DOUBLE_PRECISION, 
ssor.f:     >                    MPI_MAX, 
ssor.f:     >                    MPI_COMM_WORLD,
subdomain.f:          CALL MPI_ABORT( MPI_COMM_WORLD,
subdomain.f:          CALL MPI_ABORT( MPI_COMM_WORLD,
