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