Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Decomp_Flag), | intent(in) | :: | decompFlag1 | |||
type(ESMF_Decomp_Flag), | intent(in) | :: | decompFlag2 |
function ESMF_Decomp_FlagNE(decompFlag1, decompFlag2) ! !RETURN VALUE: logical :: ESMF_Decomp_FlagNE ! !ARGUMENTS: type (ESMF_Decomp_Flag), intent(in) :: & decompFlag1, &! Two DecompFlag Statuses to compare for decompFlag2 ! inequality ! !DESCRIPTION: ! This routine compares two ESMF DecompFlag statuses to see if ! they are unequal. ! ! The arguments are: ! \begin{description} ! \item[decompFlag1, decompFlag2] ! Two decomposition flags to compare for inequality ! \end{description} ! !EOPI ESMF_Decomp_FlagNE = (decompFlag1%value /= & decompFlag2%value) end function ESMF_Decomp_FlagNE