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)