TABLE OF CONTENTS
::pwtk::pwi::getAtomicLabels
SYNOPSIS
proc ::pwtk::pwi::getAtomicLabels {} {
PURPOSE
Return a list of atomic-labels in ATOMIC_SPECIES card.
SOURCE
set save_input [::pwtk::input::get_] set result {} foreach line [split [::pwtk::input::cardGetContent ATOMIC_SPECIES] \n] { if { [string is space $line] } { continue } lappend result [lindex $line 0] } ::pwtk::input::set_ $save_input return $result }