initialize_holder_thcs Module Subroutine

module subroutine initialize_holder_thcs(self, input, material_id)

Arguments

Type IntentOptional Attributes Name
class(holder_thcs), intent(inout) :: self
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Called by

proc~~initialize_holder_thcs~~CalledByGraph proc~initialize_holder_thcs initialize_holder_thcs interface~initialize_holder_thcs holder_thcs%initialize_holder_thcs interface~initialize_holder_thcs->proc~initialize_holder_thcs proc~initialize_type_material_manager type_material_manager%initialize_type_material_manager proc~initialize_type_material_manager->interface~initialize_holder_thcs proc~initialize_properties_manager type_properties_manager%initialize_properties_manager proc~initialize_properties_manager->proc~initialize_type_material_manager

Source Code

    module subroutine initialize_holder_thcs(self, input, material_id)
        implicit none
        class(holder_thcs), intent(inout) :: self
        type(type_input), intent(in) :: input
        integer(int32), intent(in) :: material_id

        select case (input%basic%materials(material_id)%phase)
        case (3)
            self%p = type_thc_3phase(input, material_id)
        end select

    end subroutine initialize_holder_thcs