fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-19 04:12:11 +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)
tests/fileread/mld_cf_sample.f90
+1 -1
View File
@@ -361,7 +361,7 @@ program mld_cf_sample
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults
tests/fileread/mld_df_sample.f90
+1 -1
View File
@@ -361,7 +361,7 @@ program mld_df_sample
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults
tests/fileread/mld_sf_sample.f90
+1 -1
View File
@@ -361,7 +361,7 @@ program mld_sf_sample
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults
tests/fileread/mld_zf_sample.f90
+1 -1
View File
@@ -361,7 +361,7 @@ program mld_zf_sample
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults
tests/pdegen/mld_d_pde2d.f90
+2 -2
View File
@@ -248,7 +248,7 @@ contains
m = idim*idim
n = m
nnz = 7*((n+np-1)/np)
if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
if (iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
t0 = psb_wtime()
select case(partition_)
case(1)
@@ -687,7 +687,7 @@ program mld_d_pde2d
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults
tests/pdegen/mld_d_pde3d.f90
+1 -1
View File
@@ -727,7 +727,7 @@ program mld_d_pde3d
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults
tests/pdegen/mld_s_pde2d.f90
+2 -2
View File
@@ -248,7 +248,7 @@ contains
m = idim*idim
n = m
nnz = 7*((n+np-1)/np)
if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
if (iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
t0 = psb_wtime()
select case(partition_)
case(1)
@@ -687,7 +687,7 @@ program mld_s_pde2d
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults
tests/pdegen/mld_s_pde3d.f90
+1 -1
View File
@@ -727,7 +727,7 @@ program mld_s_pde3d
!
! initialize the preconditioner
!
call prec%init(p_choice%ptype,info)
call prec%init(ictxt,p_choice%ptype,info)
select case(trim(psb_toupper(p_choice%ptype)))
case ('NONE','NOPREC')
! Do nothing, keep defaults