read_parameters_solver_settings_linear Subroutine

subroutine read_parameters_solver_settings_linear(self, json)

Arguments

Type IntentOptional Attributes Name
class(type_input) :: self
type(json_file), intent(inout) :: json

Calls

proc~~read_parameters_solver_settings_linear~~CallsGraph proc~read_parameters_solver_settings_linear read_parameters_solver_settings_linear proc~join join proc~read_parameters_solver_settings_linear->proc~join proc~read_parameters_solver_settings_linear_local read_parameters_solver_settings_linear_local proc~read_parameters_solver_settings_linear->proc~read_parameters_solver_settings_linear_local proc~read_parameters_solver_settings_linear_local->proc~join destroy destroy proc~read_parameters_solver_settings_linear_local->destroy get get proc~read_parameters_solver_settings_linear_local->get log_warning log_warning proc~read_parameters_solver_settings_linear_local->log_warning print_error_message print_error_message proc~read_parameters_solver_settings_linear_local->print_error_message proc~error_message error_message proc~read_parameters_solver_settings_linear_local->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~read_parameters_solver_settings_linear~~CalledByGraph proc~read_parameters_solver_settings_linear read_parameters_solver_settings_linear proc~read_parameters_solver_settings read_parameters_solver_settings proc~read_parameters_solver_settings->proc~read_parameters_solver_settings_linear proc~inout_read_basic_parameters inout_read_basic_parameters proc~inout_read_basic_parameters->proc~read_parameters_solver_settings interface~inout_read_basic_parameters type_input%inout_read_basic_parameters interface~inout_read_basic_parameters->proc~inout_read_basic_parameters proc~initialize_type_input type_input%initialize_type_input proc~initialize_type_input->interface~inout_read_basic_parameters

Source Code

    subroutine read_parameters_solver_settings_linear(self, json)
        implicit none
        class(type_input) :: self
        type(json_file), intent(inout) :: json

        logical :: found
        character(:), allocatable :: key

        if (self%basic%analysis_controls%calculate_thermal) then
            key = join([solver_settings, linear_solver, thermal])
            call read_parameters_solver_settings_linear_local(self%basic%solver_settings%linear_solver%thermal, json, key)
        end if

        if (self%basic%analysis_controls%calculate_hydraulic) then
            key = join([solver_settings, linear_solver, hydraulic])
            call read_parameters_solver_settings_linear_local(self%basic%solver_settings%linear_solver%hydraulic, json, key)
        end if

        if (self%basic%analysis_controls%calculate_mechanical) then
            key = join([solver_settings, linear_solver, mechanical])
            call read_parameters_solver_settings_linear_local(self%basic%solver_settings%linear_solver%mechanical, json, key)
        end if

    end subroutine read_parameters_solver_settings_linear