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

Fixed prec%init in examples/tests.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-10-10 16:27:52 +01:00
parent 1527c5e1c2
commit 5474accddd
20 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/fileread/mld_cexample_1lev.f90
+1 -1
View File
@@ -193,7 +193,7 @@ program mld_cexample_1lev
! set RAS
call P%init('AS',info)
call P%init(ictxt,'AS',info)
! set number of overlaps
examples/fileread/mld_cexample_ml.f90
+1 -1
View File
@@ -212,7 +212,7 @@ program mld_cexample_ml
! GS sweep as pre/post-smoother and UMFPACK as coarsest-level
! solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
kmethod = 'CG'
case(2)
examples/fileread/mld_dexample_1lev.f90
+1 -1
View File
@@ -193,7 +193,7 @@ program mld_dexample_1lev
! set RAS
call P%init('AS',info)
call P%init(ictxt,'AS',info)
! set number of overlaps
examples/fileread/mld_dexample_ml.f90
+1 -1
View File
@@ -212,7 +212,7 @@ program mld_dexample_ml
! GS sweep as pre/post-smoother and UMFPACK as coarsest-level
! solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
kmethod = 'CG'
case(2)
examples/fileread/mld_sexample_1lev.f90
+1 -1
View File
@@ -193,7 +193,7 @@ program mld_sexample_1lev
! set RAS
call P%init('AS',info)
call P%init(ictxt,'AS',info)
! set number of overlaps
examples/fileread/mld_sexample_ml.f90
+1 -1
View File
@@ -212,7 +212,7 @@ program mld_sexample_ml
! GS sweep as pre/post-smoother and UMFPACK as coarsest-level
! solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
kmethod = 'CG'
case(2)
examples/fileread/mld_zexample_1lev.f90
+1 -1
View File
@@ -193,7 +193,7 @@ program mld_zexample_1lev
! set RAS
call P%init('AS',info)
call P%init(ictxt,'AS',info)
! set number of overlaps
examples/fileread/mld_zexample_ml.f90
+1 -1
View File
@@ -212,7 +212,7 @@ program mld_zexample_ml
! GS sweep as pre/post-smoother and UMFPACK as coarsest-level
! solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
kmethod = 'CG'
case(2)
examples/pdegen/mld_dexample_1lev.f90
+1 -1
View File
@@ -140,7 +140,7 @@ program mld_dexample_1lev
! set RAS
call P%init('AS',info)
call P%init(ictxt,'AS',info)
! set number of overlaps
examples/pdegen/mld_dexample_ml.f90
+3 -3
View File
@@ -168,7 +168,7 @@ program mld_dexample_ml
! GS sweep as pre/post-smoother and UMFPACK as coarsest-level
! solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
kmethod = 'CG'
case(2)
@@ -177,7 +177,7 @@ program mld_dexample_ml
! ILU(0) on the blocks) as pre- and post-smoother, and 8 block-Jacobi
! sweeps (with ILU(0) on the blocks) as coarsest-level solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
call P%set('SMOOTHER_TYPE','BJAC',info)
call P%set('COARSE_SOLVE','BJAC',info)
call P%set('COARSE_SWEEPS',8,info)
@@ -189,7 +189,7 @@ program mld_dexample_ml
! GS sweeps as pre/post-smoother, a distributed coarsest
! matrix, and MUMPS as coarsest-level solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
call P%set('ML_CYCLE','WCYCLE',info)
call P%set('SMOOTHER_SWEEPS',2,info)
call P%set('COARSE_SOLVE','MUMPS',info)
examples/pdegen/mld_sexample_1lev.f90
+1 -1
View File
@@ -140,7 +140,7 @@ program mld_sexample_1lev
! set RAS
call P%init('AS',info)
call P%init(ictxt,'AS',info)
! set number of overlaps
examples/pdegen/mld_sexample_ml.f90
+3 -3
View File
@@ -168,7 +168,7 @@ program mld_sexample_ml
! GS sweep as pre/post-smoother and UMFPACK as coarsest-level
! solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
kmethod = 'CG'
case(2)
@@ -177,7 +177,7 @@ program mld_sexample_ml
! ILU(0) on the blocks) as pre- and post-smoother, and 8 block-Jacobi
! sweeps (with ILU(0) on the blocks) as coarsest-level solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
call P%set('SMOOTHER_TYPE','BJAC',info)
call P%set('COARSE_SOLVE','BJAC',info)
call P%set('COARSE_SWEEPS',8,info)
@@ -189,7 +189,7 @@ program mld_sexample_ml
! GS sweeps as pre/post-smoother, a distributed coarsest
! matrix, and MUMPS as coarsest-level solver
call P%init('ML',info)
call P%init(ictxt,'ML',info)
call P%set('ML_CYCLE','WCYCLE',info)
call P%set('SMOOTHER_SWEEPS',2,info)
call P%set('COARSE_SOLVE','MUMPS',info)