C (c) 1991 The Board of Trustees of the University of Illinois
C          "All Rights Reserved Under the Copyright Laws".


      SUBROUTINE SBINY (IEID)
      PARAMETER(NEV=1200)
      PARAMETER(NDATA = 30)
      PARAMETER(NDEP = 20)

C     NEV = NUMBER  OF EVENTS
C     NDATA = NUMBER OF DATA RECORDED FOR EACH  EVENT.
C     NDEP = DEPTH OF CALL NESTING
      COMMON/PTRAR/PTARR
      INTEGER  PTARR

      COMMON/TIMEAR/TIMAR
      REAL TIMAR(NEV, NDATA)
C     STACKS FOR NONINCLUSIVE DURATIONS 

      COMMON/STACKS/STK
      INTEGER STK( NDEP)
C     TIMING INFO ABOUT SBIN,SBOUT,DOOT,DOIN SUBS OVERHEAD
      COMMON/OVHEAD/SB(3),SBMIN(3),SBMAX(3),SBDIF(3),DOV(3), DOVMIN(3),
     $     DOVMAX(3),DOVDIF(3),COV(3),COVMIN(3),COVMAX(3),COVDIF(3),
     $     FTOV(3),FTOVMN(3),FTOVMX(3),FTOVDF(3)
C
C     DEFINE THE FUNCTIONS TO BE CALLED 
      REAL TIM(3)

      INTEGER IEID

      TIMAR( IEID, 3) = TIMAR( IEID, 3) + 1.
C
C     UPDATE STACK:
C     INCREASE CALLING DEPTH COUNTER IN PTARR (AND STKPOINTER)
      PTARR = PTARR+1
C     PUSH IEID ON STACK
      STK( PTARR) = IEID

C     RECORD THE ENTRY TIME IN THE DATA ARRAY TIMAR
      CALL  FUNTIM(TIM)

      TIMAR( IEID, 1) = TIM(1)
      TIMAR( IEID, 2) = TIM(2)
C      PRINT *, 'ENTERING ', IEID

      RETURN
      END
