Construct_Type_HCF_Base_KO_minimal Module Function

module function Construct_Type_HCF_Base_KO_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable


Called by

proc~~construct_type_hcf_base_ko_minimal~~CalledByGraph proc~construct_type_hcf_base_ko_minimal Construct_Type_HCF_Base_KO_minimal interface~construct_type_hcf_base_ko_minimal Construct_Type_HCF_Base_KO_minimal interface~construct_type_hcf_base_ko_minimal->proc~construct_type_hcf_base_ko_minimal interface~type_hcf_base_ko Type_HCF_Base_KO interface~type_hcf_base_ko->interface~construct_type_hcf_base_ko_minimal

Source Code

    module function Construct_Type_HCF_Base_KO_minimal() result(structure_HCF)
        implicit none
        class(Abstract_HCF), allocatable :: structure_HCF

        if (allocated(structure_HCF)) deallocate (structure_HCF)
        allocate (Type_HCF_Base_KO :: structure_HCF)

    end function Construct_Type_HCF_Base_KO_minimal