From b35b914792d38a68733b5fc6678d616b4fe6da41 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 11 Mar 2013 14:23:11 +0000
Subject: [PATCH] mld2p4-2:  mlprec/impl/mld_ccprecset.F90 
 mlprec/impl/mld_dcprecset.F90  mlprec/impl/mld_scprecset.F90 
 mlprec/impl/mld_zcprecset.F90

Revised CSETC
---
 mlprec/impl/mld_ccprecset.F90 | 2 +-
 mlprec/impl/mld_dcprecset.F90 | 2 +-
 mlprec/impl/mld_scprecset.F90 | 2 +-
 mlprec/impl/mld_zcprecset.F90 | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/mlprec/impl/mld_ccprecset.F90 b/mlprec/impl/mld_ccprecset.F90
index 78157c9d..74c36f46 100644
--- a/mlprec/impl/mld_ccprecset.F90
+++ b/mlprec/impl/mld_ccprecset.F90
@@ -645,7 +645,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev)
   if (val >=0)  then 
     call p%set(what,val,info,ilev=ilev)
   else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
   end if
 
 end subroutine mld_ccprecsetc
diff --git a/mlprec/impl/mld_dcprecset.F90 b/mlprec/impl/mld_dcprecset.F90
index 68ec452b..3b7f171c 100644
--- a/mlprec/impl/mld_dcprecset.F90
+++ b/mlprec/impl/mld_dcprecset.F90
@@ -645,7 +645,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev)
   if (val >=0)  then 
     call p%set(what,val,info,ilev=ilev)
   else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
   end if
 
 end subroutine mld_dcprecsetc
diff --git a/mlprec/impl/mld_scprecset.F90 b/mlprec/impl/mld_scprecset.F90
index 4db32fe1..2877fe8d 100644
--- a/mlprec/impl/mld_scprecset.F90
+++ b/mlprec/impl/mld_scprecset.F90
@@ -645,7 +645,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev)
   if (val >=0)  then 
     call p%set(what,val,info,ilev=ilev)
   else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
   end if
 
 end subroutine mld_scprecsetc
diff --git a/mlprec/impl/mld_zcprecset.F90 b/mlprec/impl/mld_zcprecset.F90
index bf35a43b..5d903a96 100644
--- a/mlprec/impl/mld_zcprecset.F90
+++ b/mlprec/impl/mld_zcprecset.F90
@@ -645,7 +645,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev)
   if (val >=0)  then 
     call p%set(what,val,info,ilev=ilev)
   else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
   end if
 
 end subroutine mld_zcprecsetc