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

psblas-3.0:

Browse Source 
base/serial/psb_spdot_srtd.f90
    base/modules/psb_z_base_mat_mod.f90
    base/modules/psb_c_base_mat_mod.f90
    base/modules/psb_s_base_mat_mod.f90
    base/modules/psb_d_base_mat_mod.f90
    prec/psb_c_base_prec_mod.f90
    prec/psb_d_base_prec_mod.f90
    prec/psb_s_base_prec_mod.f90
    prec/psb_z_base_prec_mod.f90

Comment fixes.
This commit is contained in:
Salvatore Filippone
2013-01-14 15:23:20 +00:00
parent c746ad77c0
commit 8981481336
9 changed files with 73 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_base_mat_mod.f90
+8 -1
View File
@@ -683,7 +683,10 @@ module psb_c_base_mat_mod
!! 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.
!! versions with the standard arrays.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
@@ -784,6 +787,10 @@ module psb_c_base_mat_mod
!! Y = alpha*op(A^-1)*X + beta*Y
!!
!! Internal workhorse called by vect_cssv.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
!! \param A the input sparse matrix
base/modules/psb_d_base_mat_mod.f90
+8 -1
View File
@@ -683,7 +683,10 @@ module psb_d_base_mat_mod
!! 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.
!! versions with the standard arrays.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
@@ -784,6 +787,10 @@ module psb_d_base_mat_mod
!! Y = alpha*op(A^-1)*X + beta*Y
!!
!! Internal workhorse called by vect_cssv.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
!! \param A the input sparse matrix
base/modules/psb_s_base_mat_mod.f90
+8 -1
View File
@@ -683,7 +683,10 @@ module psb_s_base_mat_mod
!! 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.
!! versions with the standard arrays.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
@@ -784,6 +787,10 @@ module psb_s_base_mat_mod
!! Y = alpha*op(A^-1)*X + beta*Y
!!
!! Internal workhorse called by vect_cssv.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
!! \param A the input sparse matrix
base/modules/psb_z_base_mat_mod.f90
+8 -1
View File
@@ -683,7 +683,10 @@ module psb_z_base_mat_mod
!! 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.
!! versions with the standard arrays.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
@@ -784,6 +787,10 @@ module psb_z_base_mat_mod
!! Y = alpha*op(A^-1)*X + beta*Y
!!
!! Internal workhorse called by vect_cssv.
!! Must be overridden explicitly in case of non standard memory
!! management; an example would be external memory allocation
!! in attached processors such as GPUs.
!!
!!
!! \param alpha Scaling factor for Ax
!! \param A the input sparse matrix
base/serial/psb_spdot_srtd.f90
+1 -1
View File
@@ -140,7 +140,7 @@ subroutine psb_d_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info)
integer(psb_ipk_) :: i,j,k, ipx, ipy, isz
real(psb_dpk_) :: acc
info=psb_success_
info = psb_success_
nz = 0
ipx = 1
ipy = 1
prec/psb_c_base_prec_mod.f90
+10 -10
View File
@@ -91,7 +91,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -127,7 +127,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -158,7 +158,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -194,7 +194,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -226,7 +226,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -258,7 +258,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -290,7 +290,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -321,7 +321,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -354,7 +354,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -385,7 +385,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
prec/psb_d_base_prec_mod.f90
+10 -10
View File
@@ -91,7 +91,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -127,7 +127,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -158,7 +158,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -194,7 +194,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -226,7 +226,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -258,7 +258,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -290,7 +290,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -321,7 +321,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -354,7 +354,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -385,7 +385,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
prec/psb_s_base_prec_mod.f90
+10 -10
View File
@@ -91,7 +91,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -127,7 +127,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -158,7 +158,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -194,7 +194,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -226,7 +226,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -258,7 +258,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -290,7 +290,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -321,7 +321,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -354,7 +354,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -385,7 +385,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
prec/psb_z_base_prec_mod.f90
+10 -10
View File
@@ -91,7 +91,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -127,7 +127,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -158,7 +158,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -194,7 +194,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -226,7 +226,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -258,7 +258,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -290,7 +290,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -321,7 +321,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -354,7 +354,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)
@@ -385,7 +385,7 @@ contains
!
! This is the base version and we should throw an error.
! Or should it be the NULL preonditioner???
! Or should it be the NULL preconditioner???
!
info = 700
call psb_errpush(info,name)