TABLE OF CONTENTS

::pwtk::pwi::getNTyp

SYNOPSIS

proc ::pwtk::pwi::getNTyp {} {

PURPOSE

Return number of species in ATOMIC_SPECIES card

SOURCE

    set species [::pwtk::input::cardGetContent ATOMIC_SPECIES]
    set ntyp    0

    foreach line [split $species \n] {  
        if { [llength $line] == 3 } {
            incr ntyp
        }
    }
    return $ntyp
}