From 9c281967e7398f14050da93e915d2f03216deaba Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 10 Feb 2012 18:39:01 +0000 Subject: [PATCH] *** empty log message *** --- base/serial/impl/psb_base_mat_impl.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/base/serial/impl/psb_base_mat_impl.f90 b/base/serial/impl/psb_base_mat_impl.f90 index 1a8c0336..1ca4ce98 100644 --- a/base/serial/impl/psb_base_mat_impl.f90 +++ b/base/serial/impl/psb_base_mat_impl.f90 @@ -100,7 +100,7 @@ subroutine psb_base_reinit(a,clear) 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_error_mod 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 class(psb_base_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) - integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:)