cla_get_float_r4 Subroutine

public subroutine cla_get_float_r4(key, float_value)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: key
real(kind=4) :: float_value

Calls

proc~~cla_get_float_r4~~CallsGraph proc~cla_get_float_r4 cla_get_float_r4 proc~cla_fatal cla_fatal proc~cla_get_float_r4->proc~cla_fatal proc~cla_get_char cla_get_char proc~cla_get_float_r4->proc~cla_get_char proc~cla_command_argument_count cla_command_argument_count proc~cla_get_char->proc~cla_command_argument_count proc~cla_get_command_argument cla_get_command_argument proc~cla_get_char->proc~cla_get_command_argument proc~cla_key_arg_match cla_key_arg_match proc~cla_get_char->proc~cla_key_arg_match proc~cla_show cla_show proc~cla_get_char->proc~cla_show proc~cla_str_eq cla_str_eq proc~cla_get_char->proc~cla_str_eq proc~cla_key_arg_match->proc~cla_str_eq proc~cla_show->proc~cla_get_char proc~cla_key_present cla_key_present proc~cla_show->proc~cla_key_present proc~cla_message cla_message proc~cla_show->proc~cla_message proc~cla_key_present->proc~cla_fatal proc~cla_key_present->proc~cla_command_argument_count proc~cla_key_present->proc~cla_get_command_argument proc~cla_key_present->proc~cla_key_arg_match proc~cla_key_present->proc~cla_show

Called by

proc~~cla_get_float_r4~~CalledByGraph proc~cla_get_float_r4 cla_get_float_r4 interface~cla_get cla_get interface~cla_get->proc~cla_get_float_r4 proc~get_cla_gvec_to_jorek get_CLA_gvec_to_jorek proc~get_cla_gvec_to_jorek->interface~cla_get program~gvec GVEC program~gvec->interface~cla_get

Source Code

    subroutine cla_get_float_r4(key,float_value)
      implicit none
      character(len=*)       :: key
      character(len=STRLEN)  :: value
      real(kind=4)           :: float_value

      call cla_get_char(key,value)
      if (index(trim(value),trim(cla_empty)) == 0) read(value,*,err=100)float_value
      return
100   call cla_fatal("Input value not correct type: "//key//":"//value)
    end subroutine cla_get_float_r4