get_converter Subroutine

public subroutine get_converter(conv, from, to, rc)

Arguments

Type IntentOptional Attributes Name
type(Converter), intent(inout) :: conv
character(len=*), intent(in) :: from
character(len=*), intent(in) :: to
integer(kind=ut_status), intent(out), optional :: rc

Calls

proc~~get_converter~~CallsGraph proc~get_converter get_converter none~is_free CptrWrapper%is_free proc~get_converter->none~is_free

Called by

proc~~get_converter~~CalledByGraph proc~get_converter get_converter proc~getfieldunitsconverter GetFieldUnitsConverter proc~getfieldunitsconverter->proc~get_converter proc~initialize~29 ConvertUnitsAction%initialize proc~initialize~29->proc~get_converter proc~test_convert_double test_convert_double proc~test_convert_double->proc~get_converter proc~test_convert_doubles test_convert_doubles proc~test_convert_doubles->proc~get_converter proc~test_convert_float test_convert_float proc~test_convert_float->proc~get_converter proc~test_convert_floats test_convert_floats proc~test_convert_floats->proc~get_converter proc~test_get_converter test_get_converter proc~test_get_converter->proc~get_converter

Source Code

   subroutine get_converter(conv, from, to, rc)
      type(Converter),intent(inout) :: conv
      character(len=*), intent(in) :: from, to
      integer(ut_status), optional, intent(out) :: rc
      integer(ut_status) :: status

      conv = get_converter_function(from, to)
      _ASSERT(.not. conv%is_free(), UTF_CONVERTER_NOT_INITIALIZED)

      _RETURN(UT_SUCCESS)
   end subroutine get_converter