From 7a03e1d4107ee81b3cf92800157dbf1a55bfe80b Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 15 Nov 2007 10:18:55 +0000
Subject: [PATCH] Renamed pargen sample.

---
 README                               |  6 +++---
 test/pargen/Makefile                 | 14 ++++----------
 test/pargen/{ppde90.f90 => ppde.f90} |  8 ++++----
 3 files changed, 11 insertions(+), 17 deletions(-)
 rename test/pargen/{ppde90.f90 => ppde.f90} (99%)

diff --git a/README b/README
index a9e093df..363125c7 100644
--- a/README
+++ b/README
@@ -29,8 +29,8 @@ The library has been tested on an IBM SP5, with XLC and XLF
 version 10.1 and the IBM ESSL/PESSL versions of the BLAS and the
 BLACS. 
 The  setting 
- F90=xlf90 -qsuffix=f=f90
-in Make.inc.sp5 takes care of the f90 extension. 
+F90=xlf95 -qsuffix=f=f90:cpp=F90
+in Make.inc.sp5 takes care of the f90/F90 extensions. 
 
 
 UTILITIES
@@ -41,7 +41,7 @@ Harwell-Boeing and MatrixMarket file formats.
 DOCUMENTATION
 
 See userguide.pdf 
-Please consult the sample programs, especially test/pargen/ppde90.f90. 
+Please consult the sample programs, especially test/pargen/ppde.f90. 
 
 
 OTHER SOFTWARE CREDITS 
diff --git a/test/pargen/Makefile b/test/pargen/Makefile
index b7afd16b..9f876900 100644
--- a/test/pargen/Makefile
+++ b/test/pargen/Makefile
@@ -15,22 +15,16 @@ FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG).
 EXEDIR=./runs
 
 
-ppde90: ppde90.o  
-	$(F90LINK) ppde90.o  -o ppde90 $(PSBLAS_LIB) $(LDLIBS)
-	/bin/mv ppde90 $(EXEDIR)
-
-
-thsrt: thsrt.o  
-	$(F90LINK) thsrt.o  -o thsrt $(PSBLAS_LIB) $(LDLIBS)
-	/bin/mv thsrt $(EXEDIR)
-
+ppde: ppde.o  
+	$(F90LINK) ppde.o  -o ppde $(PSBLAS_LIB) $(LDLIBS)
+	/bin/mv ppde $(EXEDIR)
 
 .f90.o:
 	$(MPF90) $(F90COPT) $(FINCLUDES) $(FDEFINES) -c $<
 
 
 clean: 
-	/bin/rm -f ppde90.o   $(EXEDIR)/ppde90 
+	/bin/rm -f ppde.o   $(EXEDIR)/ppde 
 verycleanlib: 
 	(cd ../..; make veryclean)
 lib:
diff --git a/test/pargen/ppde90.f90 b/test/pargen/ppde.f90
similarity index 99%
rename from test/pargen/ppde90.f90
rename to test/pargen/ppde.f90
index c3b8b6b4..78b1ab70 100644
--- a/test/pargen/ppde90.f90
+++ b/test/pargen/ppde.f90
@@ -28,9 +28,9 @@
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
-! File: ppde90.f90
+! File: ppde.f90
 !
-! Program: ppde90
+! Program: ppde
 ! This sample program shows how to build and solve a sparse linear
 !
 ! The program  solves a linear system based on the partial differential
@@ -70,7 +70,7 @@
 !
 !   u(x,y) = rhs(x,y)
 !
-program pde90
+program ppde
   use psb_base_mod
   use psb_prec_mod
   use psb_krylov_mod
@@ -622,7 +622,7 @@ contains
     end if
     return
   end subroutine create_matrix
-end program pde90
+end program ppde
 !
 ! functions parametrizing the differential equation 
 !