my_xor Function

private function my_xor(a, b)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: a
logical, intent(in) :: b

Return Value logical


Called by

proc~~my_xor~~CalledByGraph proc~my_xor my_xor proc~esmf_regridstore ESMF_RegridStore proc~esmf_regridstore->proc~my_xor proc~esmf_fieldregridstorenx ESMF_FieldRegridStoreNX proc~esmf_fieldregridstorenx->proc~esmf_regridstore proc~esmf_fieldregridstorex ESMF_FieldRegridStoreX proc~esmf_fieldregridstorex->proc~esmf_regridstore interface~esmf_fieldregridstore ESMF_FieldRegridStore interface~esmf_fieldregridstore->proc~esmf_fieldregridstorenx interface~esmf_fieldregridstore->proc~esmf_fieldregridstorex

Source Code

function my_xor(a, b)
    logical                                       :: my_xor
    logical,                intent(in)         :: a
    logical,                intent(in)         :: b

    if (a .and. b) then
      my_xor = .false.
      return
    endif

    if (.not.(a .or. b)) then
      my_xor = .false.
      return
    endif

    my_xor = .true.

end function my_xor