From ec7d21324df65f245aa580937528084d963279f7 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 6 Jun 2016 19:39:54 +0000 Subject: [PATCH] mld2p4: 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. --- mlprec/impl/level/mld_c_base_onelev_build.f90 | 6 +++--- mlprec/impl/level/mld_d_base_onelev_build.f90 | 6 +++--- mlprec/impl/level/mld_s_base_onelev_build.f90 | 6 +++--- mlprec/impl/level/mld_z_base_onelev_build.f90 | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/mlprec/impl/level/mld_c_base_onelev_build.f90 b/mlprec/impl/level/mld_c_base_onelev_build.f90 index e1f64075..10b56bdf 100644 --- a/mlprec/impl/level/mld_c_base_onelev_build.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_build.f90 @@ -91,11 +91,11 @@ subroutine mld_c_base_onelev_build(lv,info,amold,vmold,imold) & write(debug_unit,*) me,' ',trim(name),& & 'Calling mlprcbld at level ',i 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,& - & 'Jacobi sweeps',ione,is_int_positive) + & 'Jacobi sweeps',izero,is_int_non_negative) 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,& & 'F',info,amold=amold,vmold=vmold,imold=imold) diff --git a/mlprec/impl/level/mld_d_base_onelev_build.f90 b/mlprec/impl/level/mld_d_base_onelev_build.f90 index 9f317db2..e9f92cfa 100644 --- a/mlprec/impl/level/mld_d_base_onelev_build.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_build.f90 @@ -91,11 +91,11 @@ subroutine mld_d_base_onelev_build(lv,info,amold,vmold,imold) & write(debug_unit,*) me,' ',trim(name),& & 'Calling mlprcbld at level ',i 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,& - & 'Jacobi sweeps',ione,is_int_positive) + & 'Jacobi sweeps',izero,is_int_non_negative) 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,& & 'F',info,amold=amold,vmold=vmold,imold=imold) diff --git a/mlprec/impl/level/mld_s_base_onelev_build.f90 b/mlprec/impl/level/mld_s_base_onelev_build.f90 index 223bc6e9..e39a21c9 100644 --- a/mlprec/impl/level/mld_s_base_onelev_build.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_build.f90 @@ -91,11 +91,11 @@ subroutine mld_s_base_onelev_build(lv,info,amold,vmold,imold) & write(debug_unit,*) me,' ',trim(name),& & 'Calling mlprcbld at level ',i 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,& - & 'Jacobi sweeps',ione,is_int_positive) + & 'Jacobi sweeps',izero,is_int_non_negative) 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,& & 'F',info,amold=amold,vmold=vmold,imold=imold) diff --git a/mlprec/impl/level/mld_z_base_onelev_build.f90 b/mlprec/impl/level/mld_z_base_onelev_build.f90 index 6937c690..683a014d 100644 --- a/mlprec/impl/level/mld_z_base_onelev_build.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_build.f90 @@ -91,11 +91,11 @@ subroutine mld_z_base_onelev_build(lv,info,amold,vmold,imold) & write(debug_unit,*) me,' ',trim(name),& & 'Calling mlprcbld at level ',i 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,& - & 'Jacobi sweeps',ione,is_int_positive) + & 'Jacobi sweeps',izero,is_int_non_negative) 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,& & 'F',info,amold=amold,vmold=vmold,imold=imold)