SUBROUTINE INIT_WIDTHS( ) C---------------------------------------------------------------------- C- C- Purpose and Methods : Initializes the common blocks that hold various C- parameters that describe the characteristics of each section. The C- arrays hold the widths of the dimensions of the arrays in the C- LEVEL1_LOOKUP common block, which variables correspond to which C- dimensions, how many variables are active in each section, how C- many of those variables represent integer quantities, and what type of C- data each section's items are. C- C- Inputs : none C- C- Outputs : filled common block arrays: C- C- INDEX_TO_TOKEN an array that converts from section index to the token C- for that section C- C- WIDTHS the widths of the dimensions of the common block arrays C- C- VARIABLE_ORDER the order the variables are represented in the common C- block arrays C- C- NUM_ACTIVE_VARIABLES C- the number of variables that are active in each C- section C- C- DATA_TYPE the type of data the section represents, DATA_INTEGER C- or DATA_REAL C- C- Controls: none C- C- Created 3-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' INCLUDE 'D0$LEVEL1:LEVEL1_LOOKUP.PARAMS' INCLUDE 'D0$LEVEL1:LEVEL1_LOOKUP.INC' C C Dimensions that don't exist in the actual array must be represented C here as having a width of 1. C INTEGER EMPTY_WIDTH PARAMETER (EMPTY_WIDTH = 1) C C Section LEVEL_0_BINS_LOW C Abbreviation L0L C INDEX_TO_SECTION( I_L0L_INDEX ) = T_LEVEL_0_BINS_LOW C WIDTHS( 1, I_L0L_INDEX ) = L0_BIN_MAX - L0_BIN_MIN + 1 WIDTHS( 2, I_L0L_INDEX ) = EMPTY_WIDTH WIDTHS( 3, I_L0L_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_L0L_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_L0L_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_L0L_INDEX ) = T_BIN VARIABLE_ORDER( 2, I_L0L_INDEX ) = T_DUMMY VARIABLE_ORDER( 3, I_L0L_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_L0L_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_L0L_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_L0L_INDEX ) = 1 DATA_TYPE( I_L0L_INDEX ) = DATA_REAL C C Section LEVEL_0_BINS_HIGH C Abbreviation L0H C INDEX_TO_SECTION( I_L0H_INDEX ) = T_LEVEL_0_BINS_HIGH C WIDTHS( 1, I_L0H_INDEX ) = L0_BIN_MAX - L0_BIN_MIN + 1 WIDTHS( 2, I_L0H_INDEX ) = EMPTY_WIDTH WIDTHS( 3, I_L0H_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_L0H_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_L0H_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_L0H_INDEX ) = T_BIN VARIABLE_ORDER( 2, I_L0H_INDEX ) = T_DUMMY VARIABLE_ORDER( 3, I_L0H_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_L0H_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_L0H_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_L0H_INDEX ) = 1 DATA_TYPE( I_L0H_INDEX ) = DATA_REAL C C Section LOOKUP_QUANTITIES C Abbreviation LUQ C INDEX_TO_SECTION( I_LUQ_INDEX ) = T_LOOKUP_QUANTITIES C WIDTHS( 1, I_LUQ_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 2, I_LUQ_INDEX ) = PAGE_NUM_MAX - PAGE_NUM_MIN + 1 WIDTHS( 3, I_LUQ_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_LUQ_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_LUQ_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_LUQ_INDEX ) = T_LOOKUP VARIABLE_ORDER( 2, I_LUQ_INDEX ) = T_PAGE VARIABLE_ORDER( 3, I_LUQ_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_LUQ_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_LUQ_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_LUQ_INDEX ) = 3 DATA_TYPE( I_LUQ_INDEX ) = DATA_INTEGER C C Section PAGE_VS_BIN C Abbreviation PVB C INDEX_TO_SECTION( I_PVB_INDEX ) = T_PAGE_VS_BIN C WIDTHS( 1, I_PVB_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 2, I_PVB_INDEX ) = L0_BIN_MAX - L0_BIN_MIN + 1 WIDTHS( 3, I_PVB_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_PVB_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_PVB_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_PVB_INDEX ) = T_LOOKUP VARIABLE_ORDER( 2, I_PVB_INDEX ) = T_BIN VARIABLE_ORDER( 3, I_PVB_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_PVB_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_PVB_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_PVB_INDEX ) = 3 DATA_TYPE( I_PVB_INDEX ) = DATA_INTEGER C C Section PAGE_NOMINAL_CENTER C Abbreviation PZN C INDEX_TO_SECTION( I_PZN_INDEX ) = T_PAGE_NOMINAL_CENTER C WIDTHS( 1, I_PZN_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 2, I_PZN_INDEX ) = PAGE_NUM_MAX - PAGE_NUM_MIN + 1 WIDTHS( 3, I_PZN_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_PZN_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_PZN_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_PZN_INDEX ) = T_LOOKUP VARIABLE_ORDER( 2, I_PZN_INDEX ) = T_PAGE VARIABLE_ORDER( 3, I_PZN_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_PZN_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_PZN_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_PZN_INDEX ) = 3 DATA_TYPE( I_PZN_INDEX ) = DATA_REAL C C Section GLOBAL_ADC_SCALE C Abbreviation GAC C INDEX_TO_SECTION( I_GAC_INDEX ) = T_GLOBAL_ADC_SCALE C WIDTHS( 1, I_GAC_INDEX ) = EMPTY_WIDTH WIDTHS( 2, I_GAC_INDEX ) = EMPTY_WIDTH WIDTHS( 3, I_GAC_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_GAC_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_GAC_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_GAC_INDEX ) = T_DUMMY VARIABLE_ORDER( 2, I_GAC_INDEX ) = T_DUMMY VARIABLE_ORDER( 3, I_GAC_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_GAC_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_GAC_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_GAC_INDEX ) = 0 DATA_TYPE( I_GAC_INDEX ) = DATA_REAL C C Section GLOBAL_ENERGY_SCALE C Abbreviation GEC C INDEX_TO_SECTION( I_GEC_INDEX ) = T_GLOBAL_ENERGY_SCALE C WIDTHS( 1, I_GEC_INDEX ) = TOT_L2_QUANT - EM_ET_QUANT + 1 WIDTHS( 2, I_GEC_INDEX ) = EMPTY_WIDTH WIDTHS( 3, I_GEC_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_GEC_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_GEC_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_GEC_INDEX ) = T_TOT VARIABLE_ORDER( 2, I_GEC_INDEX ) = T_DUMMY VARIABLE_ORDER( 3, I_GEC_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_GEC_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_GEC_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_GEC_INDEX ) = 2 DATA_TYPE( I_GEC_INDEX ) = DATA_REAL C C Section ELECT_NOISE_CUT_FACT C Abbreviation ENC C INDEX_TO_SECTION( I_ENC_INDEX ) = T_ELECT_NOISE_CUT_FACT C WIDTHS( 1, I_ENC_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 2, I_ENC_INDEX ) = EMPTY_WIDTH WIDTHS( 3, I_ENC_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_ENC_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_ENC_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_ENC_INDEX ) = T_LOOKUP VARIABLE_ORDER( 2, I_ENC_INDEX ) = T_DUMMY VARIABLE_ORDER( 3, I_ENC_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_ENC_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_ENC_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_ENC_INDEX ) = 2 DATA_TYPE( I_ENC_INDEX ) = DATA_REAL C C Section TOWER_GEOMETRY_R C Abbreviation TRN C INDEX_TO_SECTION( I_TRN_INDEX ) = T_TOWER_GEOMETRY_R C WIDTHS( 1, I_TRN_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_TRN_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_TRN_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_TRN_INDEX ) = TOT_TOWER - EM_TOWER + 1 WIDTHS( 5, I_TRN_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_TRN_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_TRN_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_TRN_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_TRN_INDEX ) = T_CHANNEL VARIABLE_ORDER( 5, I_TRN_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_TRN_INDEX ) = 4 DATA_TYPE( I_TRN_INDEX ) = DATA_REAL C C Section TOWER_GEOMETRY_Z C Abbreviation TZN C INDEX_TO_SECTION( I_TZN_INDEX ) = T_TOWER_GEOMETRY_Z C WIDTHS( 1, I_TZN_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_TZN_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_TZN_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_TZN_INDEX ) = TOT_TOWER - EM_TOWER + 1 WIDTHS( 5, I_TZN_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_TZN_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_TZN_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_TZN_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_TZN_INDEX ) = T_CHANNEL VARIABLE_ORDER( 5, I_TZN_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_TZN_INDEX ) = 4 DATA_TYPE( I_TZN_INDEX ) = DATA_REAL C C Section TOWER_GEOMETRY_PHI C Abbreviation TPN C INDEX_TO_SECTION( I_TPN_INDEX ) = T_TOWER_GEOMETRY_PHI C WIDTHS( 1, I_TPN_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_TPN_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_TPN_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_TPN_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_TPN_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_TPN_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_TPN_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_TPN_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_TPN_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_TPN_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_TPN_INDEX ) = 3 DATA_TYPE( I_TPN_INDEX ) = DATA_REAL C C Section ANALOG_INPUT_SCALING C Abbreviation AIS C INDEX_TO_SECTION( I_AIS_INDEX ) = T_ANALOG_INPUT_SCALING C WIDTHS( 1, I_AIS_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_AIS_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_AIS_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_AIS_INDEX ) = HD_TOWER - EM_TOWER + 1 WIDTHS( 5, I_AIS_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_AIS_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_AIS_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_AIS_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_AIS_INDEX ) = T_CHANNEL VARIABLE_ORDER( 5, I_AIS_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_AIS_INDEX ) = 4 DATA_TYPE( I_AIS_INDEX ) = DATA_REAL C C Section INPUT_ENERGY_ERROR C Abbreviation IEE C INDEX_TO_SECTION( I_IEE_INDEX ) = T_INPUT_ENERGY_ERROR C WIDTHS( 1, I_IEE_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_IEE_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_IEE_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_IEE_INDEX ) = HD_TOWER - EM_TOWER + 1 WIDTHS( 5, I_IEE_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_IEE_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_IEE_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_IEE_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_IEE_INDEX ) = T_CHANNEL VARIABLE_ORDER( 5, I_IEE_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_IEE_INDEX ) = 4 DATA_TYPE( I_IEE_INDEX ) = DATA_REAL C C Section DOWNLOADED_BYTE C Abbreviation DAC C INDEX_TO_SECTION( I_DAC_INDEX ) = T_DOWNLOADED_BYTE C WIDTHS( 1, I_DAC_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_DAC_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_DAC_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_DAC_INDEX ) = HD_TOWER - EM_TOWER + 1 WIDTHS( 5, I_DAC_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_DAC_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_DAC_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_DAC_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_DAC_INDEX ) = T_CHANNEL VARIABLE_ORDER( 5, I_DAC_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_DAC_INDEX ) = 4 DATA_TYPE( I_DAC_INDEX ) = DATA_INTEGER C C Section ADC_ZERESP C Abbreviation AZR C INDEX_TO_SECTION( I_AZR_INDEX ) = T_ADC_ZERESP C WIDTHS( 1, I_AZR_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_AZR_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_AZR_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_AZR_INDEX ) = HD_TOWER - EM_TOWER + 1 WIDTHS( 5, I_AZR_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_AZR_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_AZR_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_AZR_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_AZR_INDEX ) = T_CHANNEL VARIABLE_ORDER( 5, I_AZR_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_AZR_INDEX ) = 4 DATA_TYPE( I_AZR_INDEX ) = DATA_INTEGER C C Section ELECT_NOISE C Abbreviation ELN C INDEX_TO_SECTION( I_ELN_INDEX ) = T_ELECT_NOISE C WIDTHS( 1, I_ELN_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_ELN_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_ELN_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_ELN_INDEX ) = HD_TOWER - EM_TOWER + 1 WIDTHS( 5, I_ELN_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_ELN_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_ELN_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_ELN_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_ELN_INDEX ) = T_CHANNEL VARIABLE_ORDER( 5, I_ELN_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_ELN_INDEX ) = 4 DATA_TYPE( I_ELN_INDEX ) = DATA_REAL C C Section LOOKUP_ZERESP C Abbreviation LZR C INDEX_TO_SECTION( I_LZR_INDEX ) = T_LOOKUP_ZERESP C WIDTHS( 1, I_LZR_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_LZR_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_LZR_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_LZR_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 5, I_LZR_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_LZR_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_LZR_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_LZR_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_LZR_INDEX ) = T_LOOKUP VARIABLE_ORDER( 5, I_LZR_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_LZR_INDEX ) = 5 DATA_TYPE( I_LZR_INDEX ) = DATA_INTEGER C C Section ENERGY_SCALE_SHIFT C Abbreviation ESS C INDEX_TO_SECTION( I_ESS_INDEX ) = T_ENERGY_SCALE_SHIFT C WIDTHS( 1, I_ESS_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_ESS_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_ESS_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 4, I_ESS_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_ESS_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_ESS_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_ESS_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_ESS_INDEX ) = T_LOOKUP VARIABLE_ORDER( 4, I_ESS_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_ESS_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_ESS_INDEX ) = 4 DATA_TYPE( I_ESS_INDEX ) = DATA_INTEGER C C Section FINAL_FITTING C Abbreviation FNF C INDEX_TO_SECTION( I_FNF_INDEX ) = T_FINAL_FITTING C WIDTHS( 1, I_FNF_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_FNF_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_FNF_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_FNF_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 5, I_FNF_INDEX ) = PAGE_NUM_MAX - PAGE_NUM_MIN + 1 C VARIABLE_ORDER( 1, I_FNF_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_FNF_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_FNF_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_FNF_INDEX ) = T_LOOKUP VARIABLE_ORDER( 5, I_FNF_INDEX ) = T_PAGE C NUM_ACTIVE_VARIABLES( I_FNF_INDEX ) = 6 DATA_TYPE( I_FNF_INDEX ) = DATA_REAL C C Section TRANSV_ENERGY_CUT C Abbreviation TEC C INDEX_TO_SECTION( I_TEC_INDEX ) = T_TRANSV_ENERGY_CUT C WIDTHS( 1, I_TEC_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_TEC_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_TEC_INDEX ) = PY_QUANT - EM_ET_QUANT + 1 WIDTHS( 4, I_TEC_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_TEC_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_TEC_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_TEC_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_TEC_INDEX ) = T_LOOKUP VARIABLE_ORDER( 4, I_TEC_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_TEC_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_TEC_INDEX ) = 4 DATA_TYPE( I_TEC_INDEX ) = DATA_REAL C C Section PROM_TRANSFER_COEFF C Abbreviation PTC C INDEX_TO_SECTION( I_PTC_INDEX ) = T_PROM_TRANSFER_COEFF C WIDTHS( 1, I_PTC_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_PTC_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_PTC_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_PTC_INDEX ) = PY_PROM - EM_PROM + 1 WIDTHS( 5, I_PTC_INDEX ) = PAGE_INDEX_MAX - PAGE_INDEX_MIN + 1 C VARIABLE_ORDER( 1, I_PTC_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_PTC_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_PTC_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_PTC_INDEX ) = T_PROM VARIABLE_ORDER( 5, I_PTC_INDEX ) = T_INDEX C NUM_ACTIVE_VARIABLES( I_PTC_INDEX ) = 5 DATA_TYPE( I_PTC_INDEX ) = DATA_REAL C C Section FIRST_LOOKUP_TYPE C Abbreviation FLT C INDEX_TO_SECTION( I_FLT_INDEX ) = T_FIRST_LOOKUP_TYPE C WIDTHS( 1, I_FLT_INDEX ) = EMPTY_WIDTH WIDTHS( 2, I_FLT_INDEX ) = EMPTY_WIDTH WIDTHS( 3, I_FLT_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_FLT_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_FLT_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_FLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 2, I_FLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 3, I_FLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_FLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_FLT_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_FLT_INDEX ) = 0 DATA_TYPE( I_FLT_INDEX ) = DATA_ENUMERATED_LOOKUP C C Section SECOND_LOOKUP_TYPE C Abbreviation SLT C INDEX_TO_SECTION( I_SLT_INDEX ) = T_SECOND_LOOKUP_TYPE C WIDTHS( 1, I_SLT_INDEX ) = EMPTY_WIDTH WIDTHS( 2, I_SLT_INDEX ) = EMPTY_WIDTH WIDTHS( 3, I_SLT_INDEX ) = EMPTY_WIDTH WIDTHS( 4, I_SLT_INDEX ) = EMPTY_WIDTH WIDTHS( 5, I_SLT_INDEX ) = EMPTY_WIDTH C VARIABLE_ORDER( 1, I_SLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 2, I_SLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 3, I_SLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 4, I_SLT_INDEX ) = T_DUMMY VARIABLE_ORDER( 5, I_SLT_INDEX ) = T_DUMMY C NUM_ACTIVE_VARIABLES( I_SLT_INDEX ) = 0 DATA_TYPE( I_SLT_INDEX ) = DATA_ENUMERATED_LOOKUP C C Section PROM_OUTPUT_CUT C Abbreviation PRC C INDEX_TO_SECTION( I_PRC_INDEX ) = T_PROM_OUTPUT_CUT C WIDTHS( 1, I_PRC_INDEX ) = NEG_ETA - POS_ETA + 1 WIDTHS( 2, I_PRC_INDEX ) = ETA_MAX - ETA_MIN + 1 WIDTHS( 3, I_PRC_INDEX ) = PHI_MAX - PHI_MIN + 1 WIDTHS( 4, I_PRC_INDEX ) = PY_PROM - EM_PROM + 1 WIDTHS( 5, I_PRC_INDEX ) = PAGE_INDEX_MAX - PAGE_INDEX_MIN + 1 C VARIABLE_ORDER( 1, I_PRC_INDEX ) = T_SIGN_ETA VARIABLE_ORDER( 2, I_PRC_INDEX ) = T_MAGN_ETA VARIABLE_ORDER( 3, I_PRC_INDEX ) = T_PHI VARIABLE_ORDER( 4, I_PRC_INDEX ) = T_PROM VARIABLE_ORDER( 5, I_PRC_INDEX ) = T_INDEX C NUM_ACTIVE_VARIABLES( I_PRC_INDEX ) = 5 DATA_TYPE( I_PRC_INDEX ) = DATA_INTEGER C C 999 RETURN END