TABLE OF CONTENTS
::pwtk::pwi::reduceConvThr
SYNOPSIS
proc ::pwtk::pwi::reduceConvThr {{factor 10.0}} {
PURPOSE
Scale (loosen) a current value of conv_thr by a suplied factor, i.e., conv_thr = factor*conv_thr.
ARGUMENTS
- factor -- [optional] factor for the conv_thr reduction (default value = 10)
SOURCE
set conv_thr [::pwtk::input::namelistGetVarValue ELECTRONS conv_thr] if { $conv_thr == {} } { set conv_thr 1e-6 } ELECTRONS " conv_thr = [expr [::pwtk::f2c_number $factor*$conv_thr]] " }