diff --git a/prec/psb_c_bjacprec.f90 b/prec/psb_c_bjacprec.f90 index 287bc441..d726e85c 100644 --- a/prec/psb_c_bjacprec.f90 +++ b/prec/psb_c_bjacprec.f90 @@ -218,6 +218,7 @@ contains subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt) use psb_base_mod + use psb_prec_mod, only : psb_ilu_fct Implicit None type(psb_cspmat_type), intent(in), target :: a diff --git a/prec/psb_d_bjacprec.f90 b/prec/psb_d_bjacprec.f90 index ee601185..649e13c0 100644 --- a/prec/psb_d_bjacprec.f90 +++ b/prec/psb_d_bjacprec.f90 @@ -213,6 +213,7 @@ contains subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt) use psb_base_mod + use psb_prec_mod, only : psb_ilu_fct Implicit None type(psb_dspmat_type), intent(in), target :: a diff --git a/prec/psb_s_bjacprec.f90 b/prec/psb_s_bjacprec.f90 index 2cf82813..868a4e81 100644 --- a/prec/psb_s_bjacprec.f90 +++ b/prec/psb_s_bjacprec.f90 @@ -212,6 +212,7 @@ contains subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt) use psb_base_mod + use psb_prec_mod, only : psb_ilu_fct Implicit None type(psb_sspmat_type), intent(in), target :: a diff --git a/prec/psb_z_bjacprec.f90 b/prec/psb_z_bjacprec.f90 index b2892167..7881ddd2 100644 --- a/prec/psb_z_bjacprec.f90 +++ b/prec/psb_z_bjacprec.f90 @@ -218,6 +218,7 @@ contains subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt) use psb_base_mod + use psb_prec_mod, only : psb_ilu_fct Implicit None type(psb_zspmat_type), intent(in), target :: a diff --git a/test/fileread/runs/dfs.inp b/test/fileread/runs/dfs.inp index 424d977b..ddfc8241 100644 --- a/test/fileread/runs/dfs.inp +++ b/test/fileread/runs/dfs.inp @@ -1,5 +1,5 @@ 11 Number of inputs -thm200x120.mtx This (and others) from: http://math.nist.gov/MatrixMarket/ or +A_1M_gps.mtx This (and others) from: http://math.nist.gov/MatrixMarket/ or NONE sherman3_rhs1.mtx http://www.cise.ufl.edu/research/sparse/matrices/index.html MM File format: MM: Matrix Market HB: Harwell-Boeing. BICGSTAB Iterative method: BiCGSTAB CGS RGMRES BiCGSTABL BICG CG diff --git a/test/kernel/runs/spmv.inp b/test/kernel/runs/spmv.inp index 314875ca..57e0f2ba 100644 --- a/test/kernel/runs/spmv.inp +++ b/test/kernel/runs/spmv.inp @@ -1,3 +1,3 @@ -thm_3180k.mtx +A_1M_gps.mtx MM 0 diff --git a/test/pargen/ppde.f90 b/test/pargen/ppde.f90 index 180fe33a..b91a0014 100644 --- a/test/pargen/ppde.f90 +++ b/test/pargen/ppde.f90 @@ -65,6 +65,7 @@ program ppde use psb_base_mod use psb_prec_mod use psb_krylov_mod + use psb_util_mod implicit none ! input parameters @@ -138,6 +139,8 @@ program ppde end if if (iam == psb_root_) write(psb_out_unit,'("Overall matrix creation time : ",es12.5)')t2 if (iam == psb_root_) write(psb_out_unit,'(" ")') +!!$ write(fname,'(a,i0,a)') 'pde-',idim,'.hb' +!!$ call hb_write(a,info,filename=fname,key='PDEGEN',mtitle='MLD2P4 pdegen Test matrix ') !!$ write(fname,'(a,i2.2,a,i2.2,a)') 'amat-',iam,'-',np,'.mtx' !!$ call a%print(fname) !!$ call psb_cdprt(20+iam,desc_a,short=.false.) diff --git a/test/pargen/runs/ppde.inp b/test/pargen/runs/ppde.inp index 3c2f13cf..d52106e9 100644 --- a/test/pargen/runs/ppde.inp +++ b/test/pargen/runs/ppde.inp @@ -2,7 +2,7 @@ BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES BJAC Preconditioner NONE DIAG BJAC CSR Storage format for matrix A: CSR COO JAD -010 Domain size (acutal system is this**3) +005 Domain size (acutal system is this**3) 2 Stopping criterion 0200 MAXIT -1 ITRACE