SUBROUTINE INIT_STRINGS()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Initializes the common block array holding the
C-      strings each token represents.
C-
C-   Inputs  : none
C-   Outputs : filled common block array:
C-      TOKEN_STRING    the string that each token represents
C-   Controls: none
C-
C-   Created   5-JUL-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C----------------------------------------------------------------------
C
C       Global declarations
C
      INCLUDE 'D0$LEVEL1:PARSE_TOKENS.PARAMS'
      INCLUDE 'D0$LEVEL1:PARSE_TOKENS.INC'
C
C       Fill the array TOKEN_STRING
C
      TOKEN_STRING( T_SECTION ) = 'SECTION'
      TOKEN_STRING( T_ELECT_NOISE_CUT_FACT ) =
     &  'ELECT_NOISE_CUT_FACT'
      TOKEN_STRING( T_DUMMY ) = 'DUMMY'
      TOKEN_STRING( T_END_SECTION ) = 'END_SECTION'
      TOKEN_STRING( T_END_OF_LINE ) = 'END_OF_LINE'
      TOKEN_STRING( T_END_OF_FILE ) = 'END_OF_FILE'
      TOKEN_STRING( T_NUMBER ) = 'NUMBER'
      TOKEN_STRING( T_CHANNEL ) = 'CHANNEL'
      TOKEN_STRING( T_EM ) = 'EM'
      TOKEN_STRING( T_HD ) = 'HD'
      TOKEN_STRING( T_AND ) = 'AND'
      TOKEN_STRING( T_LOOKUP ) = 'LOOKUP'
      TOKEN_STRING( T_WITH ) = 'WITH'
      TOKEN_STRING( T_END_WITH ) = 'END_WITH'
      TOKEN_STRING( T_TOT ) = 'TOT'
      TOKEN_STRING( T_PX ) = 'PX'
      TOKEN_STRING( T_PY ) = 'PY'
      TOKEN_STRING( T_ET ) = 'ET'
      TOKEN_STRING( T_L2 ) = 'L2'
      TOKEN_STRING( T_EM_PROM ) = 'EM_PROM'
      TOKEN_STRING( T_HD_PROM ) = 'HD_PROM'
      TOKEN_STRING( T_PX_PROM ) = 'PX_PROM'
      TOKEN_STRING( T_PY_PROM ) = 'PY_PROM'
      TOKEN_STRING( T_LIST ) = 'LIST'
      TOKEN_STRING( T_END_LIST ) = 'END_LIST'
      TOKEN_STRING( T_ASSIGN ) = 'ASSIGN'
      TOKEN_STRING( T_SIGN_ETA ) = 'SIGN_ETA'
      TOKEN_STRING( T_PLUS ) = 'PLUS'
      TOKEN_STRING( T_MINUS ) = 'MINUS'
      TOKEN_STRING( T_PHI ) = 'PHI'
      TOKEN_STRING( T_MAGN_ETA ) = 'MAGN_ETA'
      TOKEN_STRING( T_PAGE ) = 'PAGE'
      TOKEN_STRING( T_INDEX ) = 'INDEX'
      TOKEN_STRING( T_BIN ) = 'BIN'
      TOKEN_STRING( T_PROM ) = 'PROM'
      TOKEN_STRING( T_TO ) = 'TO'
      TOKEN_STRING( T_LEVEL_0_BINS_LOW ) = 'LEVEL_0_BINS_LOW'
      TOKEN_STRING( T_LEVEL_0_BINS_HIGH ) = 'LEVEL_0_BINS_HIGH'
      TOKEN_STRING( T_LOOKUP_QUANTITIES ) = 'LOOKUP_QUANTITIES'
      TOKEN_STRING( T_PAGE_VS_BIN ) = 'PAGE_VS_BIN'
      TOKEN_STRING( T_PAGE_NOMINAL_CENTER ) = 'PAGE_NOMINAL_CENTER'
      TOKEN_STRING( T_GLOBAL_ADC_SCALE ) = 'GLOBAL_ADC_SCALE'
      TOKEN_STRING( T_GLOBAL_ENERGY_SCALE ) = 'GLOBAL_ENERGY_SCALE'
      TOKEN_STRING( T_TOWER_GEOMETRY_R ) = 'TOWER_GEOMETRY_R'
      TOKEN_STRING( T_TOWER_GEOMETRY_Z ) = 'TOWER_GEOMETRY_Z'
      TOKEN_STRING( T_TOWER_GEOMETRY_PHI ) = 'TOWER_GEOMETRY_PHI'
      TOKEN_STRING( T_ANALOG_INPUT_SCALING ) = 'ANALOG_INPUT_SCALING'
      TOKEN_STRING( T_INPUT_ENERGY_ERROR ) = 'INPUT_ENERGY_ERROR'
      TOKEN_STRING( T_DOWNLOADED_BYTE ) = 'DOWNLOADED_BYTE'
      TOKEN_STRING( T_ADC_ZERESP ) = 'ADC_ZERESP'
      TOKEN_STRING( T_ELECT_NOISE ) = 'ELECT_NOISE'
      TOKEN_STRING( T_LOOKUP_ZERESP ) = 'LOOKUP_ZERESP'
      TOKEN_STRING( T_ENERGY_SCALE_SHIFT ) = 'ENERGY_SCALE_SHIFT'
      TOKEN_STRING( T_FINAL_FITTING ) = 'FINAL_FITTING'
      TOKEN_STRING( T_TRANSV_ENERGY_CUT ) = 'TRANSV_ENERGY_CUT'
      TOKEN_STRING( T_PROM_TRANSFER_COEFF ) = 'PROM_TRANSFER_COEFF'
      TOKEN_STRING( T_FIRST_LOOKUP_TYPE ) = 'FIRST_LOOKUP_TYPE'
      TOKEN_STRING( T_SECOND_LOOKUP_TYPE ) = 'SECOND_LOOKUP_TYPE'
      TOKEN_STRING( T_DEPOSITED_ENERGY ) = 'DEPOSITED_ENERGY'
      TOKEN_STRING( T_TRANSVERSE_ENERGY ) = 'TRANSVERSE_ENERGY'
      TOKEN_STRING( T_PROM_OUTPUT_CUT ) = 'PROM_OUTPUT_CUT'
C
  999 RETURN
      END