Construct_Type_HCF_Base_BC_minimal Module Function

module function Construct_Type_HCF_Base_BC_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable


Called by

proc~~construct_type_hcf_base_bc_minimal~~CalledByGraph proc~construct_type_hcf_base_bc_minimal Construct_Type_HCF_Base_BC_minimal interface~construct_type_hcf_base_bc_minimal Construct_Type_HCF_Base_BC_minimal interface~construct_type_hcf_base_bc_minimal->proc~construct_type_hcf_base_bc_minimal interface~type_hcf_base_bc Type_HCF_Base_BC interface~type_hcf_base_bc->interface~construct_type_hcf_base_bc_minimal

Source Code

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

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

    end function Construct_Type_HCF_Base_BC_minimal