From cd7649fd1ba2faa32d5195bd9ffd954d276990fb Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 2 Mar 2006 10:48:06 +0000
Subject: [PATCH] *** empty log message ***

---
 test/Fileread/df_sample.f90 | 2 +-
 test/Fileread/mat_dist.f90  | 4 ++--
 test/Fileread/mmio.f90      | 6 +++---
 test/pargen/ppde90.f90      | 7 +------
 4 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/test/Fileread/df_sample.f90 b/test/Fileread/df_sample.f90
index 4da7005c..762311e6 100644
--- a/test/Fileread/df_sample.f90
+++ b/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
diff --git a/test/Fileread/mat_dist.f90 b/test/Fileread/mat_dist.f90
index dde6bafc..c3644b76 100644
--- a/test/Fileread/mat_dist.f90
+++ b/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(:)
diff --git a/test/Fileread/mmio.f90 b/test/Fileread/mmio.f90
index 32166035..ecc39b23 100644
--- a/test/Fileread/mmio.f90
+++ b/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
diff --git a/test/pargen/ppde90.f90 b/test/pargen/ppde90.f90
index f46ffd22..3912ca81 100644
--- a/test/pargen/ppde90.f90
+++ b/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_descriptor_type
-    use psb_tools_mod
-    use psb_methd_mod
+    use psb_sparse_mod
     implicit none
     integer                  :: idim
     integer, parameter       :: nbmax=10