ESMF_FileModeEq Function

private impure elemental function ESMF_FileModeEq(FileMode1, FileMode2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_FileMode_Flag), intent(in) :: FileMode1
type(ESMF_FileMode_Flag), intent(in) :: FileMode2

Return Value logical


Source Code

impure elemental function ESMF_FileModeEq(FileMode1, FileMode2)

  logical :: ESMF_FileModeEq

  type (ESMF_FileMode_Flag), intent(in) :: FileMode1, FileMode2

  ESMF_FileModeEq = (FileMode1%filemode == FileMode2%filemode)

end function ESMF_FileModeEq