calculate_thc_ptr Function

private function calculate_thc_ptr(self, state, region_id) result(val)

Arguments

Type IntentOptional Attributes Name
class(type_proereties_manager), intent(inout) :: self
type(type_gauss_point_state), intent(in) :: state
integer(kind=int32), intent(in) :: region_id

Return Value real(kind=real64)


Calls

proc~~calculate_thc_ptr~~CallsGraph proc~calculate_thc_ptr calculate_thc_ptr calc_gauss_point calc_gauss_point proc~calculate_thc_ptr->calc_gauss_point none~get_thc type_material_manager%get_thc proc~calculate_thc_ptr->none~get_thc proc~get_thc_holder type_material_manager%get_thc_holder none~get_thc->proc~get_thc_holder proc~get_thc_ptr type_material_manager%get_thc_ptr none~get_thc->proc~get_thc_ptr

Source Code

    function calculate_thc_ptr(self, state, region_id) result(val)
        implicit none
        class(type_proereties_manager), intent(inout) :: self
        type(type_gauss_point_state), intent(in) :: state
        integer(int32), intent(in) :: region_id
        real(real64) :: val

        class(abst_thc), pointer :: local_thc

        call self%materials%get_THC(region_id, local_thc)

        val = local_thc%calc_gauss_point(state)

    end function calculate_thc_ptr