MINICERN/mathlib/gen/divon/bounds.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:03:24  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE BOUNDS (BUCKET,PARENT,TREE,PARTN,UMINUS,UPLUS)
  11       INTEGER BUCKET,PARENT,TREE(4,1000),JTREE
  12       REAL PARTN(18001),UMINUS(10),UPLUS(10)
  13  10   JTREE=TREE(4,PARENT)
  14       IF((BUCKET.GT.TREE(1,PARENT).OR.JTREE.GE.0).AND.(BUCKET.LE.TREE(1
  15      1,PARENT).OR.JTREE.LE.0)) GOTO 30
  16       UPLUS(ABS(JTREE))=PARTN(PARENT)
  17       IF(TREE(2,PARENT).GE.0) GOTO 20
  18       IF(BUCKET.NE.-TREE(2,PARENT)) GOTO 60
  19       GOTO 50
  20  20   PARENT=TREE(2,PARENT)
  21       GOTO 10
  22  30   UMINUS(ABS(JTREE))=PARTN(PARENT)
  23       IF(TREE(3,PARENT).GE.0) GOTO 40
  24       IF(BUCKET.NE.-TREE(3,PARENT)) GOTO 80
  25       GOTO 50
  26  40   PARENT=TREE(3,PARENT)
  27       GOTO 10
  28  50   RETURN
  29  60   WRITE(6,70) BUCKET,TREE(2,PARENT)
  30  70   FORMAT(' LOOKING FOR LEFT BUCKET ',I5,'  BUT FOUND ',I6)
  31       STOP
  32  80   WRITE(6,90) BUCKET,TREE(3,PARENT)
  33  90   FORMAT(' LOOKING FOR RIGHT BUCKET ',I5,' BUT FOUND ',I6)
  34       STOP
  35       END