diff --git a/mlprec/impl/level/mld_c_base_onelev_cnv.f90 b/mlprec/impl/level/mld_c_base_onelev_cnv.f90
index 2b57fd13..f3c9de87 100644
--- a/mlprec/impl/level/mld_c_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_cnv.f90
@@ -57,7 +57,7 @@ subroutine mld_c_base_onelev_cnv(lv,info,amold,vmold,imold)
     if (info == psb_success_ .and. allocated(lv%sm2a)) &
          & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
     if (info == psb_success_ .and. allocated(lv%wrk)) &
-         & call lv%wrk(vmold=vmold)
+         & call lv%wrk%cnv(info,vmold=vmold)
     if (info == psb_success_.and. lv%ac%is_asb()) &
          & call lv%ac%cscnv(info,mold=amold)
     if (info == psb_success_ .and. lv%desc_ac%is_ok() &
diff --git a/mlprec/impl/level/mld_d_base_onelev_cnv.f90 b/mlprec/impl/level/mld_d_base_onelev_cnv.f90
index 834e004d..26ac2d24 100644
--- a/mlprec/impl/level/mld_d_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_cnv.f90
@@ -57,7 +57,7 @@ subroutine mld_d_base_onelev_cnv(lv,info,amold,vmold,imold)
     if (info == psb_success_ .and. allocated(lv%sm2a)) &
          & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
     if (info == psb_success_ .and. allocated(lv%wrk)) &
-         & call lv%wrk(vmold=vmold)
+         & call lv%wrk%cnv(info,vmold=vmold)
     if (info == psb_success_.and. lv%ac%is_asb()) &
          & call lv%ac%cscnv(info,mold=amold)
     if (info == psb_success_ .and. lv%desc_ac%is_ok() &
diff --git a/mlprec/impl/level/mld_s_base_onelev_cnv.f90 b/mlprec/impl/level/mld_s_base_onelev_cnv.f90
index 652b2c5c..02c6e125 100644
--- a/mlprec/impl/level/mld_s_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_cnv.f90
@@ -57,7 +57,7 @@ subroutine mld_s_base_onelev_cnv(lv,info,amold,vmold,imold)
     if (info == psb_success_ .and. allocated(lv%sm2a)) &
          & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
     if (info == psb_success_ .and. allocated(lv%wrk)) &
-         & call lv%wrk(vmold=vmold)
+         & call lv%wrk%cnv(info,vmold=vmold)
     if (info == psb_success_.and. lv%ac%is_asb()) &
          & call lv%ac%cscnv(info,mold=amold)
     if (info == psb_success_ .and. lv%desc_ac%is_ok() &
diff --git a/mlprec/impl/level/mld_z_base_onelev_cnv.f90 b/mlprec/impl/level/mld_z_base_onelev_cnv.f90
index 5ac99b99..5cc2a0f3 100644
--- a/mlprec/impl/level/mld_z_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_cnv.f90
@@ -57,7 +57,7 @@ subroutine mld_z_base_onelev_cnv(lv,info,amold,vmold,imold)
     if (info == psb_success_ .and. allocated(lv%sm2a)) &
          & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
     if (info == psb_success_ .and. allocated(lv%wrk)) &
-         & call lv%wrk(vmold=vmold)
+         & call lv%wrk%cnv(info,vmold=vmold)
     if (info == psb_success_.and. lv%ac%is_asb()) &
          & call lv%ac%cscnv(info,mold=amold)
     if (info == psb_success_ .and. lv%desc_ac%is_ok() &