From c5d7acd035d41ad7023137df072413f98557138e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 17 Mar 2017 09:32:49 +0000 Subject: [PATCH] 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. --- mlprec/impl/level/mld_c_base_onelev_cnv.f90 | 2 +- mlprec/impl/level/mld_d_base_onelev_cnv.f90 | 2 +- mlprec/impl/level/mld_s_base_onelev_cnv.f90 | 2 +- mlprec/impl/level/mld_z_base_onelev_cnv.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/level/mld_c_base_onelev_cnv.f90 b/mlprec/impl/level/mld_c_base_onelev_cnv.f90 index afd7787f..2f5d0d34 100644 --- 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) diff --git a/mlprec/impl/level/mld_d_base_onelev_cnv.f90 b/mlprec/impl/level/mld_d_base_onelev_cnv.f90 index e4166701..a2a991f4 100644 --- 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) diff --git a/mlprec/impl/level/mld_s_base_onelev_cnv.f90 b/mlprec/impl/level/mld_s_base_onelev_cnv.f90 index 03a4c486..96698a42 100644 --- 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) diff --git a/mlprec/impl/level/mld_z_base_onelev_cnv.f90 b/mlprec/impl/level/mld_z_base_onelev_cnv.f90 index 6292409a..615cb72a 100644 --- 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)