fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix wrong call in lv%bld

Browse Source
This commit is contained in:
Salvatore Filippone
2017-12-30 11:36:08 +01:00
parent 4e88068e2a
commit 5783117209
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_cnv.f90
+1 -1
View File
@@ -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() &
mlprec/impl/level/mld_d_base_onelev_cnv.f90
+1 -1
View File
@@ -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() &
mlprec/impl/level/mld_s_base_onelev_cnv.f90
+1 -1
View File
@@ -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() &
mlprec/impl/level/mld_z_base_onelev_cnv.f90
+1 -1
View File
@@ -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() &