Actual source code: somempifort.F

petsc-3.9.0 2018-04-07
Report Typos and Errors
  1: !
  2: !     Utility routine used to set MPIUNI commonblock
  3: !
  4:       subroutine MPIUNISetCommonBlock()
  5:       implicit none
  6: #include "mpif.h"
  7:       call MPIUNISetFortranBasePointers(MPI_IN_PLACE)
  8:       return
  9:       end