From 07e8fec0a81f7887a568513942287606ab044a5c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 28 Sep 2007 12:57:05 +0000
Subject: [PATCH]

---
 base/tools/psb_zgelp.f90 | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/base/tools/psb_zgelp.f90 b/base/tools/psb_zgelp.f90
index 528eed74..da5a3c76 100644
--- a/base/tools/psb_zgelp.f90
+++ b/base/tools/psb_zgelp.f90
@@ -1,4 +1,3 @@
-
 !!$ 
 !!$              Parallel Sparse BLAS  v2.0
 !!$    (C) Copyright 2006 Salvatore Filippone    University of Rome Tor Vergata
@@ -31,16 +30,19 @@
 !!$  
 ! File: psb_zgelp.f90
 !
+!  WARNING: This routine should be changed and moved to the serial part 
+!           i.e. taking out the descriptor. 
+!
+!
 ! Subroutine: psb_zgelp
-!    ???????????
+!             Apply a left permutation to a dense matrix
 !
 ! Parameters:
 ! trans    - character. 
 ! iperm    - integer.
 ! x        - real, dimension(:,:).
-! info     - integer.                 Eventually returns an error code.
+! info     - integer.                 Return code.
 subroutine psb_zgelp(trans,iperm,x,desc_a,info)
-  !....assembly dense matrix x .....
   use psb_descriptor_type
   use psb_serial_mod
   use psb_const_mod
@@ -174,16 +176,20 @@ end subroutine psb_zgelp
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
+!
+!  WARNING: This routine should be changed and moved to the serial part 
+!           i.e. taking out the descriptor. 
+!
+!
 ! Subroutine: psb_zgelpv
-!    ???????????
+!             Apply a left permutation to a dense matrix
 !
 ! Parameters:
 ! trans    - character. 
 ! iperm    - integer.
 ! x        - real, dimension(:).
-! info     - integer.                 Eventually returns an error code.
+! info     - integer.                 Return code.
 subroutine psb_zgelpv(trans,iperm,x,desc_a,info)
-  !....assembly dense matrix x .....
   use psb_descriptor_type
   use psb_serial_mod
   use psb_const_mod