TABLE OF CONTENTS
::pwtk::formatAtmPos
SYNOPSIS
proc ::pwtk::formatAtmPos {atmPos} {
PURPOSE
Format the atomic positions (AtmPos) for pretty printout.
ARGUMENT
- atmPos -- atomi positions in the form:
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 }