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

mld2p4:

Browse Source 
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.
stopcriterion
Salvatore Filippone 8 years ago
parent 289fdc3b2a
commit c5d7acd035
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

@ -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 (any((/present(amold),present(vmold),present(imold)/))) then
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold) & 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) & 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()) &
& call lv%desc_ac%cnv(imold) & call lv%desc_ac%cnv(imold)

2
mlprec/impl/level/mld_d_base_onelev_cnv.f90
Unescape Escape View File

@ -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 (any((/present(amold),present(vmold),present(imold)/))) then
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold) & 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) & 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()) &
& call lv%desc_ac%cnv(imold) & call lv%desc_ac%cnv(imold)

2
mlprec/impl/level/mld_s_base_onelev_cnv.f90
Unescape Escape View File

@ -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 (any((/present(amold),present(vmold),present(imold)/))) then
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold) & 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) & 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()) &
& call lv%desc_ac%cnv(imold) & call lv%desc_ac%cnv(imold)

2
mlprec/impl/level/mld_z_base_onelev_cnv.f90
Unescape Escape View File

@ -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 (any((/present(amold),present(vmold),present(imold)/))) then
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%cnv(info,amold=amold,vmold=vmold,imold=imold) & 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) & 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()) &
& call lv%desc_ac%cnv(imold) & call lv%desc_ac%cnv(imold)

Write Preview
Loading…
Cancel
Save