Return a name for the MPI library
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | mpilib |
pure function MPI_TYPE_NAME(mpilib) result(name)
integer, intent(in) :: mpilib
character(len=:), allocatable :: name
select case (mpilib)
case (MPI_TYPE_NONE); name = "none"
case (MPI_TYPE_OPENMPI); name = "OpenMPI"
case (MPI_TYPE_MPICH); name = "MPICH"
case (MPI_TYPE_INTEL); name = "INTELMPI"
case (MPI_TYPE_MSMPI); name = "MS-MPI"
case default; name = "UNKNOWN"
end select
end function MPI_TYPE_NAME