rational_equals Function

public function rational_equals(na, nb)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: na(2)
integer, intent(in) :: nb(2)

Return Value logical


Called by

proc~~rational_equals~~CalledByGraph proc~rational_equals rational_equals proc~esmf_times_equal ESMF_Times_Equal proc~esmf_times_equal->proc~rational_equals proc~test_convert_netcdf_datetime_to_esmf_integer test_convert_NetCDF_DateTime_to_ESMF_integer proc~test_convert_netcdf_datetime_to_esmf_integer->proc~esmf_times_equal proc~test_convert_netcdf_datetime_to_esmf_real test_convert_NetCDF_DateTime_to_ESMF_real proc~test_convert_netcdf_datetime_to_esmf_real->proc~esmf_times_equal

Source Code

   logical function rational_equals(na, nb)
      integer, intent(in) :: na(2)
      integer, intent(in) :: nb(2)

      rational_equals = ( na(1) * nb(2) == na(2) * nb(1) )

   end function rational_equals