*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:03:24  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE BOUNDS (BUCKET,PARENT,TREE,PARTN,UMINUS,UPLUS)
      INTEGER BUCKET,PARENT,TREE(4,1000),JTREE
      REAL PARTN(18001),UMINUS(10),UPLUS(10)
 10   JTREE=TREE(4,PARENT)
      IF((BUCKET.GT.TREE(1,PARENT).OR.JTREE.GE.0).AND.(BUCKET.LE.TREE(1
     1,PARENT).OR.JTREE.LE.0)) GOTO 30
      UPLUS(ABS(JTREE))=PARTN(PARENT)
      IF(TREE(2,PARENT).GE.0) GOTO 20
      IF(BUCKET.NE.-TREE(2,PARENT)) GOTO 60
      GOTO 50
 20   PARENT=TREE(2,PARENT)
      GOTO 10
 30   UMINUS(ABS(JTREE))=PARTN(PARENT)
      IF(TREE(3,PARENT).GE.0) GOTO 40
      IF(BUCKET.NE.-TREE(3,PARENT)) GOTO 80
      GOTO 50
 40   PARENT=TREE(3,PARENT)
      GOTO 10
 50   RETURN
 60   WRITE(6,70) BUCKET,TREE(2,PARENT)
 70   FORMAT(' LOOKING FOR LEFT BUCKET ',I5,'  BUT FOUND ',I6)
      STOP
 80   WRITE(6,90) BUCKET,TREE(3,PARENT)
 90   FORMAT(' LOOKING FOR RIGHT BUCKET ',I5,' BUT FOUND ',I6)
      STOP
      END