mp_info_op_eq Function

private impure elemental function mp_info_op_eq(info1, info2)

Type Bound

mp_info_type

Arguments

Type IntentOptional Attributes Name
class(mp_info_type), intent(in) :: info1
class(mp_info_type), intent(in) :: info2

Return Value logical


Source Code

      ELEMENTAL IMPURE LOGICAL FUNCTION mp_info_op_eq(info1, info2)
         CLASS(mp_info_type), INTENT(IN) :: info1, info2

#if defined(__parallel) && defined(__USE_MPI_F08)
         mp_info_op_eq = (info1%handle%mpi_val .EQ. info2%handle%mpi_val)
#else
         mp_info_op_eq = (info1%handle .EQ. info2%handle)
#endif

      END FUNCTION mp_info_op_eq