psblas3

Various fixes related to vargas test.

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

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

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

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

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

test/kernel/runs/spmv.inp

@@ -1,3 +1,3 @@
-thm_3180k.mtx  
+A_1M_gps.mtx   
 MM
 0

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

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