mpi_serial_stub.F90

Go to the documentation of this file.

! Stubs for MPI datatypes when compiling without MPI
! Adapted from https://github.com/open-mpi/ompi/blob/v3.0.0/ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-types.F90
 
#include "global.h"
 
module mpi_serial_stub_oct_m
  implicit none
 
#ifndef HAVE_MPI
 
  type, bind(c) :: MPI_Status
    integer :: MPI_SOURCE
    integer :: MPI_TAG
    integer :: MPI_ERROR
  end type mpi_status
 
  type, bind(c) :: MPI_Comm
    integer :: MPI_VAL
  end type mpi_comm
 
  type, bind(c) :: MPI_Datatype
    integer :: MPI_VAL
  end type mpi_datatype
 
  type, bind(c) :: MPI_Errhandler
    integer :: MPI_VAL
  end type mpi_errhandler
 
  type, bind(c) :: MPI_File
    integer :: MPI_VAL
  end type mpi_file
 
  type, bind(c) :: MPI_Group
    integer :: MPI_VAL
  end type mpi_group
 
  type, bind(c) :: MPI_Info
    integer :: MPI_VAL
  end type mpi_info
 
  type, bind(c) :: MPI_Message
    integer :: MPI_VAL
  end type mpi_message
 
  type, bind(c) :: MPI_Op
    integer :: MPI_VAL
  end type mpi_op
 
  type, bind(c) :: MPI_Request
    integer :: MPI_VAL
  end type mpi_request
 
  type, bind(c) :: MPI_Session
    integer :: MPI_VAL
  end type mpi_session
 
  type, bind(c) :: MPI_Win
    integer :: MPI_VAL
  end type mpi_win
 
  type(MPI_Comm), parameter       :: MPI_COMM_NULL       = mpi_comm(0)
  type(MPI_Datatype), parameter   :: MPI_DATATYPE_NULL   = mpi_datatype(0)
  type(MPI_Errhandler), parameter :: MPI_ERRHANDLER_NULL = mpi_errhandler(0)
  type(MPI_File), parameter       :: MPI_FILE_NULL       = mpi_file(0)
  type(MPI_Group),  parameter     :: MPI_GROUP_NULL      = mpi_group(0)
  type(MPI_Info), parameter       :: MPI_INFO_NULL       = mpi_info(0)
  type(MPI_Message), parameter    :: MPI_MESSAGE_NULL    = mpi_message(0)
  type(MPI_Op), parameter         :: MPI_OP_NULL         = mpi_op(0)
  type(MPI_Request), parameter    :: MPI_REQUEST_NULL    = mpi_request(0)
  type(MPI_Win), parameter        :: MPI_WIN_NULL        = mpi_win(0)
 
  type(MPI_Datatype), parameter :: MPI_INTEGER           = mpi_datatype(0)
  type(MPI_Datatype), parameter :: MPI_INTEGER8          = mpi_datatype(0)
  type(MPI_Datatype), parameter :: MPI_DOUBLE_PRECISION  = mpi_datatype(0)
  type(MPI_Datatype), parameter :: MPI_DOUBLE_COMPLEX    = mpi_datatype(0)
  type(MPI_Datatype), parameter :: MPI_2DOUBLE_PRECISION = mpi_datatype(0)
  type(MPI_Datatype), parameter :: MPI_CHARACTER         = mpi_datatype(0)
  type(MPI_Datatype), parameter :: MPI_LOGICAL           = mpi_datatype(0)
 
  type(MPI_Op), parameter :: MPI_SUM      = mpi_op(0)
  type(MPI_Op), parameter :: MPI_MINLOC   = mpi_op(0)
  type(MPI_Op), parameter :: MPI_MAXLOC   = mpi_op(0)
  type(MPI_Op), parameter :: MPI_LOR      = mpi_op(0)
  type(MPI_Op), parameter :: MPI_LAND     = mpi_op(0)
  type(MPI_Op), parameter :: MPI_MAX      = mpi_op(0)
  type(MPI_Op), parameter :: MPI_MIN      = mpi_op(0)
  type(MPI_Op), parameter :: MPI_IN_PLACE = mpi_op(0)
 
  interface operator (.EQ.)
    module procedure oct_mpi_comm_op_eq
    module procedure oct_mpi_datatype_op_eq
    module procedure oct_mpi_errhandler_op_eq
    module procedure oct_mpi_file_op_eq
    module procedure oct_mpi_group_op_eq
    module procedure oct_mpi_info_op_eq
    module procedure oct_mpi_message_op_eq
    module procedure oct_mpi_op_op_eq
    module procedure oct_mpi_request_op_eq
    module procedure oct_mpi_win_op_eq
  end interface operator (.EQ.)
 
  interface operator (.NE.)
    module procedure oct_mpi_comm_op_ne
    module procedure oct_mpi_datatype_op_ne
    module procedure oct_mpi_errhandler_op_ne
    module procedure oct_mpi_file_op_ne
    module procedure oct_mpi_group_op_ne
    module procedure oct_mpi_info_op_ne
    module procedure oct_mpi_message_op_ne
    module procedure oct_mpi_op_op_ne
    module procedure oct_mpi_request_op_ne
    module procedure oct_mpi_win_op_ne
  end interface operator (.NE.)
 
contains
 
  ! .EQ. operator
  !-----------------
  logical function oct_mpi_comm_op_eq(a, b)
    type(mpi_comm), intent(in) :: a, b
    oct_mpi_comm_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_comm_op_eq
 
  logical function oct_mpi_datatype_op_eq(a, b)
    type(mpi_datatype), intent(in) :: a, b
    oct_mpi_datatype_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_datatype_op_eq
 
  logical function oct_mpi_errhandler_op_eq(a, b)
    type(MPI_Errhandler), intent(in) :: a, b
    oct_mpi_errhandler_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_errhandler_op_eq
 
  logical function oct_mpi_file_op_eq(a, b)
    type(mpi_file), intent(in) :: a, b
    oct_mpi_file_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_file_op_eq
 
  logical function oct_mpi_group_op_eq(a, b)
    type(mpi_group), intent(in) :: a, b
    oct_mpi_group_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_group_op_eq
 
  logical function oct_mpi_info_op_eq(a, b)
    type(mpi_info), intent(in) :: a, b
    oct_mpi_info_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_info_op_eq
 
  logical function oct_mpi_message_op_eq(a, b)
    type(MPI_Message), intent(in) :: a, b
    oct_mpi_message_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_message_op_eq
 
  logical function oct_mpi_op_op_eq(a, b)
    type(mpi_op), intent(in) :: a, b
    oct_mpi_op_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_op_op_eq
 
  logical function oct_mpi_request_op_eq(a, b)
    type(mpi_request), intent(in) :: a, b
    oct_mpi_request_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_request_op_eq
 
  logical function oct_mpi_win_op_eq(a, b)
    type(mpi_win), intent(in) :: a, b
    oct_mpi_win_op_eq = (a%MPI_VAL .EQ. b%MPI_VAL)
  end function oct_mpi_win_op_eq
 
  ! .NE. operator
  !-----------------
  logical function oct_mpi_comm_op_ne(a, b)
    type(mpi_comm), intent(in) :: a, b
    oct_mpi_comm_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_comm_op_ne
 
  logical function oct_mpi_datatype_op_ne(a, b)
    type(mpi_datatype), intent(in) :: a, b
    oct_mpi_datatype_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_datatype_op_ne
 
  logical function oct_mpi_errhandler_op_ne(a, b)
    type(MPI_Errhandler), intent(in) :: a, b
    oct_mpi_errhandler_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_errhandler_op_ne
 
  logical function oct_mpi_file_op_ne(a, b)
    type(MPI_File), intent(in) :: a, b
    oct_mpi_file_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_file_op_ne
 
  logical function oct_mpi_group_op_ne(a, b)
    type(MPI_Group), intent(in) :: a, b
    oct_mpi_group_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_group_op_ne
 
  logical function oct_mpi_info_op_ne(a, b)
    type(MPI_Info), intent(in) :: a, b
    oct_mpi_info_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_info_op_ne
 
  logical function oct_mpi_message_op_ne(a, b)
    type(MPI_Message), intent(in) :: a, b
    oct_mpi_message_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_message_op_ne
 
  logical function oct_mpi_op_op_ne(a, b)
    type(MPI_Op), intent(in) :: a, b
    oct_mpi_op_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_op_op_ne
 
  logical function oct_mpi_request_op_ne(a, b)
    type(mpi_request), intent(in) :: a, b
    oct_mpi_request_op_ne  = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_request_op_ne
 
  logical function oct_mpi_win_op_ne(a, b)
    type(mpi_win), intent(in) :: a, b
    oct_mpi_win_op_ne = (a%MPI_VAL .NE. b%MPI_VAL)
  end function oct_mpi_win_op_ne
 
#endif
 
end module