fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

Browse Source 
mlprec/impl/level/mld_c_base_onelev_build.f90
 mlprec/impl/level/mld_d_base_onelev_build.f90
 mlprec/impl/level/mld_s_base_onelev_build.f90
 mlprec/impl/level/mld_z_base_onelev_build.f90

Change defaults to zero sweeps.
stopcriterion
Salvatore Filippone 9 years ago
parent 05ae06609a
commit ec7d21324d
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

6
mlprec/impl/level/mld_c_base_onelev_build.f90
Unescape Escape View File

@ -91,11 +91,11 @@ subroutine mld_c_base_onelev_build(lv,info,amold,vmold,imold)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i & 'Calling mlprcbld at level ',i
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call lv%sm%build(lv%base_a,lv%base_desc,& call lv%sm%build(lv%base_a,lv%base_desc,&
& 'F',info,amold=amold,vmold=vmold,imold=imold) & 'F',info,amold=amold,vmold=vmold,imold=imold)

6
mlprec/impl/level/mld_d_base_onelev_build.f90
Unescape Escape View File

@ -91,11 +91,11 @@ subroutine mld_d_base_onelev_build(lv,info,amold,vmold,imold)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i & 'Calling mlprcbld at level ',i
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call lv%sm%build(lv%base_a,lv%base_desc,& call lv%sm%build(lv%base_a,lv%base_desc,&
& 'F',info,amold=amold,vmold=vmold,imold=imold) & 'F',info,amold=amold,vmold=vmold,imold=imold)

6
mlprec/impl/level/mld_s_base_onelev_build.f90
Unescape Escape View File

@ -91,11 +91,11 @@ subroutine mld_s_base_onelev_build(lv,info,amold,vmold,imold)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i & 'Calling mlprcbld at level ',i
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call lv%sm%build(lv%base_a,lv%base_desc,& call lv%sm%build(lv%base_a,lv%base_desc,&
& 'F',info,amold=amold,vmold=vmold,imold=imold) & 'F',info,amold=amold,vmold=vmold,imold=imold)

6
mlprec/impl/level/mld_z_base_onelev_build.f90
Unescape Escape View File

@ -91,11 +91,11 @@ subroutine mld_z_base_onelev_build(lv,info,amold,vmold,imold)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i & 'Calling mlprcbld at level ',i
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',ione,is_int_positive) & 'Jacobi sweeps',izero,is_int_non_negative)
call lv%sm%build(lv%base_a,lv%base_desc,& call lv%sm%build(lv%base_a,lv%base_desc,&
& 'F',info,amold=amold,vmold=vmold,imold=imold) & 'F',info,amold=amold,vmold=vmold,imold=imold)

Write Preview
Loading…
Cancel
Save