TABLE OF CONTENTS

::pwtk::nebi::getNImages

SYNOPSIS

proc ::pwtk::nebi::getNImages {} {

PURPOSE

Return the number of explicitly specified images with ATOMIC_POSITIONS in the neb.x input.

BEWARE that genNImages is not related and does not return the value of num_of_images!

SOURCE

    set nimages 0
    foreach line [split [::pwtk::input::cardGetContent POSITIONS] \n] {
        if { [regexp {ATOMIC_POSITIONS} $line] } {
            incr nimages
        }
    }
    return $nimages
}