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
}