mld2p4:

mlprec/impl/level/mld_c_base_onelev_cnv.f90 mlprec/impl/level/mld_d_base_onelev_cnv.f90 mlprec/impl/level/mld_s_base_onelev_cnv.f90 mlprec/impl/level/mld_z_base_onelev_cnv.f90 Fix level%cnv.
8 years ago · c5d7acd035
parent 289fdc3b2a
commit c5d7acd035
4 changed files with 4 additions and 4 deletions
--- a/mlprec/impl/level/mld_c_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_cnv.f90
@ -56,7 +56,7 @@ subroutine mld_c_base_onelev_cnv(lv,info,amold,vmold,imold)
  if (any((/present(amold),present(vmold),present(imold)/))) then 
    if (allocated(lv%sm)) &
         & call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold)
-    if (info == psb_success_) &
+    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()) &
         & call lv%desc_ac%cnv(imold)
--- a/mlprec/impl/level/mld_d_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_cnv.f90
@ -56,7 +56,7 @@ subroutine mld_d_base_onelev_cnv(lv,info,amold,vmold,imold)
  if (any((/present(amold),present(vmold),present(imold)/))) then 
    if (allocated(lv%sm)) &
         & call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold)
-    if (info == psb_success_) &
+    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()) &
         & call lv%desc_ac%cnv(imold)
--- a/mlprec/impl/level/mld_s_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_cnv.f90
@ -56,7 +56,7 @@ subroutine mld_s_base_onelev_cnv(lv,info,amold,vmold,imold)
  if (any((/present(amold),present(vmold),present(imold)/))) then 
    if (allocated(lv%sm)) &
         & call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold)
-    if (info == psb_success_) &
+    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()) &
         & call lv%desc_ac%cnv(imold)
--- a/mlprec/impl/level/mld_z_base_onelev_cnv.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_cnv.f90
@ -56,7 +56,7 @@ subroutine mld_z_base_onelev_cnv(lv,info,amold,vmold,imold)
  if (any((/present(amold),present(vmold),present(imold)/))) then 
    if (allocated(lv%sm)) &
         & call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold)
-    if (info == psb_success_) &
+    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()) &
         & call lv%desc_ac%cnv(imold)