construct_thc_3 Module Function

module function construct_thc_3(Input, i_material) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: Input
integer(kind=int32), intent(in) :: i_material

Return Value class(abst_thc), allocatable


Called by

proc~~construct_thc_3~~CalledByGraph proc~construct_thc_3 construct_thc_3 interface~construct_thc_3 construct_thc_3 interface~construct_thc_3->proc~construct_thc_3 interface~type_thc_3phase type_thc_3phase interface~type_thc_3phase->interface~construct_thc_3

Source Code

    module function construct_thc_3(input, i_material) result(property)
        implicit none
        class(abst_thc), allocatable :: property
        type(type_input), intent(in) :: Input
        integer(int32), intent(in) :: i_material

        if (allocated(property)) deallocate (property)
        allocate (type_thc_3phase :: property)

        property%material_id = i_material

        property%material1 = input%basic%materials(i_material)%thermal%thermal_conductivity(1)
        property%material2 = input%basic%materials(i_material)%thermal%thermal_conductivity(2)
        property%material3 = input%basic%materials(i_material)%thermal%thermal_conductivity(3)

    end function construct_thc_3