*** empty log message ***

test/Fileread/df_sample.f90

@@ -29,7 +29,7 @@
 !!$ 
 !!$  
 program df_sample
-  use psb_all_mod
+  use psb_sparse_mod
   use mat_dist
   use read_mat
   use partgraph

test/Fileread/mat_dist.f90

@@ -94,7 +94,7 @@ contains
     !     on entry: specifies processor holding a_glob. default: 0
     !     on exit : unchanged.
     !
-    use psb_all_mod
+    use psb_sparse_mod
     implicit none
 
     ! parameters
@@ -553,7 +553,7 @@ contains
     !     on entry: specifies processor holding a_glob. default: 0
     !     on exit : unchanged.
     !
-    use psb_all_mod
+    use psb_sparse_mod
     implicit none   ! parameters
     type(psb_dspmat_type)      :: a_glob
     real(kind(1.d0)), pointer  :: b_glob(:)

test/Fileread/mmio.f90

@@ -29,7 +29,7 @@
 !!$ 
 !!$  
 module mmio
-  use psb_spmat_type
+  use psb_sparse_mod
   public mm_mat_read, mm_mat_write
   interface mm_mat_read
     module procedure dmm_mat_read
@@ -42,7 +42,7 @@ module mmio
 contains
 
   subroutine dmm_mat_read(a, iret, iunit, filename)   
-    use psb_spmat_type
+    use psb_sparse_mod
     implicit none
     type(psb_dspmat_type), intent(out)  :: a
     integer, intent(out)        :: iret
@@ -222,7 +222,7 @@ contains
 
 
   subroutine dmm_mat_write(a,mtitle,iret,eiout,filename)
-    use psb_spmat_type
+    use psb_sparse_mod
     implicit none
     type(psb_dspmat_type), intent(in)  :: a
     integer, intent(out)        :: iret

test/pargen/ppde90.f90

@@ -72,8 +72,6 @@
 !
 program pde90
   use psb_sparse_mod
-  use psb_error_mod
-  use psb_prec_mod
   implicit none
 
   interface 
@@ -429,10 +427,7 @@ contains
     !  u(x,y,z)(2b1+2b2+2b3+a1+a2+a3)+u(x-1,y,z)(-b1-a1)+u(x,y-1,z)(-b2-a2)+
     !  + u(x,y,z-1)(-b3-a3)-u(x+1,y,z)b1-u(x,y+1,z)b2-u(x,y,z+1)b3
 
-    use psb_spmat_type
+    use psb_sparse_mod
-    use psb_descriptor_type
-    use psb_tools_mod
-    use psb_methd_mod
     implicit none
     integer                  :: idim
     integer, parameter       :: nbmax=10