From 9bc8b540b3b366a97fc81c220db5e121fa670b09 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 27 Aug 2021 11:42:01 +0200 Subject: [PATCH] Fix settings in samples/PDEGEN --- samples/advanced/pdegen/amg_d_pde2d.f90 | 8 ++++---- samples/advanced/pdegen/amg_d_pde3d.f90 | 8 ++++---- samples/advanced/pdegen/amg_s_pde2d.f90 | 8 ++++---- samples/advanced/pdegen/amg_s_pde3d.f90 | 8 ++++---- 4 files changed, 16 insertions(+), 16 deletions(-) diff --git a/samples/advanced/pdegen/amg_d_pde2d.f90 b/samples/advanced/pdegen/amg_d_pde2d.f90 index d4e5ad68..92cc0a2d 100644 --- a/samples/advanced/pdegen/amg_d_pde2d.f90 +++ b/samples/advanced/pdegen/amg_d_pde2d.f90 @@ -338,12 +338,12 @@ program amg_d_pde2d call prec%set('sub_prol', p_choice%prol2, info,pos='post') select case(trim(psb_toupper(p_choice%solve2))) case('INVK') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('INVT') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('AINV') - call prec%set('sub_solve', p_choice%solve, info) - call prec%set('ainv_alg', p_choice%variant, info) + call prec%set('sub_solve', p_choice%solve2, info) + call prec%set('ainv_alg', p_choice%variant2, info) case default call prec%set('sub_solve', p_choice%solve2, info, pos='post') end select diff --git a/samples/advanced/pdegen/amg_d_pde3d.f90 b/samples/advanced/pdegen/amg_d_pde3d.f90 index b80e14df..9d3028a2 100644 --- a/samples/advanced/pdegen/amg_d_pde3d.f90 +++ b/samples/advanced/pdegen/amg_d_pde3d.f90 @@ -342,12 +342,12 @@ program amg_d_pde3d call prec%set('sub_prol', p_choice%prol2, info,pos='post') select case(trim(psb_toupper(p_choice%solve2))) case('INVK') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('INVT') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('AINV') - call prec%set('sub_solve', p_choice%solve, info) - call prec%set('ainv_alg', p_choice%variant, info) + call prec%set('sub_solve', p_choice%solve2, info) + call prec%set('ainv_alg', p_choice%variant2, info) case default call prec%set('sub_solve', p_choice%solve2, info, pos='post') end select diff --git a/samples/advanced/pdegen/amg_s_pde2d.f90 b/samples/advanced/pdegen/amg_s_pde2d.f90 index 9211441a..799c9b8f 100644 --- a/samples/advanced/pdegen/amg_s_pde2d.f90 +++ b/samples/advanced/pdegen/amg_s_pde2d.f90 @@ -338,12 +338,12 @@ program amg_s_pde2d call prec%set('sub_prol', p_choice%prol2, info,pos='post') select case(trim(psb_toupper(p_choice%solve2))) case('INVK') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('INVT') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('AINV') - call prec%set('sub_solve', p_choice%solve, info) - call prec%set('ainv_alg', p_choice%variant, info) + call prec%set('sub_solve', p_choice%solve2, info) + call prec%set('ainv_alg', p_choice%variant2, info) case default call prec%set('sub_solve', p_choice%solve2, info, pos='post') end select diff --git a/samples/advanced/pdegen/amg_s_pde3d.f90 b/samples/advanced/pdegen/amg_s_pde3d.f90 index a743b3d6..7af11945 100644 --- a/samples/advanced/pdegen/amg_s_pde3d.f90 +++ b/samples/advanced/pdegen/amg_s_pde3d.f90 @@ -342,12 +342,12 @@ program amg_s_pde3d call prec%set('sub_prol', p_choice%prol2, info,pos='post') select case(trim(psb_toupper(p_choice%solve2))) case('INVK') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('INVT') - call prec%set('sub_solve', p_choice%solve, info) + call prec%set('sub_solve', p_choice%solve2, info) case('AINV') - call prec%set('sub_solve', p_choice%solve, info) - call prec%set('ainv_alg', p_choice%variant, info) + call prec%set('sub_solve', p_choice%solve2, info) + call prec%set('ainv_alg', p_choice%variant2, info) case default call prec%set('sub_solve', p_choice%solve2, info, pos='post') end select