mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 22:55:12 +00:00
mld2p4-2:
docs/html/img100.png docs/html/img101.png docs/html/img102.png docs/html/img103.png docs/html/img104.png docs/html/img94.png docs/html/img95.png docs/html/img96.png docs/html/img97.png docs/html/img98.png docs/html/img99.png docs/html/node12.html docs/html/node14.html docs/html/node15.html docs/html/node18.html docs/html/node20.html docs/html/node26.html docs/mld2p4-2.0-guide.pdf docs/src/gettingstarted.tex docs/src/userinterface.tex mlprec/archive/mld_c_as_smoother_impl.f90 mlprec/archive/mld_c_onelev_impl.f90 mlprec/archive/mld_d_as_smoother_impl.f90 mlprec/archive/mld_d_onelev_impl.f90 mlprec/archive/mld_s_as_smoother_impl.f90 mlprec/archive/mld_s_onelev_impl.f90 mlprec/archive/mld_z_as_smoother_impl.f90 mlprec/impl/level/mld_c_base_onelev_check.f90 mlprec/impl/level/mld_d_base_onelev_check.f90 mlprec/impl/level/mld_s_base_onelev_check.f90 mlprec/impl/level/mld_z_base_onelev_check.f90 mlprec/impl/mld_cmlprec_bld.f90 mlprec/impl/mld_dmlprec_bld.f90 mlprec/impl/mld_smlprec_bld.f90 mlprec/impl/mld_z_onelev_impl.f90 mlprec/impl/mld_zmlprec_bld.f90 mlprec/impl/smoother/mld_c_as_smoother_check.f90 mlprec/impl/smoother/mld_d_as_smoother_check.f90 mlprec/impl/smoother/mld_s_as_smoother_check.f90 mlprec/impl/smoother/mld_z_as_smoother_check.f90 mlprec/mld_base_prec_type.F90 mlprec/mld_c_ilu_solver.f90 mlprec/mld_d_ilu_solver.f90 mlprec/mld_s_ilu_solver.f90 mlprec/mld_z_ilu_solver.f90 tests/fileread/Makefile tests/fileread/df_sample.f90 tests/fileread/runs/dfs.inp Unify checks for INT nonnegative or positive.
This commit is contained in:
+12
-10
@@ -108,7 +108,7 @@ Setup and application of the default multi-level Schwarz preconditioner.
|
||||
! preconditioner
|
||||
type(mld_dprec_type) :: P
|
||||
! right-hand side and solution vectors
|
||||
real(kind(1.d0)) :: b(:), x(:)
|
||||
type(psb_d_vect_type) :: b, x
|
||||
... ...
|
||||
!
|
||||
! initialize the parallel environment
|
||||
@@ -122,8 +122,9 @@ Setup and application of the default multi-level Schwarz preconditioner.
|
||||
!
|
||||
! initialize the default multi-level preconditioner, i.e. hybrid
|
||||
! Schwarz, using RAS (with overlap 1 and ILU(0) on the blocks)
|
||||
! as post-smoother and 4 block-Jacobi sweeps (with UMFPACK LU
|
||||
! on the blocks) as distributed coarse-level solver
|
||||
! as pre- and post-smoother and 4 block-Jacobi sweeps
|
||||
! (with UMFPACK LU on the blocks) as distributed coarse-level
|
||||
! solver.
|
||||
call mld_precinit(P,'ML',info)
|
||||
!
|
||||
! build the preconditioner
|
||||
@@ -208,9 +209,10 @@ Setup of a hybrid three-level Schwarz preconditioner.</CAPTION>
|
||||
! a coarsest matrix replicated on the processors, and the
|
||||
! LU factorization from UMFPACK as coarse-level solver
|
||||
call mld_precinit(P,'ML',info,nlev=3)
|
||||
call_mld_precset(P,mld_smoother_type_,'BJAC',info)
|
||||
call mld_precset(P,mld_coarse_mat_,'REPL',info)
|
||||
call mld_precset(P,mld_coarse_solve_,'UMF',info)
|
||||
call_mld_precset(P,'SMOOTHER_TYPE','BJAC',info)
|
||||
call_mld_precset(P,'SMOOTHER_POS,'POST'w,info)
|
||||
call mld_precset(P,'COARSE_MAT','REPL',info)
|
||||
call mld_precset(P,'COARSE_SOLVE','UMF',info)
|
||||
... ...
|
||||
</PRE>
|
||||
</TD></TR>
|
||||
@@ -240,9 +242,9 @@ Setup of an additive three-level Schwarz preconditioner.</CAPTION>
|
||||
! post-smoother, and 5 block-Jacobi sweeps (with UMFPACK LU
|
||||
! on the blocks) as distributed coarsest-level solver
|
||||
call mld_precinit(P,'ML',info,nlev=3)
|
||||
call mld_precset(P,mld_ml_type_,'ADD',info)
|
||||
call_mld_precset(P,mld_smoother_pos_,'TWOSIDE',info)
|
||||
call mld_precset(P,mld_coarse_sweeps_,5,info)
|
||||
call mld_precset(P,'ML_TYPE','ADD',info)
|
||||
call_mld_precset(P,'SMOOTHER_POS','TWOSIDE',info)
|
||||
call mld_precset(P,'COARSE_SWEEPS',5,info)
|
||||
... ...
|
||||
</PRE>
|
||||
</TD></TR>
|
||||
@@ -269,7 +271,7 @@ Setup of a one-level Schwarz preconditioner.</CAPTION>
|
||||
... ...
|
||||
! set RAS with overlap 2 and ILU(0) on the local blocks
|
||||
call mld_precinit(P,'AS',info)
|
||||
call mld_precset(P,mld_sub_ovr_,2,info)
|
||||
call mld_precset(P,'SUB_OVR',2,info)
|
||||
... ...
|
||||
</PRE>
|
||||
</TD></TR>
|
||||
|
||||
Reference in New Issue
Block a user