*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 10d8432a17
commit 3be4f105f8

@ -546,7 +546,7 @@ contains
integer :: lrw,info integer :: lrw,info
integer, optional :: iren(:) integer, optional :: iren(:)
integer :: nzin_, nza, idx,ip,jp,i,j,k, nzt integer :: nzin_, nza, idx,ip,jp,i,j,k, nzt
logical, parameter :: debug=.true. logical, parameter :: debug=.false.
nza = a%infoa(psb_nnz_) nza = a%infoa(psb_nnz_)
if (a%pl(1) /= 0) then if (a%pl(1) /= 0) then

Loading…
Cancel
Save