|
|
@ -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)
|
|
|
|