-:    0:Source:setbotf.f
        -:    0:Graph:setbotf.gcno
        -:    0:Data:-
        -:    0:Runs:0
        -:    0:Programs:0
        -:    1:C     -*- Mode: Fortran; -*-
        -:    2:C
        -:    3:C     (C) 2001 by Argonne National Laboratory.
        -:    4:C     See COPYRIGHT in top-level directory.
        -:    5:C

    #####:    6:       subroutine mpirinitf( )
        -:    7:       integer mpi_status_size
        -:    8:       parameter (mpi_status_size=5)
        -:    9:C      BOTTOM, IN_PLACE, STATUS_IGNORE, STATUSES_IGNORE, ERRCODES_IGNORE
        -:   10:       integer a, b, c(mpi_status_size), d(mpi_status_size,1), e(1)
        -:   11:       character*1 f(1,1), MPI_ARGV_NULL(1)
        -:   12:       common /MPIPRIV1/ a, b, c
        -:   13:       common /MPIPRIV2/ d, e
        -:   14:       save /MPIPRIV1/, /MPIPRIV2/
        -:   15:C      MPI_ARGVS_NULL 
        -:   16:C      (Fortran requires character data in a separate common block)
        -:   17:       common /MPIPRIVC/ f, MPI_ARGV_NULL
        -:   18:       save /MPIPRIVC/       
    #####:   19:       call mpirinitc( a, b, c, d, e, f )
    #####:   20:       call mpirinitc2( MPI_ARGV_NULL )
        -:   21:       return
        -:   22:       end