M3_mpi_wrappers.f90

!!$ there should be no need to include mpif.h since the mpi structure definitions
!!$ are default integer
!!$
!!$ if the mpi library implement the f90 interface AND it defines its own datatypes
!!$ maybe useful to USE the mpi module and use the right KIND in the
!!$ declarations of theComm and root
!!$


FUNCTION m3_f90_runconfig_readMPI( runconfig, runconfigfilename, runtype, theComm )

!!$ If the MPI implementation support the use of f90 module:
!!$    USE mpi 

  USE M3_typesf
  IMPLICIT NONE
  
  INTEGER(KIND=int4)::m3_f90_runconfig_readMPI
  TYPE(m3_f90_runconfig), INTENT(OUT)::runConfig
  CHARACTER(LEN=*), INTENT(IN)::runconfigfilename
  INTEGER(KIND=int4), INTENT(IN)::runtype
  INTEGER, INTENT(IN)::theComm

  m3_f90_runconfig_readMPI = m3_f77_runconfig_readMPI( runconfig, runconfigfilename, runtype, theComm )
END FUNCTION m3_f90_runconfig_readMPI

FUNCTION m3_f90_runconfig_readBinMPI( runconfig, runconfigfilename, runtype, theComm )

!!$ If the MPI implementation support the use of f90 module:
!!$    USE mpi 

  USE M3_typesf
  IMPLICIT NONE

  INTEGER(KIND=int4)::m3_f90_runconfig_readBinMPI
  TYPE(m3_f90_runconfig), INTENT(OUT)::runConfig
  CHARACTER(LEN=*), INTENT(IN)::runconfigfilename
  INTEGER(KIND=int4), INTENT(IN)::runtype
  INTEGER, INTENT(IN)::theComm

  m3_f90_runconfig_readBinMPI = m3_f77_runconfig_readBinMPI( runconfig, runconfigfilename, runtype, theComm )
END FUNCTION m3_f90_runconfig_readBinMPI

FUNCTION m3_f90_runconfig_Bcast( runconfig, root , theComm )

!!$ If the MPI implementation support the use of f90 module:
!!$    USE mpi 

  USE M3_typesf
  IMPLICIT NONE
  
  INTEGER(KIND=int4)::m3_f90_runconfig_bcast
  TYPE(m3_f90_runconfig), INTENT(OUT)::runConfig
  INTEGER, INTENT(IN)::root
  INTEGER, INTENT(IN)::theComm

  m3_f90_runconfig_Bcast = m3_f77_runconfig_Bcast( runconfig, root , theComm )
END FUNCTION m3_f90_runconfig_Bcast

---