fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix wrong call in lv%bld

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 4e88068e2a
commit 5783117209
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/level/mld_c_base_onelev_cnv.f90
Unescape Escape 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)) & if (info == psb_success_ .and. allocated(lv%sm2a)) &
& call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold) & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
if (info == psb_success_ .and. allocated(lv%wrk)) & 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()) & if (info == psb_success_.and. lv%ac%is_asb()) &
& call lv%ac%cscnv(info,mold=amold) & call lv%ac%cscnv(info,mold=amold)
if (info == psb_success_ .and. lv%desc_ac%is_ok() & if (info == psb_success_ .and. lv%desc_ac%is_ok() &

2
mlprec/impl/level/mld_d_base_onelev_cnv.f90
Unescape Escape 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)) & if (info == psb_success_ .and. allocated(lv%sm2a)) &
& call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold) & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
if (info == psb_success_ .and. allocated(lv%wrk)) & 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()) & if (info == psb_success_.and. lv%ac%is_asb()) &
& call lv%ac%cscnv(info,mold=amold) & call lv%ac%cscnv(info,mold=amold)
if (info == psb_success_ .and. lv%desc_ac%is_ok() & if (info == psb_success_ .and. lv%desc_ac%is_ok() &

2
mlprec/impl/level/mld_s_base_onelev_cnv.f90
Unescape Escape 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)) & if (info == psb_success_ .and. allocated(lv%sm2a)) &
& call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold) & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
if (info == psb_success_ .and. allocated(lv%wrk)) & 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()) & if (info == psb_success_.and. lv%ac%is_asb()) &
& call lv%ac%cscnv(info,mold=amold) & call lv%ac%cscnv(info,mold=amold)
if (info == psb_success_ .and. lv%desc_ac%is_ok() & if (info == psb_success_ .and. lv%desc_ac%is_ok() &

2
mlprec/impl/level/mld_z_base_onelev_cnv.f90
Unescape Escape 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)) & if (info == psb_success_ .and. allocated(lv%sm2a)) &
& call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold) & call lv%sm2a%cnv(info,amold=amold,vmold=vmold,imold=imold)
if (info == psb_success_ .and. allocated(lv%wrk)) & 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()) & if (info == psb_success_.and. lv%ac%is_asb()) &
& call lv%ac%cscnv(info,mold=amold) & call lv%ac%cscnv(info,mold=amold)
if (info == psb_success_ .and. lv%desc_ac%is_ok() & if (info == psb_success_ .and. lv%desc_ac%is_ok() &

Write Preview
Loading…
Cancel
Save