From 4dc21ec7e25484e560ac4b49b26caad0e7a16ccd Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 21 Oct 2018 18:34:29 +0100 Subject: [PATCH] Fix chksz in getblk. --- base/serial/impl/psb_c_base_mat_impl.F90 | 6 +++--- base/serial/impl/psb_d_base_mat_impl.F90 | 6 +++--- base/serial/impl/psb_s_base_mat_impl.F90 | 6 +++--- base/serial/impl/psb_z_base_mat_impl.F90 | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index fe016135..c463746b 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -447,7 +447,7 @@ end subroutine psb_c_base_csgetrow ! If performance is critical it can be overridden. ! subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& - & jmin,jmax,iren,append,rscale,cscale) + & jmin,jmax,iren,append,rscale,cscale,chksz) ! Output is always in COO format use psb_error_mod use psb_const_mod @@ -461,7 +461,7 @@ subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& logical, intent(in), optional :: append integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: jmin,jmax - logical, intent(in), optional :: rscale,cscale + logical, intent(in), optional :: rscale,cscale,chksz integer(psb_ipk_) :: err_act, nzin, nzout integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -522,7 +522,7 @@ subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& call a%csget(imin,imax,nzout,b%ia,b%ja,b%val,info,& & jmin=jmin, jmax=jmax, iren=iren, append=append_, & - & nzin=nzin, rscale=rscale, cscale=cscale) + & nzin=nzin, rscale=rscale, cscale=cscale, chksz=chksz) if (info /= psb_success_) goto 9999 diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index be63683a..59c9975d 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -447,7 +447,7 @@ end subroutine psb_d_base_csgetrow ! If performance is critical it can be overridden. ! subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& - & jmin,jmax,iren,append,rscale,cscale) + & jmin,jmax,iren,append,rscale,cscale,chksz) ! Output is always in COO format use psb_error_mod use psb_const_mod @@ -461,7 +461,7 @@ subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& logical, intent(in), optional :: append integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: jmin,jmax - logical, intent(in), optional :: rscale,cscale + logical, intent(in), optional :: rscale,cscale,chksz integer(psb_ipk_) :: err_act, nzin, nzout integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -522,7 +522,7 @@ subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& call a%csget(imin,imax,nzout,b%ia,b%ja,b%val,info,& & jmin=jmin, jmax=jmax, iren=iren, append=append_, & - & nzin=nzin, rscale=rscale, cscale=cscale) + & nzin=nzin, rscale=rscale, cscale=cscale, chksz=chksz) if (info /= psb_success_) goto 9999 diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index d4cf3058..aaef8dfb 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -447,7 +447,7 @@ end subroutine psb_s_base_csgetrow ! If performance is critical it can be overridden. ! subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& - & jmin,jmax,iren,append,rscale,cscale) + & jmin,jmax,iren,append,rscale,cscale,chksz) ! Output is always in COO format use psb_error_mod use psb_const_mod @@ -461,7 +461,7 @@ subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& logical, intent(in), optional :: append integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: jmin,jmax - logical, intent(in), optional :: rscale,cscale + logical, intent(in), optional :: rscale,cscale,chksz integer(psb_ipk_) :: err_act, nzin, nzout integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -522,7 +522,7 @@ subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& call a%csget(imin,imax,nzout,b%ia,b%ja,b%val,info,& & jmin=jmin, jmax=jmax, iren=iren, append=append_, & - & nzin=nzin, rscale=rscale, cscale=cscale) + & nzin=nzin, rscale=rscale, cscale=cscale, chksz=chksz) if (info /= psb_success_) goto 9999 diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index fde15356..103eeef6 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -447,7 +447,7 @@ end subroutine psb_z_base_csgetrow ! If performance is critical it can be overridden. ! subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& - & jmin,jmax,iren,append,rscale,cscale) + & jmin,jmax,iren,append,rscale,cscale,chksz) ! Output is always in COO format use psb_error_mod use psb_const_mod @@ -461,7 +461,7 @@ subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& logical, intent(in), optional :: append integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: jmin,jmax - logical, intent(in), optional :: rscale,cscale + logical, intent(in), optional :: rscale,cscale,chksz integer(psb_ipk_) :: err_act, nzin, nzout integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -522,7 +522,7 @@ subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& call a%csget(imin,imax,nzout,b%ia,b%ja,b%val,info,& & jmin=jmin, jmax=jmax, iren=iren, append=append_, & - & nzin=nzin, rscale=rscale, cscale=cscale) + & nzin=nzin, rscale=rscale, cscale=cscale, chksz=chksz) if (info /= psb_success_) goto 9999