FUNCTION ICUTH(A,MIN,MAX,IB)
      REAL A(32)
      IF(MIN .LE. 0 .OR.MAX .GT. 32) GO TO 200
      B = IB
      IK = MIN*2-1
      DO 20 II = MIN,MAX
      AB = A(II)
      CALL HISTA(II,AB,B) 
      IF(MTSTA(AB,IK,IK+1))  10,100,10
   10 IK = IK + 2 
   20 CONTINUE
      ICUTH = -1
      RETURN
  100 CONTINUE
      CALL HISTI(33,II,IB)
  200 CONTINUE
      ICUTH = 0 
      RETURN
      END