Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_MeshStatus_Flag), | intent(in) | :: | MeshStatus1 | |||
type(ESMF_MeshStatus_Flag), | intent(in) | :: | MeshStatus2 |
function ESMF_MeshStatusNotEqual(MeshStatus1, MeshStatus2) ! !RETURN VALUE: logical :: ESMF_MeshStatusNotEqual ! !ARGUMENTS: type (ESMF_MeshStatus_Flag), intent(in) :: & MeshStatus1, &! Two MeshStatus Statuses to compare for MeshStatus2 ! inequality ! !DESCRIPTION: ! This routine compares two ESMF MeshStatus statuses to see if ! they are unequal. ! ! The arguments are: ! \begin{description} ! \item[MeshStatus1, MeshStatus2] ! Two statuses of MeshStatuss to compare for inequality ! \end{description} ! !EOPI ESMF_MeshStatusNotEqual = (MeshStatus1%meshstatus /= & MeshStatus2%meshstatus) end function ESMF_MeshStatusNotEqual