New version with ND product

test/pargen/psb_d_pde3d.F90

@@ -680,9 +680,9 @@ contains
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,mold=amold,bld_and=.true.)
+        call psb_spasb(a,desc_a,info,mold=amold,bld_and=.false.)
       else
-        call psb_spasb(a,desc_a,info,afmt=afmt,bld_and=.true.)
+        call psb_spasb(a,desc_a,info,afmt=afmt,bld_and=.false.)
       end if
     end if
     call psb_barrier(ctxt)

test/pargen/runs/ppde.inp

@@ -5,7 +5,7 @@ CSR                    Storage format for matrix A:  CSR COO
 200                    Domain size (acutal system is this**3 (pde3d) or **2 (pde2d) )
 3                      Partition: 1 BLOCK  3 3D
 2                      Stopping criterion 1 2 
-0300                   MAXIT
+0008                   MAXIT
 10                     ITRACE
 002                    IRST    restart for RGMRES  and BiCGSTABL
 ILU                    Block Solver ILU,ILUT,INVK,AINVT,AORTH