diff --git a/mlprec/impl/mld_cmlprec_aply.f90 b/mlprec/impl/mld_cmlprec_aply.f90
index 94211900..672ab7d1 100644
--- a/mlprec/impl/mld_cmlprec_aply.f90
+++ b/mlprec/impl/mld_cmlprec_aply.f90
@@ -818,13 +818,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(cone,&
                & mlprec_wrk(level)%vtx,cone,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(cone,&
                & mlprec_wrk(level)%vtx,cone,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then
@@ -1029,13 +1029,13 @@ contains
         if (info == psb_success_) call p%precv(level)%sm2%apply(cone,&
              & mlprec_wrk(level)%vty,cone,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       else
         sweeps = p%precv(level)%parms%sweeps_pre
         if (info == psb_success_) call p%precv(level)%sm%apply(cone,&
              & mlprec_wrk(level)%vty,cone,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       end if
 
       if (info /= psb_success_) then
@@ -1746,13 +1746,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(cone,&
                & mlprec_wrk(level)%tx,cone,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(cone,&
                & mlprec_wrk(level)%tx,cone,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then
diff --git a/mlprec/impl/mld_dmlprec_aply.f90 b/mlprec/impl/mld_dmlprec_aply.f90
index 435602bd..83e382ce 100644
--- a/mlprec/impl/mld_dmlprec_aply.f90
+++ b/mlprec/impl/mld_dmlprec_aply.f90
@@ -818,13 +818,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(done,&
                & mlprec_wrk(level)%vtx,done,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(done,&
                & mlprec_wrk(level)%vtx,done,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then
@@ -1029,13 +1029,13 @@ contains
         if (info == psb_success_) call p%precv(level)%sm2%apply(done,&
              & mlprec_wrk(level)%vty,done,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       else
         sweeps = p%precv(level)%parms%sweeps_pre
         if (info == psb_success_) call p%precv(level)%sm%apply(done,&
              & mlprec_wrk(level)%vty,done,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       end if
 
       if (info /= psb_success_) then
@@ -1746,13 +1746,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(done,&
                & mlprec_wrk(level)%tx,done,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(done,&
                & mlprec_wrk(level)%tx,done,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then
diff --git a/mlprec/impl/mld_smlprec_aply.f90 b/mlprec/impl/mld_smlprec_aply.f90
index bdf12128..8a5f2e72 100644
--- a/mlprec/impl/mld_smlprec_aply.f90
+++ b/mlprec/impl/mld_smlprec_aply.f90
@@ -818,13 +818,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(sone,&
                & mlprec_wrk(level)%vtx,sone,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(sone,&
                & mlprec_wrk(level)%vtx,sone,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then
@@ -1029,13 +1029,13 @@ contains
         if (info == psb_success_) call p%precv(level)%sm2%apply(sone,&
              & mlprec_wrk(level)%vty,sone,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       else
         sweeps = p%precv(level)%parms%sweeps_pre
         if (info == psb_success_) call p%precv(level)%sm%apply(sone,&
              & mlprec_wrk(level)%vty,sone,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       end if
 
       if (info /= psb_success_) then
@@ -1746,13 +1746,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(sone,&
                & mlprec_wrk(level)%tx,sone,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(sone,&
                & mlprec_wrk(level)%tx,sone,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then
diff --git a/mlprec/impl/mld_zmlprec_aply.f90 b/mlprec/impl/mld_zmlprec_aply.f90
index 08bebe6e..68c0a845 100644
--- a/mlprec/impl/mld_zmlprec_aply.f90
+++ b/mlprec/impl/mld_zmlprec_aply.f90
@@ -818,13 +818,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(zone,&
                & mlprec_wrk(level)%vtx,zone,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(zone,&
                & mlprec_wrk(level)%vtx,zone,mlprec_wrk(level)%vy2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then
@@ -1029,13 +1029,13 @@ contains
         if (info == psb_success_) call p%precv(level)%sm2%apply(zone,&
              & mlprec_wrk(level)%vty,zone,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       else
         sweeps = p%precv(level)%parms%sweeps_pre
         if (info == psb_success_) call p%precv(level)%sm%apply(zone,&
              & mlprec_wrk(level)%vty,zone,mlprec_wrk(level)%vy2l,&
              & p%precv(level)%base_desc, trans,&
-             & sweeps,work,info,init='Y')
+             & sweeps,work,info,init='Z')
       end if
 
       if (info /= psb_success_) then
@@ -1746,13 +1746,13 @@ contains
           if (info == psb_success_) call p%precv(level)%sm2%apply(zone,&
                & mlprec_wrk(level)%tx,zone,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         else 
           sweeps = p%precv(level)%parms%sweeps_pre
           if (info == psb_success_) call p%precv(level)%sm%apply(zone,&
                & mlprec_wrk(level)%tx,zone,mlprec_wrk(level)%y2l,&
                & p%precv(level)%base_desc, trans,&
-               & sweeps,work,info,init='Y')
+               & sweeps,work,info,init='Z')
         end if
         
         if (info /= psb_success_) then