integer_to_character Function

public function integer_to_character(i, format_string) result(res)

transfers integer to a character

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i

input integer
character(len=*), intent(in), optional :: format_string

Optional format string.

Return Value character(len=32)

output character


Called by

proc~~integer_to_character~~CalledByGraph proc~integer_to_character integer_to_character proc~print_pes_matrix_elements_summary print_pes_matrix_elements_summary proc~print_pes_matrix_elements_summary->proc~integer_to_character proc~print_basic_cross_section_info print_basic_cross_section_info proc~print_basic_cross_section_info->proc~integer_to_character proc~invert_symmetric_matrix_sp invert_symmetric_matrix_sp proc~invert_symmetric_matrix_sp->proc~integer_to_character proc~print_pes_quantum_numbers print_pes_quantum_numbers proc~print_pes_quantum_numbers->proc~integer_to_character proc~read_and_validate_lambda read_and_validate_lambda proc~read_and_validate_lambda->proc~integer_to_character proc~check_namelist_input check_namelist_input proc~check_namelist_input->proc~integer_to_character proc~check_namelist_basis check_namelist_basis proc~check_namelist_basis->proc~integer_to_character proc~riccati_bessel_j riccati_bessel_j proc~riccati_bessel_j->proc~integer_to_character proc~check_number_of_channels check_number_of_channels proc~check_number_of_channels->proc~integer_to_character proc~print_cross_sections_for_jtot print_cross_sections_for_jtot proc~print_cross_sections_for_jtot->proc~integer_to_character proc~fill_symmetric_matrix_int32 fill_symmetric_matrix_int32 proc~fill_symmetric_matrix_int32->proc~integer_to_character proc~fill_symmetric_matrix_sp fill_symmetric_matrix_sp proc~fill_symmetric_matrix_sp->proc~integer_to_character proc~file_io_status file_io_status proc~file_io_status->proc~integer_to_character proc~print_sum_of_squares print_sum_of_squares proc~print_sum_of_squares->proc~integer_to_character proc~propagator_summary propagator_summary proc~propagator_summary->proc~integer_to_character proc~input_summary input_summary proc~input_summary->proc~integer_to_character proc~no_open_channels_message no_open_channels_message proc~no_open_channels_message->proc~integer_to_character proc~print_detailed_cross_section_info print_detailed_cross_section_info proc~print_detailed_cross_section_info->proc~integer_to_character proc~print_final_unitarity_warning print_final_unitarity_warning proc~print_final_unitarity_warning->proc~integer_to_character proc~handle_lambda_index_error handle_lambda_index_error proc~handle_lambda_index_error->proc~integer_to_character proc~spline spline proc~spline->proc~integer_to_character proc~check_namelist_potential check_namelist_potential proc~check_namelist_potential->proc~integer_to_character proc~print_short_block_summary print_short_block_summary proc~print_short_block_summary->proc~integer_to_character proc~fill_symmetric_matrix_dp fill_symmetric_matrix_dp proc~fill_symmetric_matrix_dp->proc~integer_to_character proc~reduce_radial_coupling_terms reduce_radial_coupling_terms proc~reduce_radial_coupling_terms->proc~integer_to_character proc~reduce_radial_coupling_terms->proc~print_pes_quantum_numbers proc~handle_coupling_index_error handle_coupling_index_error proc~handle_coupling_index_error->proc~integer_to_character proc~riccati_bessel_y riccati_bessel_y proc~riccati_bessel_y->proc~integer_to_character proc~invert_symmetric_matrix_dp invert_symmetric_matrix_dp proc~invert_symmetric_matrix_dp->proc~integer_to_character proc~set_number_of_channels set_number_of_channels proc~set_number_of_channels->proc~check_number_of_channels proc~save_partial_xs_file_header save_partial_xs_file_header proc~save_partial_xs_file_header->proc~file_io_status proc~numerov numerov proc~numerov->proc~propagator_summary proc~interpolate_radial_coupling_terms interpolate_radial_coupling_terms proc~interpolate_radial_coupling_terms->proc~spline proc~initialize_pes_matrix initialize_pes_matrix proc~initialize_pes_matrix->proc~print_pes_matrix_elements_summary proc~read_input_file read_input_file proc~read_input_file->proc~check_namelist_input proc~read_input_file->proc~check_namelist_basis proc~read_input_file->proc~file_io_status proc~read_input_file->proc~input_summary proc~read_input_file->proc~check_namelist_potential proc~print_largest_partial_cross_sections print_largest_partial_cross_sections proc~print_largest_partial_cross_sections->proc~print_basic_cross_section_info proc~print_largest_partial_cross_sections->proc~print_detailed_cross_section_info proc~calculate_k_matrix calculate_k_matrix proc~calculate_k_matrix->proc~riccati_bessel_j proc~calculate_k_matrix->proc~riccati_bessel_y proc~read_radial_coupling_terms read_radial_coupling_terms proc~read_radial_coupling_terms->proc~read_and_validate_lambda proc~read_radial_coupling_terms->proc~file_io_status program~scattering SCATTERING program~scattering->proc~print_cross_sections_for_jtot program~scattering->proc~no_open_channels_message program~scattering->proc~print_final_unitarity_warning program~scattering->proc~print_short_block_summary program~scattering->proc~reduce_radial_coupling_terms program~scattering->proc~set_number_of_channels program~scattering->proc~save_partial_xs_file_header program~scattering->proc~numerov program~scattering->proc~interpolate_radial_coupling_terms program~scattering->proc~initialize_pes_matrix program~scattering->proc~read_input_file program~scattering->proc~print_largest_partial_cross_sections program~scattering->proc~calculate_k_matrix program~scattering->proc~read_radial_coupling_terms proc~save_s_matrix_file_header save_s_matrix_file_header program~scattering->proc~save_s_matrix_file_header proc~unitarity_check unitarity_check program~scattering->proc~unitarity_check proc~save_s_matrix_file_header->proc~file_io_status proc~handle_unitarity_output_message handle_unitarity_output_message proc~handle_unitarity_output_message->proc~print_sum_of_squares proc~get_radial_coupling_term_value get_radial_coupling_term_value proc~get_radial_coupling_term_value->proc~handle_lambda_index_error proc~get_radial_coupling_term_value->proc~handle_coupling_index_error proc~unitarity_check->proc~handle_unitarity_output_message proc~calculate_single_pes_matrix_element calculate_single_pes_matrix_element proc~calculate_single_pes_matrix_element->proc~get_radial_coupling_term_value 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

integer_to_character

Variables

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

Source Code

      function integer_to_character(i, format_string) result(res)
         !! transfers integer to a character
         !---------------------------------------------------------------------!
         integer, intent(in) :: i
            !! input integer
         character(len=*), intent(in), optional :: format_string
            !! Optional format string.
         character(len=32) :: res
            !! output character
         !---------------------------------------------------------------------!
         character(len=32) :: default_format, user_format
         !---------------------------------------------------------------------!
         ! Deafult format
         !---------------------------------------------------------------------!
         default_format =  '(i0)'
         !---------------------------------------------------------------------!
         if (present(format_string)) then
            user_format = trim(format_string)
         else
            user_format = default_format
         endif
         !---------------------------------------------------------------------!
         write (res, user_format) i
         res = adjustl(res)
         !---------------------------------------------------------------------!
      end function integer_to_character