ESMF_FileFormatEq Function

private impure elemental function ESMF_FileFormatEq(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_FileFormatEq(FileFormat1, FileFormat2)

! !RETURN VALUE:
      logical :: ESMF_FileFormatEq

! !ARGUMENTS:

      type (ESMF_FileFormat_Flag), intent(in) :: &
         FileFormat1,      &! Two igrid statuses to compare for
         FileFormat2        ! equality

      ESMF_FileFormatEq = (FileFormat1%fileformat == &
                              FileFormat2%fileformat)

end function ESMF_FileFormatEq