From ace9fc15964778180a2f6ff81cdfb5a110f2c7c1 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 1 Mar 2006 16:17:45 +0000
Subject: [PATCH] *** empty log message ***

---
 src/prec/fort_slu_impl.c |  2 +-
 src/prec/fort_umf_impl.c | 20 --------------------
 2 files changed, 1 insertion(+), 21 deletions(-)

diff --git a/src/prec/fort_slu_impl.c b/src/prec/fort_slu_impl.c
index df177989..c298a4c0 100644
--- a/src/prec/fort_slu_impl.c
+++ b/src/prec/fort_slu_impl.c
@@ -35,7 +35,7 @@
  */
 /* This file is an interface to the SuperLU routines for sparse
    factorization.  It was obtaned by modifying the
-   c_fortran_dgssv.c file from the source distribution;
+   c_fortran_dgssv.c file from the SuperLU source distribution;
    original copyright terms reproduced below. 
    
    PSBLAS v 2.0, rc1,  May 03, 2005  */ 
diff --git a/src/prec/fort_umf_impl.c b/src/prec/fort_umf_impl.c
index 2fa0d3a9..8433415c 100644
--- a/src/prec/fort_umf_impl.c
+++ b/src/prec/fort_umf_impl.c
@@ -112,15 +112,6 @@ fort_umf_factor_(int *n, int *nnz,
 		 int *info)
 
 {
-/* 
- * This routine can be called from Fortran.
- *  performs LU decomposition.
- *
- * f_factors (input/output) fptr* 
- *      On  output contains the pointer pointing to
- *       the structure of the factored matrices.
- *
- */
  
 #ifdef Have_UMF_
   double Info [UMFPACK_INFO], Control [UMFPACK_CONTROL];
@@ -176,11 +167,6 @@ fort_umf_solve_(int *itrans, int *n,
 		 int *info)
 
 {
-/* 
- * This routine can be called from Fortran.
- *      performs triangular solve
- *
- */
 #ifdef Have_UMF_ 
   double Info [UMFPACK_INFO], Control [UMFPACK_CONTROL];
   void *Symbolic, *Numeric ;
@@ -223,12 +209,6 @@ fort_umf_free_(
 		 int *info)
 
 {
-/* 
- * This routine can be called from Fortran.
- *
- *      free all storage in the end
- *
- */
 #ifdef Have_UMF_ 
   void *Symbolic, *Numeric ;
   Symbolic = (void *) *symptr;