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;