fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 20:02:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Changed order of precset irpcparm fields.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-10-25 11:42:37 +00:00
parent 228c703069
commit 2d87bbae3b
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/prec/psb_dprecset.f90
+5 -5
View File
@@ -179,11 +179,11 @@ subroutine psb_dprecset(p,ptype,info,iv,rs,rv,ilev,nlev)
isz = size(iv)
if (isz >= 1) p%baseprecv(ilev_)%iprcparm(ml_type_) = iv(1)
if (isz >= 2) p%baseprecv(ilev_)%iprcparm(aggr_alg_) = iv(2)
if (isz >= 3) p%baseprecv(ilev_)%iprcparm(smth_kind_) = iv(3)
if (isz >= 4) p%baseprecv(ilev_)%iprcparm(coarse_mat_) = iv(4)
if (isz >= 5) p%baseprecv(ilev_)%iprcparm(smth_pos_) = iv(5)
if (isz >= 6) p%baseprecv(ilev_)%iprcparm(f_type_) = iv(6)
if (isz >= 7) p%baseprecv(ilev_)%iprcparm(jac_sweeps_) = iv(7)
if (isz >= 3) p%baseprecv(ilev_)%iprcparm(coarse_mat_) = iv(3)
if (isz >= 4) p%baseprecv(ilev_)%iprcparm(smth_pos_) = iv(4)
if (isz >= 5) p%baseprecv(ilev_)%iprcparm(f_type_) = iv(5)
if (isz >= 6) p%baseprecv(ilev_)%iprcparm(jac_sweeps_) = iv(6)
if (isz >= 7) p%baseprecv(ilev_)%iprcparm(smth_kind_) = iv(7)
end if
if (present(rs)) then
src/prec/psb_zprecset.f90
+5 -5
View File
@@ -176,11 +176,11 @@ subroutine psb_zprecset(p,ptype,info,iv,rs,rv)
isz = size(iv)
if (isz >= 1) p%baseprecv(2)%iprcparm(ml_type_) = iv(1)
if (isz >= 2) p%baseprecv(2)%iprcparm(aggr_alg_) = iv(2)
if (isz >= 3) p%baseprecv(2)%iprcparm(smth_kind_) = iv(3)
if (isz >= 4) p%baseprecv(2)%iprcparm(coarse_mat_) = iv(4)
if (isz >= 5) p%baseprecv(2)%iprcparm(smth_pos_) = iv(5)
if (isz >= 6) p%baseprecv(2)%iprcparm(f_type_) = iv(6)
if (isz >= 7) p%baseprecv(2)%iprcparm(jac_sweeps_) = iv(7)
if (isz >= 3) p%baseprecv(2)%iprcparm(coarse_mat_) = iv(3)
if (isz >= 4) p%baseprecv(2)%iprcparm(smth_pos_) = iv(4)
if (isz >= 5) p%baseprecv(2)%iprcparm(f_type_) = iv(5)
if (isz >= 6) p%baseprecv(2)%iprcparm(jac_sweeps_) = iv(6)
if (isz >= 7) p%baseprecv(2)%iprcparm(smth_kind_) = iv(7)
end if