From 2d87bbae3bb9ce3c049bd0d595726f05e5af09f9 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 25 Oct 2006 11:42:37 +0000
Subject: [PATCH] Changed order of precset irpcparm fields.

---
 src/prec/psb_dprecset.f90 | 10 +++++-----
 src/prec/psb_zprecset.f90 | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/prec/psb_dprecset.f90 b/src/prec/psb_dprecset.f90
index 19504a34..c46e93ab 100644
--- a/src/prec/psb_dprecset.f90
+++ b/src/prec/psb_dprecset.f90
@@ -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 
diff --git a/src/prec/psb_zprecset.f90 b/src/prec/psb_zprecset.f90
index c85b38c2..deace711 100644
--- a/src/prec/psb_zprecset.f90
+++ b/src/prec/psb_zprecset.f90
@@ -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