Fix jac%cnv

5 years ago · 8f60a49fc6
parent de75eec402
commit 8f60a49fc6
4 changed files with 4 additions and 4 deletions
--- a/mlprec/impl/smoother/mld_c_jac_smoother_cnv.f90
+++ b/mlprec/impl/smoother/mld_c_jac_smoother_cnv.f90
@ -59,7 +59,7 @@ subroutine mld_c_jac_smoother_cnv(sm,info,amold,vmold,imold)


  if (info == psb_success_) then
-    if ((.not.associated(sm%pa)).and.(sm%nd%is_asb())) then
+    if (sm%nd%is_asb()) then
      if (present(amold)) then 
        call sm%nd%cscnv(info,&
             & mold=amold,dupl=psb_dupl_add_)
--- a/mlprec/impl/smoother/mld_d_jac_smoother_cnv.f90
+++ b/mlprec/impl/smoother/mld_d_jac_smoother_cnv.f90
@ -59,7 +59,7 @@ subroutine mld_d_jac_smoother_cnv(sm,info,amold,vmold,imold)


  if (info == psb_success_) then
-    if ((.not.associated(sm%pa)).and.(sm%nd%is_asb())) then
+    if (sm%nd%is_asb()) then
      if (present(amold)) then 
        call sm%nd%cscnv(info,&
             & mold=amold,dupl=psb_dupl_add_)
--- a/mlprec/impl/smoother/mld_s_jac_smoother_cnv.f90
+++ b/mlprec/impl/smoother/mld_s_jac_smoother_cnv.f90
@ -59,7 +59,7 @@ subroutine mld_s_jac_smoother_cnv(sm,info,amold,vmold,imold)


  if (info == psb_success_) then
-    if ((.not.associated(sm%pa)).and.(sm%nd%is_asb())) then
+    if (sm%nd%is_asb()) then
      if (present(amold)) then 
        call sm%nd%cscnv(info,&
             & mold=amold,dupl=psb_dupl_add_)
--- a/mlprec/impl/smoother/mld_z_jac_smoother_cnv.f90
+++ b/mlprec/impl/smoother/mld_z_jac_smoother_cnv.f90
@ -59,7 +59,7 @@ subroutine mld_z_jac_smoother_cnv(sm,info,amold,vmold,imold)


  if (info == psb_success_) then
-    if ((.not.associated(sm%pa)).and.(sm%nd%is_asb())) then
+    if (sm%nd%is_asb()) then
      if (present(amold)) then 
        call sm%nd%cscnv(info,&
             & mold=amold,dupl=psb_dupl_add_)