fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psbla3.

Browse Source 
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
This commit is contained in:
Salvatore Filippone
2012-02-25 17:45:51 +00:00
parent 5d0b00240b
commit b60e395708
4 changed files with 20 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_base_mat_mod.f90
+5 -8
View File
@@ -282,7 +282,7 @@ module psb_c_base_mat_mod
!! \param info return code
!! \param jmin [1] minimum col index
!! \param jmax [a\%get_ncols()] maximum col index
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1]
!! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1]
!! ( iren cannot be specified with rscale/cscale)
@@ -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
+5 -8
View File
@@ -282,7 +282,7 @@ module psb_d_base_mat_mod
!! \param info return code
!! \param jmin [1] minimum col index
!! \param jmax [a\%get_ncols()] maximum col index
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1]
!! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1]
!! ( iren cannot be specified with rscale/cscale)
@@ -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
+5 -8
View File
@@ -282,7 +282,7 @@ module psb_s_base_mat_mod
!! \param info return code
!! \param jmin [1] minimum col index
!! \param jmax [a\%get_ncols()] maximum col index
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1]
!! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1]
!! ( iren cannot be specified with rscale/cscale)
@@ -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
+5 -8
View File
@@ -282,7 +282,7 @@ module psb_z_base_mat_mod
!! \param info return code
!! \param jmin [1] minimum col index
!! \param jmax [a\%get_ncols()] maximum col index
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:))
!! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1]
!! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1]
!! ( iren cannot be specified with rscale/cscale)
@@ -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