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


Called by

proc~~esmf_fileformatne~~CalledByGraph proc~esmf_fileformatne ESMF_FileFormatNe interface~operator (SLASH=)~4 operator (/=) interface~operator (SLASH=)~4->proc~esmf_fileformatne

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