mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 22:55:12 +00:00
mld2p4-2:
mlprec/Makefile mlprec/mld_base_prec_type.f90 mlprec/mld_c_prec_type.f90 mlprec/mld_d_umf_solver.f90 mlprec/mld_dumf_interface.c mlprec/mld_z_prec_type.f90 mlprec/mld_z_umf_solver.f90 mlprec/mld_zumf_interface.c tests/fileread/cf_sample.f90 tests/fileread/df_sample.f90 tests/fileread/runs/cfs.inp tests/fileread/runs/dfs.inp tests/fileread/runs/sfs.inp tests/fileread/runs/zfs.inp tests/fileread/sf_sample.f90 tests/fileread/zf_sample.f90 tests/pdegen/runs/ppde.inp Define Z_UMF_SOLVER.
This commit is contained in:
@@ -413,8 +413,8 @@ contains
|
||||
call read_data(prec%thr,5) ! Threshold for fact. ILU(T)
|
||||
call read_data(prec%jsweeps,5) ! Jacobi sweeps for PJAC
|
||||
if (psb_toupper(prec%prec) == 'ML') then
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%nlev,5) ! Number of levels in multilevel prec.
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%aggrkind,5) ! smoothed/raw aggregatin
|
||||
call read_data(prec%aggr_alg,5) ! local or global aggregation
|
||||
call read_data(prec%mltype,5) ! additive or multiplicative 2nd level prec
|
||||
|
||||
@@ -413,14 +413,14 @@ contains
|
||||
call read_data(prec%thr,5) ! Threshold for fact. ILU(T)
|
||||
call read_data(prec%jsweeps,5) ! Jacobi sweeps for PJAC
|
||||
if (psb_toupper(prec%prec) == 'ML') then
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%nlev,5) ! Number of levels in multilevel prec.
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%aggrkind,5) ! smoothed/raw aggregatin
|
||||
call read_data(prec%aggr_alg,5) ! local or global aggregation
|
||||
call read_data(prec%mltype,5) ! additive or multiplicative 2nd level prec
|
||||
call read_data(prec%smthpos,5) ! side: pre, post, both smoothing
|
||||
call read_data(prec%cmat,5) ! coarse mat
|
||||
call read_data(prec%csolve,5) ! Factorization type: ILU, SuperLU, UMFPACK.
|
||||
call read_data(prec%csolve,5) ! Factorization type: BJAC, SuperLU, UMFPACK.
|
||||
call read_data(prec%csbsolve,5) ! Factorization type: ILU, SuperLU, UMFPACK.
|
||||
call read_data(prec%cfill,5) ! Fill-in for factorization
|
||||
call read_data(prec%cthres,5) ! Threshold for fact. ILU(T)
|
||||
|
||||
@@ -17,7 +17,9 @@ NONE ! AS prolongation operator: NONE SUM AVG
|
||||
ILU ! AS subdomain solver: ILU MILU ILUT UMF SLU
|
||||
1 ! Fill level P for ILU(P) and ILU(T,P)
|
||||
1.d-4 ! Threshold T for ILU(T,P)
|
||||
1 ! Jacobi sweeps
|
||||
3 ! Number of levels in a multilevel preconditioner
|
||||
AS ! Smoother type JACOBI BJAC AS ignored for non-ML
|
||||
SMOOTHED ! Type of aggregation: SMOOTHED NONSMOOTHED MINENERGY
|
||||
DEC ! Type of aggregation: DEC
|
||||
MULT ! Type of multilevel correction: ADD MULT
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
young1r.mtx ! This matrix (and others) from: http://math.nist.gov/MatrixMarket/ or
|
||||
thm200x120.mtx ! This matrix (and others) from: http://math.nist.gov/MatrixMarket/ or
|
||||
NONE ! rhs | http://www.cise.ufl.edu/research/sparse/matrices/index.html
|
||||
MM ! File format: MM (Matrix Market) HB (Harwell-Boeing).
|
||||
BICGSTAB ! Iterative method: BiCGSTAB BiCG CGS RGMRES BiCGSTABL CG
|
||||
@@ -10,14 +10,16 @@ CSR ! Storage format: CSR COO JAD
|
||||
30 ! IRST (restart for RGMRES and BiCGSTABL)
|
||||
1.d-6 ! EPS
|
||||
3L-M-RAS-I-D4 ! Longer descriptive name for preconditioner (up to 20 chars)
|
||||
AS ! Preconditioner type: NONE DIAG BJAC AS ML
|
||||
ML ! Preconditioner type: NONE DIAG BJAC AS ML
|
||||
1 ! Number of overlap layers for AS preconditioner
|
||||
HALO ! AS restriction operator: NONE HALO
|
||||
NONE ! AS prolongation operator: NONE SUM AVG
|
||||
ILU ! AS subdomain solver: ILU MILU ILUT UMF SLU
|
||||
1 ! Fill level P for ILU(P) and ILU(T,P)
|
||||
1.d-4 ! Threshold T for ILU(T,P)
|
||||
1 ! Jacobi sweeps
|
||||
3 ! Number of levels in a multilevel preconditioner
|
||||
AS ! Smoother type JACOBI BJAC AS ignored for non-ML
|
||||
MINENERGY ! Type of aggregation: SMOOTHED NONSMOOTHED MINENERGY
|
||||
DEC ! Type of aggregation: DEC
|
||||
MULT ! Type of multilevel correction: ADD MULT
|
||||
|
||||
@@ -17,7 +17,9 @@ NONE ! AS prolongation operator: NONE SUM AVG
|
||||
ILU ! AS subdomain solver: ILU MILU ILUT UMF SLU
|
||||
1 ! Fill level P for ILU(P) and ILU(T,P)
|
||||
1.d-4 ! Threshold T for ILU(T,P)
|
||||
1 ! Jacobi sweeps
|
||||
3 ! Number of levels in a multilevel preconditioner
|
||||
AS ! Smoother type JACOBI BJAC AS ignored for non-ML
|
||||
SMOOTHED ! Type of aggregation: SMOOTHED NONSMOOTHED MINENERGY
|
||||
DEC ! Type of aggregation: DEC
|
||||
MULT ! Type of multilevel correction: ADD MULT
|
||||
|
||||
@@ -17,7 +17,9 @@ NONE ! AS prolongation operator: NONE SUM AVG
|
||||
ILU ! AS subdomain solver: ILU MILU ILUT UMF SLU
|
||||
1 ! Fill level P for ILU(P) and ILU(T,P)
|
||||
1.d-4 ! Threshold T for ILU(T,P)
|
||||
1 ! Jacobi sweeps
|
||||
3 ! Number of levels in a multilevel preconditioner
|
||||
AS ! Smoother type JACOBI BJAC AS ignored for non-ML
|
||||
SMOOTHED ! Type of aggregation: SMOOTHED NONSMOOTHED MINENERGY
|
||||
DEC ! Type of aggregation: DEC
|
||||
MULT ! Type of multilevel correction: ADD MULT
|
||||
|
||||
@@ -413,8 +413,8 @@ contains
|
||||
call read_data(prec%thr,5) ! Threshold for fact. ILU(T)
|
||||
call read_data(prec%jsweeps,5) ! Jacobi sweeps for PJAC
|
||||
if (psb_toupper(prec%prec) == 'ML') then
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%nlev,5) ! Number of levels in multilevel prec.
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%aggrkind,5) ! smoothed/raw aggregatin
|
||||
call read_data(prec%aggr_alg,5) ! local or global aggregation
|
||||
call read_data(prec%mltype,5) ! additive or multiplicative 2nd level prec
|
||||
|
||||
@@ -413,8 +413,8 @@ contains
|
||||
call read_data(prec%thr,5) ! Threshold for fact. ILU(T)
|
||||
call read_data(prec%jsweeps,5) ! Jacobi sweeps for PJAC
|
||||
if (psb_toupper(prec%prec) == 'ML') then
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%nlev,5) ! Number of levels in multilevel prec.
|
||||
call read_data(prec%smther,5) ! Smoother type.
|
||||
call read_data(prec%aggrkind,5) ! smoothed/raw aggregatin
|
||||
call read_data(prec%aggr_alg,5) ! local or global aggregation
|
||||
call read_data(prec%mltype,5) ! additive or multiplicative 2nd level prec
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
BICGSTAB ! Iterative method: BiCGSTAB BiCG CGS RGMRES BiCGSTABL CG
|
||||
CSR ! Storage format CSR COO JAD
|
||||
060 ! IDIM; domain size is idim**3
|
||||
040 ! IDIM; domain size is idim**3
|
||||
2 ! ISTOPC
|
||||
0200 ! ITMAX
|
||||
-1 ! ITRACE
|
||||
@@ -21,9 +21,9 @@ SMOOTHED ! Kind of aggregation: SMOOTHED, NONSMOOTHED, MINENE
|
||||
DEC ! Type of aggregation DEC SYMDEC GLB
|
||||
MULT ! Type of multilevel correction: ADD MULT
|
||||
POST ! Side of multiplicative correction PRE POST TWOSIDE (ignored for ADD)
|
||||
REPL ! Coarse level: matrix distribution DIST REPL
|
||||
DIST ! Coarse level: matrix distribution DIST REPL
|
||||
BJAC ! Coarse level: solver JACOBI BJAC UMF SLU SLUDIST
|
||||
ILU ! Coarse level: subsolver DSCALE ILU UMF SLU SLUDIST
|
||||
UMF ! Coarse level: subsolver DSCALE ILU UMF SLU SLUDIST
|
||||
1 ! Coarse level: Level-set N for ILU(N)
|
||||
1.d-4 ! Coarse level: Threshold T for ILU(T,P)
|
||||
4 ! Coarse level: Number of Jacobi sweeps
|
||||
|
||||
Reference in New Issue
Block a user