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 13 years ago
parent 982ae56abe
commit 9c281967e7
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File

3
base/serial/impl/psb_base_mat_impl.f90
Unescape Escape View File

@ -100,7 +100,7 @@ subroutine psb_base_reinit(a,clear)
end subroutine psb_base_reinit end subroutine psb_base_reinit
subroutine psb_base_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) subroutine psb_base_sparse_print(iout,a,iv,head,ivr,ivc)
use psb_base_mat_mod, psb_protect_name => psb_base_sparse_print use psb_base_mat_mod, psb_protect_name => psb_base_sparse_print
use psb_error_mod use psb_error_mod
implicit none implicit none
@ -108,7 +108,6 @@ subroutine psb_base_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc)
integer(psb_ipk_), intent(in) :: iout integer(psb_ipk_), intent(in) :: iout
class(psb_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(in) :: a
integer(psb_ipk_), intent(in), optional :: iv(:) integer(psb_ipk_), intent(in), optional :: iv(:)
integer(psb_ipk_), intent(in), optional :: eirs,eics
character(len=*), optional :: head character(len=*), optional :: head
integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:)

Write Preview
Loading…
Cancel
Save