Construct_Type_HCF_minimal Function

private function Construct_Type_HCF_minimal(useHCFType) result(structure_HCF)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: useHCFType

Return Value class(Abstract_HCF), allocatable


Called by

proc~~construct_type_hcf_minimal~~CalledByGraph proc~construct_type_hcf_minimal Construct_Type_HCF_minimal interface~type_hcf Type_HCF interface~type_hcf->proc~construct_type_hcf_minimal

Source Code

    function Construct_Type_HCF_minimal(useHCFType) result(structure_HCF)
        implicit none
        integer(int32), intent(in) :: useHCFType
        class(Abstract_HCF), allocatable :: structure_HCF

        select case (useHCFType)
        case (11)
            structure_HCF = Type_HCF_Base_BC()
        case (12)
            structure_HCF = Type_HCF_Base_VG()
        case (13)
            structure_HCF = Type_HCF_Base_KO()
        case (14)
            structure_HCF = Type_HCF_Base_MVG()
        case (15)
            structure_HCF = Type_HCF_Base_Durner()
        case (16)
            structure_HCF = Type_HCF_Base_DVGCH()
        case (21)
            structure_HCF = Type_HCF_Impedance()
        case (31)
            structure_HCF = Type_HCF_Viscosity()
        case (41)
            structure_HCF = Type_HCF_Impedance_Viscosity()
        case (51)
            structure_HCF = Type_HCF_Base_Impedance_BC()
        case (52)
            structure_HCF = Type_HCF_Base_Impedance_VG()
        case (53)
            structure_HCF = Type_HCF_Base_Impedance_KO()
        case (54)
            structure_HCF = Type_HCF_Base_Impedance_MVG()
        case (55)
            structure_HCF = Type_HCF_Base_Impedance_Durner()
        case (56)
            structure_HCF = Type_HCF_Base_Impedance_DVGCH()
        case (61)
            structure_HCF = Type_HCF_Base_Viscosity_BC()
        case (62)
            structure_HCF = Type_HCF_Base_Viscosity_VG()
        case (63)
            structure_HCF = Type_HCF_Base_Viscosity_KO()
        case (64)
            structure_HCF = Type_HCF_Base_Viscosity_MVG()
        case (65)
            structure_HCF = Type_HCF_Base_Viscosity_Durner()
        case (66)
            structure_HCF = Type_HCF_Base_Viscosity_DVGCH()
        case (71)
            structure_HCF = Type_HCF_Base_Impedance_Viscosity_BC()
        case (72)
            structure_HCF = Type_HCF_Base_Impedance_Viscosity_VG()
        case (73)
            structure_HCF = Type_HCF_Base_Impedance_Viscosity_KO()
        case (74)
            structure_HCF = Type_HCF_Base_Impedance_Viscosity_MVG()
        case (75)
            structure_HCF = Type_HCF_Base_Impedance_Viscosity_Durner()
        case (76)
            structure_HCF = Type_HCF_Base_Impedance_Viscosity_DVGCH()
        end select

    end function Construct_Type_HCF_minimal