Merged new serial code.

2026-10-20 12:52:14 +00:00 · 2007-09-18 08:47:27 +00:00
parent 2875be5e2d
commit 7cbb943e6c
73 changed files with 9451 additions and 3808 deletions
@@ -115,16 +115,6 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
    goto 9999
  end if

-  ! set permutation matrices
-  a%pl(1)=0
-  a%pr(1)=0
-  ! set infoa fields
-  a%fida   = 'COO'
-  a%descra = 'GUN'
-  a%infoa(psb_nnz_)  = 0
-  a%infoa(psb_srtd_) = 0
-  a%infoa(psb_state_) = psb_spmat_bld_
-
  if (debug) write(0,*) 'spall: ',  &
       & psb_cd_get_dectype(desc_a),psb_desc_bld_