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

Fix settings in samples/PDEGEN

Browse Source
TestFerdous
Salvatore Filippone 3 years ago
parent af75364c54
commit 9bc8b540b3
4 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File

8
samples/advanced/pdegen/amg_d_pde2d.f90
Unescape Escape View File

@ -338,12 +338,12 @@ program amg_d_pde2d
call prec%set('sub_prol', p_choice%prol2, info,pos='post') call prec%set('sub_prol', p_choice%prol2, info,pos='post')
select case(trim(psb_toupper(p_choice%solve2))) select case(trim(psb_toupper(p_choice%solve2)))
case('INVK') case('INVK')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('INVT') case('INVT')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('AINV') case('AINV')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
call prec%set('ainv_alg', p_choice%variant, info) call prec%set('ainv_alg', p_choice%variant2, info)
case default case default
call prec%set('sub_solve', p_choice%solve2, info, pos='post') call prec%set('sub_solve', p_choice%solve2, info, pos='post')
end select end select

8
samples/advanced/pdegen/amg_d_pde3d.f90
Unescape Escape View File

@ -342,12 +342,12 @@ program amg_d_pde3d
call prec%set('sub_prol', p_choice%prol2, info,pos='post') call prec%set('sub_prol', p_choice%prol2, info,pos='post')
select case(trim(psb_toupper(p_choice%solve2))) select case(trim(psb_toupper(p_choice%solve2)))
case('INVK') case('INVK')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('INVT') case('INVT')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('AINV') case('AINV')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
call prec%set('ainv_alg', p_choice%variant, info) call prec%set('ainv_alg', p_choice%variant2, info)
case default case default
call prec%set('sub_solve', p_choice%solve2, info, pos='post') call prec%set('sub_solve', p_choice%solve2, info, pos='post')
end select end select

8
samples/advanced/pdegen/amg_s_pde2d.f90
Unescape Escape View File

@ -338,12 +338,12 @@ program amg_s_pde2d
call prec%set('sub_prol', p_choice%prol2, info,pos='post') call prec%set('sub_prol', p_choice%prol2, info,pos='post')
select case(trim(psb_toupper(p_choice%solve2))) select case(trim(psb_toupper(p_choice%solve2)))
case('INVK') case('INVK')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('INVT') case('INVT')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('AINV') case('AINV')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
call prec%set('ainv_alg', p_choice%variant, info) call prec%set('ainv_alg', p_choice%variant2, info)
case default case default
call prec%set('sub_solve', p_choice%solve2, info, pos='post') call prec%set('sub_solve', p_choice%solve2, info, pos='post')
end select end select

8
samples/advanced/pdegen/amg_s_pde3d.f90
Unescape Escape View File

@ -342,12 +342,12 @@ program amg_s_pde3d
call prec%set('sub_prol', p_choice%prol2, info,pos='post') call prec%set('sub_prol', p_choice%prol2, info,pos='post')
select case(trim(psb_toupper(p_choice%solve2))) select case(trim(psb_toupper(p_choice%solve2)))
case('INVK') case('INVK')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('INVT') case('INVT')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
case('AINV') case('AINV')
call prec%set('sub_solve', p_choice%solve, info) call prec%set('sub_solve', p_choice%solve2, info)
call prec%set('ainv_alg', p_choice%variant, info) call prec%set('ainv_alg', p_choice%variant2, info)
case default case default
call prec%set('sub_solve', p_choice%solve2, info, pos='post') call prec%set('sub_solve', p_choice%solve2, info, pos='post')
end select end select

Write Preview
Loading…
Cancel
Save