float_to_character Function

public function float_to_character(f, format_string) result(res)

Converts a floating-point number to a character string.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: f

input floating-point number
character(len=*), intent(in), optional :: format_string

Optional format string.

Return Value character(len=64)

Output character string.


Called by

proc~~float_to_character~~CalledByGraph proc~float_to_character float_to_character proc~ispline ispline proc~ispline->proc~float_to_character proc~propagator_summary propagator_summary proc~propagator_summary->proc~float_to_character proc~print_basic_cross_section_info print_basic_cross_section_info proc~print_basic_cross_section_info->proc~float_to_character proc~validate_r_range validate_r_range proc~validate_r_range->proc~float_to_character proc~print_sum_of_squares print_sum_of_squares proc~print_sum_of_squares->proc~float_to_character proc~input_summary input_summary proc~input_summary->proc~float_to_character proc~print_cross_sections_for_jtot print_cross_sections_for_jtot proc~print_cross_sections_for_jtot->proc~float_to_character proc~numerov numerov proc~numerov->proc~propagator_summary proc~get_radial_coupling_term_value get_radial_coupling_term_value proc~get_radial_coupling_term_value->proc~ispline proc~print_largest_partial_cross_sections print_largest_partial_cross_sections proc~print_largest_partial_cross_sections->proc~print_basic_cross_section_info proc~handle_unitarity_output_message handle_unitarity_output_message proc~handle_unitarity_output_message->proc~print_sum_of_squares proc~read_radial_coupling_terms read_radial_coupling_terms proc~read_radial_coupling_terms->proc~validate_r_range proc~read_input_file read_input_file proc~read_input_file->proc~input_summary program~scattering SCATTERING program~scattering->proc~print_cross_sections_for_jtot program~scattering->proc~numerov program~scattering->proc~print_largest_partial_cross_sections program~scattering->proc~read_radial_coupling_terms program~scattering->proc~read_input_file proc~unitarity_check unitarity_check program~scattering->proc~unitarity_check proc~calculate_single_pes_matrix_element calculate_single_pes_matrix_element proc~calculate_single_pes_matrix_element->proc~get_radial_coupling_term_value proc~unitarity_check->proc~handle_unitarity_output_message proc~calculate_pes_matrix calculate_pes_matrix proc~calculate_pes_matrix->proc~calculate_single_pes_matrix_element proc~initial_setup initial_setup proc~initial_setup->proc~calculate_pes_matrix proc~general_propagation_step general_propagation_step proc~general_propagation_step->proc~calculate_pes_matrix

Contents

Variables

Source Code

float_to_character

Variables

Type Visibility Attributes Name Initial
character(len=32), private :: default_format
character(len=32), private :: user_format

Source Code

      function float_to_character(f, format_string) result(res)
         !! Converts a floating-point number to a character string.
         !---------------------------------------------------------------------!
         real(dp), intent(in) :: f
            !! input floating-point number
         character(len=*), intent(in), optional :: format_string
            !! Optional format string.
         character(len=64) :: res
            !! Output character string.
         !---------------------------------------------------------------------!
         character(len=32) :: default_format, user_format
         !---------------------------------------------------------------------!
         ! Default format: 6 decimal places
         !---------------------------------------------------------------------!
         default_format = '(F0.6)'  
         !---------------------------------------------------------------------!
         if (present(format_string)) then
            user_format = trim(format_string)
         else
            user_format = default_format
         endif
         !---------------------------------------------------------------------!
         write(res, user_format) f
         res = adjustl(res)
         !---------------------------------------------------------------------!
      end function float_to_character