TABLE OF CONTENTS
::pwtk::formatCoor
SYNOPSIS
proc ::pwtk::formatCoor {coor} {
PURPOSE
Format the coordinates (Coor) for pretty printout.
ARGUMENT
- coor -- atomi coordinates in the form:
symb x y z ...
or
symb x y z fx fy fz ...
SOURCE
variable fmt_coor set result "" foreach line [split $coor \n] { set len [llength $line] if { $len == 4 || $len == 7 } { append result [format $fmt_coor($len) {*}$line] } } return $result }