TABLE OF CONTENTS
::pwtk::isAtomLabel
SYNOPSIS
proc ::pwtk::isAtomLabel {string} {
PURPOSE
Return 1 if string is an atom label accodint to the QE syntax, and 0 otherwise
BEWARE: if string is an atomic number, 0 is returned!
QE-syntax for atomic label:
chemical-symbol X (1 or 2 characters, case-insensitive) or chemical-symbol plus a number or a letter, Xn (e.g. Fe1) or X_* or X-* (e.g. C1, C_h)
max total length cannot exceed 3 characters!
SOURCE
if { [string is double $string] || [string length $string] > 3 } { return 0 } if { [atomSymbol $string] ne "X" } { return 1 } else { return 0 } }