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

psblas2-dev:

Browse Source 
base/modules/psb_serial_mod.f90
 base/serial/Makefile
 base/serial/psb_dspscal.f90
 base/serial/psb_dspshift.f90

Added shift routine for usage with eigenvalues. To be done: general
add routine.
This commit is contained in:
Salvatore Filippone
2008-05-13 15:37:13 +00:00
parent f1686fc022
commit 608c97e9d4
4 changed files with 170 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_serial_mod.f90
+17
View File
@@ -432,6 +432,12 @@ module psb_serial_mod
end interface
interface psb_sp_scal
subroutine psb_dspscals(a,d,info)
use psb_spmat_type
type(psb_dspmat_type), intent(inout) :: a
real(psb_dpk_), intent(in) :: d
integer, intent(out) :: info
end subroutine psb_dspscals
subroutine psb_dspscal(a,d,info)
use psb_spmat_type
type(psb_dspmat_type), intent(inout) :: a
@@ -446,6 +452,17 @@ module psb_serial_mod
end subroutine psb_zspscal
end interface
interface psb_sp_shift
subroutine psb_dspshift(alpha,a,beta,b,info)
use psb_spmat_type
type(psb_dspmat_type), intent(in) :: a
type(psb_dspmat_type), intent(out) :: b
real(psb_dpk_), intent(in) :: alpha, beta
integer, intent(out) :: info
end subroutine psb_dspshift
end interface
interface psb_sp_getblk
subroutine psb_dspgtblk(irw,a,b,info,append,iren,lrw,srt)
use psb_spmat_type