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
        }
    }
}