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

Fix inconsistency in %csget

Browse Source
remap-coarse
Salvatore Filippone 4 years ago
parent da7d49b4db
commit a673bf8bf1
8 changed files with 40 additions and 28 deletions
Show Stats Download Patch File Download Diff File

4
base/modules/serial/psb_c_mat_mod.F90
Unescape Escape View File

@ -681,7 +681,7 @@ module psb_c_mat_mod
interface interface
subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_
class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(in) :: a
integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(in) :: imin,imax
@ -692,7 +692,7 @@ module psb_c_mat_mod
logical, intent(in), optional :: append logical, intent(in), optional :: append
integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: iren(:)
integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale,chksz
end subroutine psb_c_csgetrow end subroutine psb_c_csgetrow
end interface end interface

4
base/modules/serial/psb_d_mat_mod.F90
Unescape Escape View File

@ -681,7 +681,7 @@ module psb_d_mat_mod
interface interface
subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_
class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(in) :: a
integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(in) :: imin,imax
@ -692,7 +692,7 @@ module psb_d_mat_mod
logical, intent(in), optional :: append logical, intent(in), optional :: append
integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: iren(:)
integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale,chksz
end subroutine psb_d_csgetrow end subroutine psb_d_csgetrow
end interface end interface

4
base/modules/serial/psb_s_mat_mod.F90
Unescape Escape View File

@ -681,7 +681,7 @@ module psb_s_mat_mod
interface interface
subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_
class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(in) :: a
integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(in) :: imin,imax
@ -692,7 +692,7 @@ module psb_s_mat_mod
logical, intent(in), optional :: append logical, intent(in), optional :: append
integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: iren(:)
integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale,chksz
end subroutine psb_s_csgetrow end subroutine psb_s_csgetrow
end interface end interface

4
base/modules/serial/psb_z_mat_mod.F90
Unescape Escape View File

@ -681,7 +681,7 @@ module psb_z_mat_mod
interface interface
subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_
class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(in) :: a
integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(in) :: imin,imax
@ -692,7 +692,7 @@ module psb_z_mat_mod
logical, intent(in), optional :: append logical, intent(in), optional :: append
integer(psb_ipk_), intent(in), optional :: iren(:) integer(psb_ipk_), intent(in), optional :: iren(:)
integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin
logical, intent(in), optional :: rscale,cscale logical, intent(in), optional :: rscale,cscale,chksz
end subroutine psb_z_csgetrow end subroutine psb_z_csgetrow
end interface end interface

11
base/serial/impl/psb_c_mat_impl.F90
Unescape Escape View File

@ -820,7 +820,8 @@ subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -866,9 +867,10 @@ subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999 goto 9999
endif endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -930,7 +932,8 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,&
if (info == psb_success_) then if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,& call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else else
info = psb_err_alloc_dealloc_ info = psb_err_alloc_dealloc_
end if end if

11
base/serial/impl/psb_d_mat_impl.F90
Unescape Escape View File

@ -820,7 +820,8 @@ subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -866,9 +867,10 @@ subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999 goto 9999
endif endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -930,7 +932,8 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,&
if (info == psb_success_) then if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,& call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else else
info = psb_err_alloc_dealloc_ info = psb_err_alloc_dealloc_
end if end if

11
base/serial/impl/psb_s_mat_impl.F90
Unescape Escape View File

@ -820,7 +820,8 @@ subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -866,9 +867,10 @@ subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999 goto 9999
endif endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -930,7 +932,8 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,&
if (info == psb_success_) then if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,& call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else else
info = psb_err_alloc_dealloc_ info = psb_err_alloc_dealloc_
end if end if

11
base/serial/impl/psb_z_mat_impl.F90
Unescape Escape View File

@ -820,7 +820,8 @@ subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -866,9 +867,10 @@ subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999 goto 9999
endif endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz) & jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
@ -930,7 +932,8 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,&
if (info == psb_success_) then if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,& call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale) & jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else else
info = psb_err_alloc_dealloc_ info = psb_err_alloc_dealloc_
end if end if

Write Preview
Loading…
Cancel
Save