fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 93fe6c3fd3
commit 50c9a04a1d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
src/modules/psb_tools_mod.f90
Unescape Escape View File

@ -391,7 +391,7 @@ Module psb_tools_mod
integer, optional, intent(in) :: dupl integer, optional, intent(in) :: dupl
end subroutine psb_iinsvv end subroutine psb_iinsvv
! 2-D double precision version ! 2-D double precision version
subroutine psb_iinsi(m,val,irw, x,desc_a,info,dupl) subroutine psb_iinsi(m,irw,val, x,desc_a,info,dupl)
use psb_descriptor_type use psb_descriptor_type
integer, intent(in) :: m integer, intent(in) :: m
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -402,7 +402,7 @@ Module psb_tools_mod
integer, optional, intent(in) :: dupl integer, optional, intent(in) :: dupl
end subroutine psb_iinsi end subroutine psb_iinsi
! 1-D double precision version ! 1-D double precision version
subroutine psb_iinsvi(m, val,irw, x,desc_a,info,dupl) subroutine psb_iinsvi(m, irw,val, x,desc_a,info,dupl)
use psb_descriptor_type use psb_descriptor_type
integer, intent(in) :: m integer, intent(in) :: m
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

Write Preview
Loading…
Cancel
Save