Construct_Type_HCF_Base_Durner_minimal Module Function

module function Construct_Type_HCF_Base_Durner_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable


Called by

proc~~construct_type_hcf_base_durner_minimal~~CalledByGraph proc~construct_type_hcf_base_durner_minimal Construct_Type_HCF_Base_Durner_minimal interface~construct_type_hcf_base_durner_minimal Construct_Type_HCF_Base_Durner_minimal interface~construct_type_hcf_base_durner_minimal->proc~construct_type_hcf_base_durner_minimal interface~type_hcf_base_durner Type_HCF_Base_Durner interface~type_hcf_base_durner->interface~construct_type_hcf_base_durner_minimal

Source Code

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

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

    end function Construct_Type_HCF_Base_Durner_minimal