SUBROUTINE DPLOT
      IMPLICIT NONE
c suboutine to find leading edge time offsets for use in calibration.
c should use a tof calibration file with all zeros.
c program needs to be called with an initial guess of where the 
c prompt hits are. This guess should be put in param(1) in hcuts 
c namelist.

#include <luns.cmn>
#include <rssc.cmn>
#include <tr2bits.cmn>
      INTEGER IFAIL
      INTEGER ISEC,ILAY,IWIR,ID,I
      REAL    RTIME,CTIME

      CALL BATCH_LOG
      CALL TR2UNP(0)          ! just take these triggers
      CALL UNPRSC(IFAIL)
      IF(IFAIL.NE.0) RETURN

      DO I=1,SCNHIT           ! fill individual wire histograms
        ISEC  = SCISEC(I)
        ILAY  = SCILAY(I)
        IWIR  = SCIWIR(I) 
        RTIME = SCITIM(I)
        ID = ISEC*100+ILAY*50+IWIR
        CALL HFILL(ID,RTIME,0.,1.)
      ENDDO

      RETURN
      END


      SUBROUTINE DEFINE
      IMPLICIT NONE
c leading edge histograms are booked to surround the "guess"
c of where the prompt hits. The guess is set by the user in 
c param(1)

#include <hcuts.cmn>      
      INTEGER ISEC,ILAY,IWIR,NWPAWC,H,ID,GUESS
      CHARACTER*50 TITLE
      CHARACTER*6 CLAY
      PARAMETER (NWPAWC = 3000000)
      COMMON/PAWC/H(NWPAWC)
      CALL HLIMIT(NWPAWC)
      GUESS = -PARAM(1)
      DO ISEC=1,24
        DO ILAY=0,1
          DO IWIR=0,28
            ID = ISEC*100+ILAY*50+IWIR
            CLAY = ' INNER'
            IF (ILAY.EQ.1) CLAY=' OUTER'
            WRITE (TITLE,5) ISEC,CLAY,IWIR
 5          FORMAT ('SECT ',I2,A6,' WIRE ',I2,' LEADING EDGE TIME')
            CALL HBOOK1(ID,TITLE,200,GUESS-100.,GUESS+100.,0.)
          ENDDO
        ENDDO
      ENDDO

      RETURN
      END