psbla3.

base/modules/psb_c_base_mat_mod.f90
 base/modules/psb_d_base_mat_mod.f90
 base/modules/psb_s_base_mat_mod.f90
 base/modules/psb_z_base_mat_mod.f90

Added comment on vect_mv

base/modules/psb_c_base_mat_mod.f90

@@ -681,6 +681,10 @@ module psb_c_base_mat_mod
   !!
   !!        Compute
   !!           Y = alpha*op(A)*X + beta*Y
+  !!        Usually the unwrapping of the encapsulated vector is done
+  !!        here, so that all the derived classes need only the
+  !!        versions with the standard arrays. 
+  !!
   !!
   !! \param alpha  Scaling factor for Ax
   !! \param A      the input sparse matrix
@@ -704,13 +708,6 @@ module psb_c_base_mat_mod
     end subroutine psb_c_base_vect_mv
   end interface
   
-  !
-  ! Triangular system solve.
-  ! The CSSM/CSSV/VECT_SV outer methods are implemented at the base
-  ! level, and they take care of the SCALE and D control arguments.
-  ! So the derived classes need to override only the INNER_ methods.
-  !
-  
   !
   !> Function  cssm:
   !! \memberof  psb_c_base_sparse_mat

base/modules/psb_d_base_mat_mod.f90

@@ -681,6 +681,10 @@ module psb_d_base_mat_mod
   !!
   !!        Compute
   !!           Y = alpha*op(A)*X + beta*Y
+  !!        Usually the unwrapping of the encapsulated vector is done
+  !!        here, so that all the derived classes need only the
+  !!        versions with the standard arrays. 
+  !!
   !!
   !! \param alpha  Scaling factor for Ax
   !! \param A      the input sparse matrix
@@ -704,13 +708,6 @@ module psb_d_base_mat_mod
     end subroutine psb_d_base_vect_mv
   end interface
   
-  !
-  ! Triangular system solve.
-  ! The CSSM/CSSV/VECT_SV outer methods are implemented at the base
-  ! level, and they take care of the SCALE and D control arguments.
-  ! So the derived classes need to override only the INNER_ methods.
-  !
-  
   !
   !> Function  cssm:
   !! \memberof  psb_d_base_sparse_mat

base/modules/psb_s_base_mat_mod.f90

@@ -681,6 +681,10 @@ module psb_s_base_mat_mod
   !!
   !!        Compute
   !!           Y = alpha*op(A)*X + beta*Y
+  !!        Usually the unwrapping of the encapsulated vector is done
+  !!        here, so that all the derived classes need only the
+  !!        versions with the standard arrays. 
+  !!
   !!
   !! \param alpha  Scaling factor for Ax
   !! \param A      the input sparse matrix
@@ -704,13 +708,6 @@ module psb_s_base_mat_mod
     end subroutine psb_s_base_vect_mv
   end interface
   
-  !
-  ! Triangular system solve.
-  ! The CSSM/CSSV/VECT_SV outer methods are implemented at the base
-  ! level, and they take care of the SCALE and D control arguments.
-  ! So the derived classes need to override only the INNER_ methods.
-  !
-  
   !
   !> Function  cssm:
   !! \memberof  psb_s_base_sparse_mat

base/modules/psb_z_base_mat_mod.f90

@@ -681,6 +681,10 @@ module psb_z_base_mat_mod
   !!
   !!        Compute
   !!           Y = alpha*op(A)*X + beta*Y
+  !!        Usually the unwrapping of the encapsulated vector is done
+  !!        here, so that all the derived classes need only the
+  !!        versions with the standard arrays. 
+  !!
   !!
   !! \param alpha  Scaling factor for Ax
   !! \param A      the input sparse matrix
@@ -704,13 +708,6 @@ module psb_z_base_mat_mod
     end subroutine psb_z_base_vect_mv
   end interface
   
-  !
-  ! Triangular system solve.
-  ! The CSSM/CSSV/VECT_SV outer methods are implemented at the base
-  ! level, and they take care of the SCALE and D control arguments.
-  ! So the derived classes need to override only the INNER_ methods.
-  !
-  
   !
   !> Function  cssm:
   !! \memberof  psb_z_base_sparse_mat