TABLE OF CONTENTS
::pwtk::pwi::getNAtoms
SYNOPSIS
proc ::pwtk::pwi::getNAtoms {} {
PURPOSE
Return the number of atoms in the ATOMIC_POSITIONS card.
SOURCE
set atmPos [::pwtk::input::cardGetContent ATOMIC_POSITIONS] if { [string match -nocase {*first_image*} [lindex $atmPos 0]] } { # path calculation set nat 0 foreach line [lrange [split $atmPos \n] 1 end] { if { [string match -nocase *intermediate_image* $line] || [string match -nocase *last_image* $line] } { return $nat } elseif { [llength $line] == 4 || [llength $line] == 7 } { incr nat } } } else { return [::pwtk::getNAtoms $atmPos] } }