********> bugfix.45
Author: jw caldwell
Date:   11-aug-1999

Programs: sander

Severity: moderate

Description: when more than one ion is present for the 
three body calcs a pointer is set incorrectly

Fix: apply diff below to tripl.f


*** tripl.f.old	Wed Aug 11 18:08:10 1999
--- tripl.f	Wed Aug 11 18:09:32 1999
***************
*** 93,99 ****
               lpack1 = lpack1 + npack
  #endif
  
-              jt_cnt = 0
               do 80 jn = 1,ipr
                 j = ix1(jn)
                 if (ityp(j).eq.iat2(jj)) then
--- 93,98 ----