TABLE OF CONTENTS


::pwtk::formatAtmPos

SYNOPSIS

proc ::pwtk::formatAtmPos {atmPos} {

PURPOSE

Format the atomic positions (AtmPos) for pretty printout.

ARGUMENT

      symb x y z
      ...

or

      symb x y z  if_pos(x) if_pos(y) if_pos(z)
      ...        

SOURCE

    variable fmt_atmPos
    set result ""
    foreach line [split $atmPos \n] {
        set len [llength $line]
        if { $len == 4 || $len == 7 } {
            append result [format $fmt_atmPos($len) {*}$line]
        }
    }
    return $result
}