TABLE OF CONTENTS
::pwtk::xrelaxArgs_
SYNOPSIS
proc ::pwtk::xrelaxArgs_ {} {
PURPOSE
Parses $head $unit $coor arguments and, if needed, sets ATOMIC_POSITIONS.
SOURCE
uplevel 1 { set narg [llength $args] if { $narg == 3 } { lassign $args head unit coor ATOMIC_POSITIONS $unit $coor } elseif { $narg == 2 } { lassign $args head coor ATOMIC_POSITIONS $coor } elseif { $narg == 1 } { set head $args } } }