get_count_within_braces Subroutine

  1. read.f90
  2. read
  3. get_count_within_braces

private subroutine get_count_within_braces(handler, count)

Get number of variables between two curly braces

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: handler

File handler from which list number is extracted
integer, intent(out) :: count

Extracted count

Calls

proc~~get_count_within_braces~~CallsGraph proc~get_count_within_braces get_count_within_braces proc~get_number_of_line get_number_of_line proc~get_count_within_braces->proc~get_number_of_line

Called by

proc~~get_count_within_braces~~CalledByGraph proc~get_count_within_braces get_count_within_braces proc~read_res_list read_Res_list proc~read_res_list->proc~get_count_within_braces proc~read_input_and_controls read_input_and_controls proc~read_input_and_controls->proc~read_res_list proc~setup_solver setup_solver proc~setup_solver->proc~read_input_and_controls proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

get_count_within_braces

Source Code

      subroutine get_count_within_braces(handler, count)
        !< Get number of variables between two curly braces
        implicit none
        integer, intent(in) :: handler
        !< File handler from which list number is extracted
        integer, intent(out) :: count
        !< Extracted count
        integer :: skip

        ! skipping lines outside braces
        skip  = get_number_of_line('{', handler)
        ! finding actual count if any
        count = get_number_of_line('}', handler)

      end subroutine get_count_within_braces