Construct_Type_HCF_Base_MVG_minimal Module Function

module function Construct_Type_HCF_Base_MVG_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable


Called by

proc~~construct_type_hcf_base_mvg_minimal~~CalledByGraph proc~construct_type_hcf_base_mvg_minimal Construct_Type_HCF_Base_MVG_minimal interface~construct_type_hcf_base_mvg_minimal Construct_Type_HCF_Base_MVG_minimal interface~construct_type_hcf_base_mvg_minimal->proc~construct_type_hcf_base_mvg_minimal interface~type_hcf_base_mvg Type_HCF_Base_MVG interface~type_hcf_base_mvg->interface~construct_type_hcf_base_mvg_minimal

Source Code

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

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

    end function Construct_Type_HCF_Base_MVG_minimal