*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 17 years ago
parent fb7186eb79
commit 6b13585ad6

@ -109,7 +109,6 @@ program ppde
info=0 info=0
name='pde90' name='pde90'
call psb_set_errverbosity(2) call psb_set_errverbosity(2)
call psb_set_erraction(0)
call psb_init(ictxt) call psb_init(ictxt)
@ -129,7 +128,7 @@ program ppde
! !
! allocate and fill in the coefficient matrix, rhs and initial guess ! allocate and fill in the coefficient matrix, rhs and initial guess
! !
call psb_cd_set_large_threshold(128)
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call create_matrix(idim,a,b,x,desc_a,part_block,ictxt,afmt,info) call create_matrix(idim,a,b,x,desc_a,part_block,ictxt,afmt,info)

Loading…
Cancel
Save