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


Called by

proc~~esmf_filemodeeq~~CalledByGraph proc~esmf_filemodeeq ESMF_FileModeEq interface~operator (==)~4 operator (==) interface~operator (==)~4->proc~esmf_filemodeeq

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