fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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.
psblas3-final
Salvatore Filippone 12 years ago
parent c746ad77c0
commit 8981481336
9 changed files with 73 additions and 45 deletions
Show Stats Download Patch File Download Diff File

9
base/modules/psb_c_base_mat_mod.f90
Unescape Escape 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

9
base/modules/psb_d_base_mat_mod.f90
Unescape Escape 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

9
base/modules/psb_s_base_mat_mod.f90
Unescape Escape 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

9
base/modules/psb_z_base_mat_mod.f90
Unescape Escape 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

2
base/serial/psb_spdot_srtd.f90
Unescape Escape 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

20
prec/psb_c_base_prec_mod.f90
Unescape Escape 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)

20
prec/psb_d_base_prec_mod.f90
Unescape Escape 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)

20
prec/psb_s_base_prec_mod.f90
Unescape Escape 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)

20
prec/psb_z_base_prec_mod.f90
Unescape Escape 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)

Write Preview
Loading…
Cancel
Save