sf_init_dmatrix_coo Subroutine

public subroutine sf_init_dmatrix_coo(sparse, N, N1)

Arguments

Type IntentOptional Attributes Name
type(sf_sparse_dmatrix_coo), intent(inout) :: sparse
integer :: N
integer, optional :: N1

Called by

proc~~sf_init_dmatrix_coo~~CalledByGraph proc~sf_init_dmatrix_coo sf_init_dmatrix_coo interface~sf_init_matrix_coo sf_init_matrix_coo interface~sf_init_matrix_coo->proc~sf_init_dmatrix_coo

Source Code

  subroutine sf_init_dmatrix_coo(sparse,N,N1)
    type(sf_sparse_dmatrix_coo),intent(inout) :: sparse
    integer                               :: N
    integer,optional                      :: N1
    integer                               :: i
    !
#ifdef _DEBUG
    write(*,"(A)")"DEBUG sf_init_dmatrix_coo: allocate sparse"
#endif
    !put here a delete statement to avoid problems
    if(sparse%status)stop "sf_init_dmatrix_coo: already allocated can not init"
    !
    sparse%Nrow=N
    sparse%Ncol=N
    sparse%Size=0
    if(present(N1))sparse%Ncol=N1
    !
    allocate(sparse%rows(0))
    allocate(sparse%cols(0))
    allocate(sparse%vals(0))
    !
    sparse%status=.true.
    !
  end subroutine sf_init_dmatrix_coo