TABLE OF CONTENTS


::pwtk::getNAtoms

SYNOPSIS

proc ::pwtk::getNAtoms {atmPos} {

PURPOSE

Return the number of atoms in the AtmPos string.

ARGUMENTS

atmPos -- the AtmPos string in the format:

           AtmSy1 x1 y1 z1 [if_pos(1) if_pos(2) if_pos(3)]
           AtmSy2 x2 y2 z2 [if_pos(1) if_pos(2) if_pos(3)]
           ...

SOURCE

    return [llength [split [::pwtk::purifyCoor $atmPos] \n]]
}