sf_delete_cmatrix_coo Subroutine

public subroutine sf_delete_cmatrix_coo(sparse)

Arguments

Type IntentOptional Attributes Name
type(sf_sparse_cmatrix_coo), intent(inout) :: sparse

Called by

proc~~sf_delete_cmatrix_coo~~CalledByGraph proc~sf_delete_cmatrix_coo sf_delete_cmatrix_coo interface~sf_delete_matrix_coo sf_delete_matrix_coo interface~sf_delete_matrix_coo->proc~sf_delete_cmatrix_coo

Source Code

    subroutine sf_delete_cmatrix_coo(sparse)
    type(sf_sparse_cmatrix_coo),intent(inout) :: sparse
    integer                           :: i
    !
#ifdef _DEBUG
    write(*,"(A)")"DEBUG sf_delete_cmatrix_coo: delete sparse"
#endif
    if(.not.sparse%status)return !stop "Error SPARSE/sf_delete_matrix: sparse is not allocated."
    !
    deallocate(sparse%rows)
    deallocate(sparse%cols)
    deallocate(sparse%vals)
    !
    sparse%Nrow=0
    sparse%Ncol=0
    sparse%Size=0
    sparse%status=.false.
  end subroutine sf_delete_cmatrix_coo