free_part_graph Subroutine

subroutine free_part_graph()

Arguments

None

Called by

proc~~free_part_graph~~CalledByGraph proc~free_part_graph free_part_graph proc~get_part_graph get_part_graph proc~get_part_graph->proc~free_part_graph interface~get_part_graph get_part_graph interface~get_part_graph->proc~get_part_graph proc~cmp_mesh_part cmp_mesh_part proc~cmp_mesh_part->interface~get_part_graph interface~cmp_mesh_part cmp_mesh_part interface~cmp_mesh_part->proc~cmp_mesh_part proc~create_mesh create_mesh proc~create_mesh->interface~cmp_mesh_part interface~create_mesh create_mesh interface~create_mesh->proc~create_mesh

Contents

Source Code


Source Code

    SUBROUTINE free_part_graph

        DEALLOCATE(part_glob)
        IF(ALLOCATED(xadj))    DEALLOCATE(xadj)
        IF(ALLOCATED(adjncy))  DEALLOCATE(adjncy)
        IF(ALLOCATED(perm))    DEALLOCATE(perm)
        IF(ALLOCATED(pinv))    DEALLOCATE(pinv)

    END SUBROUTINE free_part_graph