C     =========================================
      SUBROUTINE GTRUNP(YEAR, CTRL_RUNPRD)
C     =========================================
C     Definition of run periods:
C
C     run range       |      run period | period number
C     ----------------+-----------------+---------------
C       Monte Carlo   |              1  |     -1
C     ----------------+-----------------+---------------
C       BOR           |                 |    -10
C     ----------------+-----------------+---------------
C      2846 -  3508   |    summer 1992  |      1
C      4064 -  4678   |      fall 1992  |      2
C      5677 -  8400   |    summer 1993  |      3
C      8259 -  9163   |        e- 1994  |      4
C     10157 - 10180   | pSVTX  e+ 1994  |      5
C      9251 - 10156 & |                 |
C     10181 - 10263   |  NVTX  e+ 1994  |      6
C                     |                 |
C     14075 - 14146   | pSVTX  e+ 1995  |      7
C     14166 - 14208   | nSVTX  e+ 1995  |      8
C     10748 - 14074 & |                 |
C     14209 - 14397   |  NVTX  e+ 1995  |      9
C                     |                 |
C     20568 - 22954   |  NVTX  e+ 1996  |     10
C     23000 - ....    |  NVTX  e+ 1997  |     11
C     ----------------+-----------------+---------------
C
C     A.Quadt, May 1997
C     --------------------------------------------------

      IMPLICIT NONE

#include "partap.inc"
#include "zrevt.inc"
#include "zdskey.inc"

      INTEGER YEAR, CTRL_RUNPRD
      INTEGER RUN, RUNP, Err_count, OLD_YEAR, TMP_YEAR
      LOGICAL FIRST
      DATA    FIRST     /.TRUE./
      DATA    Err_count / 0 /

      CALL FETTAB(ZREVT, ID, 1)
      TMP_YEAR = ZREVT_TIME(1)/10000
      RUN      = ZDSKEY_NR1

C -----------------------
C --- Running on Data ---
C -----------------------
      IF (    RUN .GE.  2846 .AND.
     &        RUN .LE.  3508) THEN  !!! Summer-1992
          RUNP = 1
          YEAR = 1992
      ELSEIF (RUN .GE.  4064 .AND.
     &        RUN .LE.  4678) THEN  !!! Fall-1992
          RUNP = 2
          YEAR = 1992
      ELSEIF (RUN .GE.  5677 .AND.
     &        RUN .LE.  8400) THEN  !!! Summer-1993.
          RUNP = 3
          YEAR = 1993
      ELSEIF (RUN .GE.  8259 .AND.
     &        RUN .LE.  9163) THEN  !!! 1994 electrons.
          RUNP = 4
          YEAR = 1994
      ELSEIF (RUN .GE. 10157 .AND.
     &        RUN .LE. 10180) THEN  !!! 1994 positrons SVTX.
          RUNP = 5
          YEAR = 1994
      ELSEIF (RUN .GE.  9251 .AND.
     &        RUN .LE. 10263) THEN  !!! 1994 positrons NVTX.
          RUNP = 6
          YEAR = 1994
      ELSEIF (RUN .GE. 14075 .AND.
     &        RUN .LE. 14146) THEN  !!! 1995 positrons pSVTX (+70cm).
          RUNP = 7
          YEAR = 1995
      ELSEIF (RUN .GE. 14166 .AND.
     &        RUN .LE. 14208) THEN  !!! 1995 positrons nSVTX (-70cm).
          RUNP = 8
          YEAR = 1995
      ELSEIF (RUN .GE. 10748 .AND.
     &        RUN .LE. 14397) THEN  !!! 1995 positrons NVTX.
          RUNP = 9
          YEAR = 1995
      ELSEIF (RUN .GE. 20568 .AND.
     &        RUN .LE. 22954) THEN  !!! 1996 positrons.
          RUNP = 10
          YEAR = 1996
      ELSEIF (RUN .GE. 23000 .AND.
     &        RUN .LE. 30000) THEN  !!! 1997 positrons.
          RUNP = 11
          YEAR = 1997

      ELSEIF (RUN .GE. 30000 .AND.
     &        RUN .LE. 31752) THEN  !!! 1998 electrons.
          RUNP = 12
          YEAR = 1998

      ELSEIF (RUN .GE. 31784 .AND.
     &        RUN .LE. 32906) THEN  !!! 1999 electrons.
          RUNP = 13
          YEAR = 1999

      ELSEIF (RUN .GE. 33051) THEN  !!! 1999 positrons.
          RUNP = 14
          YEAR = 1999

      ELSEIF (RUN .EQ. 1) THEN
C ---------------------
C --- Running on MC ---
C ---------------------
          RUNP = -1
          YEAR = TMP_YEAR

      ELSE
          RUNP = 0
      ENDIF


      IF (RUNP.NE.-1) THEN
        If (ZDSKEY_GafTyp(1:3).eq.'BOR') Then
          RUNP      = -10
        ENDIF
      ENDIF

      IF (RUNP.EQ.0) THEN
          WRITE(*,100)
          WRITE(*,101) RUN
          WRITE(*,102)
100       FORMAT(' +----------------------------------------+')
101       FORMAT(' |           UNKNOWN RUN PERIOD -- ',I6,' |')
102       FORMAT(' +----------------------------------------+')
      ENDIF

      CTRL_RUNPRD = RUNP

      IF (FIRST) THEN
        IF (CTRL_RUNPRD.NE.-10) FIRST = .FALSE.
        WRITE(*,*) ' '
        WRITE(*,103) CTRL_RUNPRD, YEAR
        WRITE(*,*) ' '
103     FORMAT(' Running on data from period ',I2, ' (year ',I4,')')
        OLD_YEAR = YEAR
      ENDIF

      IF (YEAR.NE.OLD_YEAR) THEN
        WRITE(*,*)
200     FORMAT('+----------------------------------------------+')
201     FORMAT('| WARNING: CTRL_YEAR changed from ',I4,' to ',I4,' |')
202     FORMAT('+----------------------------------------------+')
      ENDIF

      RETURN
      END