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]] }