value_in_range_real128 Function

private function value_in_range_real128(value, min, max) result(in_range)

Arguments

Type IntentOptional Attributes Name
real(kind=real128), intent(in) :: value
real(kind=real128), intent(in) :: min
real(kind=real128), intent(in) :: max

Return Value logical


Called by

proc~~value_in_range_real128~~CalledByGraph proc~value_in_range_real128 value_in_range_real128 interface~value_in_range value_in_range interface~value_in_range->proc~value_in_range_real128 proc~read_parameters_materials_basic read_parameters_materials_basic proc~read_parameters_materials_basic->interface~value_in_range proc~read_parameters_materials_hydrauilic read_parameters_materials_hydrauilic proc~read_parameters_materials_hydrauilic->interface~value_in_range proc~read_parameters_materials_wrf read_parameters_materials_wrf proc~read_parameters_materials_hydrauilic->proc~read_parameters_materials_wrf proc~read_parameters_materials_wrf->interface~value_in_range proc~read_parameters_simulation_settings read_parameters_simulation_settings proc~read_parameters_simulation_settings->interface~value_in_range proc~read_parameters_solver_settings read_parameters_solver_settings proc~read_parameters_solver_settings->interface~value_in_range proc~inout_read_basic_parameters inout_read_basic_parameters proc~inout_read_basic_parameters->proc~read_parameters_simulation_settings proc~inout_read_basic_parameters->proc~read_parameters_solver_settings proc~read_parameters_materials read_parameters_materials proc~inout_read_basic_parameters->proc~read_parameters_materials proc~read_parameters_materials->proc~read_parameters_materials_basic proc~read_parameters_materials->proc~read_parameters_materials_hydrauilic proc~read_parameters_materials_thermal read_parameters_materials_thermal proc~read_parameters_materials->proc~read_parameters_materials_thermal proc~read_parameters_materials_thermal->proc~read_parameters_materials_wrf 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

    function value_in_range_real128(value, min, max) result(in_range)
        implicit none
        real(real128), intent(in) :: value, min, max
        logical :: in_range

        ! より簡潔な書き方
        in_range = (value >= min .and. value <= max)
    end function value_in_range_real128