ESMF_FileFormatNe Function

private impure elemental function ESMF_FileFormatNe(FileFormat1, FileFormat2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_FileFormat_Flag), intent(in) :: FileFormat1
type(ESMF_FileFormat_Flag), intent(in) :: FileFormat2

Return Value logical


Source Code

 impure elemental function ESMF_FileFormatNe(FileFormat1, FileFormat2)

! !RETURN VALUE:
      logical :: ESMF_FileFormatNe

! !ARGUMENTS:

      type (ESMF_FileFormat_Flag), intent(in) :: &
         FileFormat1,      &! Two FileFormatType Statuses to compare for
         FileFormat2        ! inequality


      ESMF_FileFormatNe = (FileFormat1%fileformat /= &
                                 FileFormat2%fileformat)

end function ESMF_FileFormatNe