Fixed default for precset.

test/pargen/ppde90.f90

@@ -173,6 +173,8 @@ program pde90
     call psb_precset(pre,'asm',iv=(/novr,halo_,none_/))
   case(rash_)             
     call psb_precset(pre,'asm',iv=(/novr,nohalo_,none_/))
+  case default
+    call psb_precset(pre,'ilu')
   end select
 
   call psb_barrier(ictxt)
@@ -389,10 +391,10 @@ contains
     write(iout,*)'               iterations ' 
   end subroutine pr_usage
 
-!
+  !
-!  subroutine to allocate and fill in the coefficient matrix and
+  !  subroutine to allocate and fill in the coefficient matrix and
-!  the rhs. 
+  !  the rhs. 
-!
+  !
   subroutine create_matrix(idim,a,b,t,desc_a,parts,ictxt,afmt,info)
     !
     !   discretize the partial diferential equation
@@ -499,7 +501,7 @@ contains
     ! loop over rows belonging to current process in a block
     ! distribution.
 
-!    icol(1)=1    
+    !    icol(1)=1    
     do glob_row = 1, n
       call parts(glob_row,n,np,prv,nv)
       do inv = 1, nv