ESMF_FileModeNe Function

private impure elemental function ESMF_FileModeNe(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_FileModeNe(FileMode1, FileMode2)

  logical :: ESMF_FileModeNe

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

  ESMF_FileModeNe = (FileMode1%filemode /= FileMode2%filemode)

end function ESMF_FileModeNe