M3_mpif.f90

!!$****************************************************************************
!!$  M3:  M3_mpif.f90                                        *
!!$                                                                           *
!!$  Version 1.0 September 2004                                               *
!!$                                                                           *
!!$  Copyright (C) 2004  C.M. Cantalupo & G. de Gasperis                      *
!!$                                                                           *
!!$  This program is free software; you can redistribute it and/or modify     *
!!$  it under the terms of the GNU General Public License as published by     *
!!$  the Free Software Foundation; either version 2 of the License, or        *
!!$  (at your option) any later version.                                      *
!!$                                                                           *
!!$  This program is distributed in the hope that it will be useful,          *
!!$  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
!!$  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            *
!!$  GNU General Public License for more details.                             *
!!$                                                                           *
!!$  You should have received a copy of the GNU General Public License        *
!!$  along with this program; if not, write to the Free Software              *
!!$  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA *
!!$                                                                           *
!!$****************************************************************************

MODULE M3_mpif

!!$ 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
!!$

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_readMPI
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_readBinMPI
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_Bcast
  END INTERFACE

END MODULE M3_mpif

---