TABLE OF CONTENTS


::pwtk::pwi::reduceConvThr

SYNOPSIS

proc ::pwtk::pwi::reduceConvThr {{factor 10.0}} {

PURPOSE

Scale (loose) a current value of conv_thr by a suplied factor, i.e., conv_thr = factor*conv_thr.

ARGUMENTS

RETURN VALUE

New value of "conv_thr".

SOURCE

    set conv_thr [::pwtk::input::namelistGetVarValue ELECTRONS conv_thr]
    ::pwtk::ifset conv_thr 1e-6
    set conv_thr [::pwtk::mathParser $factor*$conv_thr]
    ELECTRONS " conv_thr = $conv_thr "
    return $conv_thr
}