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

New example programs

Browse Source
This commit is contained in:
Salvatore Filippone
2017-10-16 16:54:39 +01:00
parent c758ee13ba
commit 69cd86f079
12 changed files with 2052 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/fileread/mld_dexample_1lev.f90
+9 -6
View File
@@ -193,12 +193,15 @@ program mld_dexample_1lev
! set RAS
call P%init('AS',info)
! set number of overlaps
call P%set('SUB_OVR',2,info)
!!$ call P%init('AS',info)
!!$
!!$ ! set number of overlaps
!!$
!!$ call P%set('SUB_OVR',2,info)
!!$
call P%init('FBGS',info)
!call prec%set('smoother_sweeps', p_choice%outer_sweeps, info)
! build the preconditioner
t1 = psb_wtime()