TABLE OF CONTENTS

::pwtk::pwi::getAtmPosUnit

SYNOPSIS

proc ::pwtk::pwi::getAtmPosUnit {{enforce {}}} {

USAGE

   ::pwtk::pwi::getAtmPosUnit ?enforce?

PURPOSE

Get the unit in which ATOMIC_POSITIONS are specified. If the ATOMIC_POSITIONS card is specified without the explicit unit, an empty string is returned, unless enforce != "".

ARGUMENT

SOURCE

    set unit [::pwtk::input::cardGetFlags ATOMIC_POSITIONS trim]
    if { $unit eq {} && $enforce ne {} } {
        set unit alat
    }
    return $unit
}