Construct_Type_HCF_Base_VG_minimal Module Function

module function Construct_Type_HCF_Base_VG_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable


Called by

proc~~construct_type_hcf_base_vg_minimal~~CalledByGraph proc~construct_type_hcf_base_vg_minimal Construct_Type_HCF_Base_VG_minimal interface~construct_type_hcf_base_vg_minimal Construct_Type_HCF_Base_VG_minimal interface~construct_type_hcf_base_vg_minimal->proc~construct_type_hcf_base_vg_minimal interface~type_hcf_base_vg Type_HCF_Base_VG interface~type_hcf_base_vg->interface~construct_type_hcf_base_vg_minimal

Source Code

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

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

    end function Construct_Type_HCF_Base_VG_minimal