4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 1 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0001 SUBROUTINE BUILD_RANGE_INTEGER( UNIT_NUM, LOWER_BOUND, 0002 & UPPER_BOUND, OFFSET, VARIABLE_HOLD, ERROR ) 0003 C---------------------------------------------------------------------- 0004 C- 0005 C- Purpose and Methods : Parses the remainder of a WITH statement after the 0006 C- WITH token and the variable token for integer variables. It sets bits 0007 C- in VARIBLE_HOLD depending on the contents of the file. 0008 C- 0009 C- Inputs : 0010 C- UNIT_NUM the IO unit number 0011 C- LOWER_BOUND the lowest valid value for the variable that will 0012 C- be read from the file 0013 C- UPPER_BOUND the highest valid value for the variable that 0014 C- will be read from the file 0015 C- OFFSET What value from the file goes into bit 1 of the 0016 C- variable. It does not have to lie in the range 0017 C- [LOWER_BOUND,UPPER_BOUND] 0018 C- 0019 C- Outputs : 0020 C- VARIABLE_HOLD An integer where the information is stored 0021 C- regarding what values of the variable are going 0022 C- to be used 0023 C- ERROR error status. .TRUE. on error 0024 C- 0025 C- Controls: none 0026 C- 0027 C- Created 14-JUN-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE 0028 C- 0029 C---------------------------------------------------------------------- 0030 IMPLICIT NONE 0031 C---------------------------------------------------------------------- 0032 C 0033 C Global declarations 0034 C 0035 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS' 0577 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC' 0721 C 0722 C argument declarations 0723 C 0724 INTEGER UNIT_NUM 0725 INTEGER LOWER_BOUND 0726 INTEGER UPPER_BOUND 0727 INTEGER OFFSET 0728 INTEGER VARIABLE_HOLD 0729 LOGICAL ERROR 0730 C 0731 C local variables 0732 C 0733 INTEGER COUNT 0734 INTEGER TOKEN 0735 CHARACTER*20 STRING_VALUE 0736 REAL NUMBER_VALUE 0737 INTEGER LOW 0738 INTEGER HIGH 0739 C 0740 C 0741 C BUILD_RANGE_INTEGER 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 2 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0742 ERROR = .FALSE. 0743 C 0744 VARIABLE_HOLD = 0 0745 C 0746 C get first token 0747 C 0748 CALL CHECK_NEXT_TOKEN( UNIT_NUM, T_NUMBER, TOKEN, STRING_VALUE, 0749 & NUMBER_VALUE, ERROR, CHECK_TOKEN) 0750 IF (ERROR) THEN 0751 CALL MESSAGE_OUT(MES_EXPECTED_NUMBER, 0, STRING_VALUE) 0752 CALL FINISH_SECTION( UNIT_NUM ) 0753 GOTO 999 0754 ENDIF 0755 LOW = NUMBER_VALUE 0756 IF ( ( LOW .LT. LOWER_BOUND ) .OR. 0757 & ( LOW .GT. UPPER_BOUND ) ) THEN 0758 ERROR = .TRUE. 0759 CALL MESSAGE_OUT(MES_INVALID_INTEGER, 0, STRING_VALUE) 0760 CALL FINISH_SECTION( UNIT_NUM ) 0761 GOTO 999 0762 ENDIF 0763 C 0764 C repeat the following loop until an error or the end of line is 0765 C reached 0766 C 0767 DO WHILE (.TRUE.) 0768 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_AND_TO_NL, TOKEN, 0769 & STRING_VALUE, NUMBER_VALUE, ERROR, CHECK_CLASS) 0770 IF (ERROR) THEN 0771 CALL MESSAGE_OUT(MES_EXPECT_ANTOEN, 0, STRING_VALUE) 0772 CALL FINISH_SECTION( UNIT_NUM ) 0773 GOTO 999 0774 ENDIF 0775 C 0776 C see if it is a range 0777 C if it is, assign the range, and get the next token following it. 0778 C the next token should be either AND or EOL. if it is EOL, then 0779 C the entire routine can exit. Otherwise, read the token after the 0780 C AND, which should be a number, and repeat the loop 0781 C 0782 IF ( TOKEN .EQ. T_TO ) THEN 0783 CALL CHECK_NEXT_TOKEN( UNIT_NUM, T_NUMBER, TOKEN, 0784 & STRING_VALUE, NUMBER_VALUE, ERROR, 0785 & CHECK_TOKEN ) 0786 IF (ERROR) THEN 0787 CALL MESSAGE_OUT(MES_EXPECTED_NUMBER, 0, STRING_VALUE) 0788 CALL FINISH_SECTION( UNIT_NUM ) 0789 GOTO 999 0790 ENDIF 0791 HIGH = NUMBER_VALUE 0792 IF ( ( HIGH .LT. LOWER_BOUND ) .OR. 0793 & ( HIGH .GT. UPPER_BOUND ) ) THEN 0794 CALL MESSAGE_OUT(MES_INVALID_INTEGER, 0, STRING_VALUE) 0795 CALL FINISH_SECTION( UNIT_NUM ) 0796 ERROR = .TRUE. 0797 GOTO 999 0798 ENDIF BUILD_RANGE_INTEGER 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 3 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0799 IF ( HIGH .LT. LOW ) THEN 0800 CALL MESSAGE_OUT(MES_INVALID_INTEGER, 0, STRING_VALUE) 0801 CALL FINISH_SECTION( UNIT_NUM ) 0802 ERROR = .TRUE. 0803 GOTO 999 0804 ENDIF 0805 C 0806 C assign the range 0807 C 0808 DO COUNT = LOW, HIGH 0809 C&IF VAXVMS,VAXELN 0810 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, COUNT - OFFSET) 0811 C&ELSE 0812 C& CALL SBIT1( VARIABLE_HOLD, COUNT - OFFSET + 1) 0813 C&ENDIF 0814 END DO 0815 C 0816 C either the next token is an AND or an END_OF_LINE 0817 C 0818 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_AND_NL, TOKEN, 0819 & STRING_VALUE, NUMBER_VALUE, ERROR, CHECK_CLASS ) 0820 IF (ERROR) THEN 0821 CALL MESSAGE_OUT( MES_EXPECT_ANEN, 0, STRING_VALUE) 0822 CALL FINISH_SECTION( UNIT_NUM ) 0823 GOTO 999 0824 ENDIF 0825 C 0826 C if it is end of line, we are done 0827 C 0828 IF (TOKEN .EQ. T_END_OF_LINE) GOTO 999 0829 C 0830 C it is AND 0831 C 0832 CALL CHECK_NEXT_TOKEN( UNIT_NUM, T_NUMBER, TOKEN, 0833 & STRING_VALUE, NUMBER_VALUE, ERROR, CHECK_TOKEN) 0834 IF (ERROR) THEN 0835 CALL MESSAGE_OUT(MES_EXPECTED_NUMBER, 0, STRING_VALUE) 0836 CALL FINISH_SECTION( UNIT_NUM ) 0837 GOTO 999 0838 ENDIF 0839 C 0840 LOW = NUMBER_VALUE 0841 IF ( ( LOW .LT. LOWER_BOUND ) .OR. 0842 & ( LOW .GT. UPPER_BOUND ) ) THEN 0843 ERROR = .TRUE. 0844 CALL MESSAGE_OUT(MES_INVALID_INTEGER, 0, STRING_VALUE) 0845 CALL FINISH_SECTION( UNIT_NUM ) 0846 GOTO 999 0847 ENDIF 0848 C 0849 C one number followed by an AND 0850 C 0851 ELSEIF ( TOKEN .EQ. T_AND ) THEN 0852 C&IF VAXVMS,VAXELN 0853 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, LOW - OFFSET) 0854 C&ELSE 0855 C& CALL SBIT1( VARIABLE_HOLD, LOW - OFFSET +1) BUILD_RANGE_INTEGER 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 4 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0856 C&ENDIF 0857 C 0858 CALL CHECK_NEXT_TOKEN( UNIT_NUM, T_NUMBER, TOKEN, 0859 & STRING_VALUE, NUMBER_VALUE, ERROR, CHECK_TOKEN) 0860 IF (ERROR) THEN 0861 CALL MESSAGE_OUT(MES_EXPECTED_NUMBER, 0, STRING_VALUE) 0862 CALL FINISH_SECTION( UNIT_NUM ) 0863 GOTO 999 0864 ENDIF 0865 C 0866 LOW = NUMBER_VALUE 0867 IF ( ( LOW .LT. LOWER_BOUND ) .OR. 0868 & ( LOW .GT. UPPER_BOUND ) ) THEN 0869 CALL MESSAGE_OUT(MES_INVALID_INTEGER, 0, STRING_VALUE) 0870 CALL FINISH_SECTION( UNIT_NUM ) 0871 ERROR = .TRUE. 0872 GOTO 999 0873 ENDIF 0874 C 0875 ELSE 0876 C 0877 C a single value followed by EOL 0878 C 0879 C&IF VAXVMS,VAXELN 0880 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, LOW - OFFSET) 0881 C&ELSE 0882 C& CALL SBIT1( VARIABLE_HOLD, LOW - OFFSET +1) 0883 C&ENDIF 0884 GOTO 999 0885 ENDIF 0886 END DO 0887 C 0888 C 0889 C 0890 999 RETURN 0891 END BUILD_RANGE_INTEGER 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 5 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 689 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 36 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 532 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 3 WIDTHS_CMN 1252 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 LSM_ERROR 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 5 TOKEN_STRING_CMN 1220 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 LSMP_SPECIFIC 24 PIC OVR REL GBL SHR NOEXE RD WRT LONG 7 LSMP_SPECIFIC_STRINGS 170 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 3939 ENTRY POINTS Address Type Name 0-00000000 BUILD_RANGE_INTEGER VARIABLES Address Type Name Address Type Name ** I*4 COUNT 6-00000000 L*4 DIAGNOSTICS AP-00000018@ L*4 ERROR ** I*4 HIGH 3-00000000 I*4 LINE_NUMBER ** I*4 LOW AP-00000008@ I*4 LOWER_BOUND 7-00000000 CHAR LSM_DIRECTORY_NAME 4-00000004 I*4 LSM_ERROR_CODE 4-00000008 I*4 LSM_ERROR_LINE 4-00000000 I*4 LSM_ERROR_SEVERITY 6-0000000C L*4 LSM_FILE_LOADED 7-00000028 CHAR LSM_FILE_NAME 4-0000000C I*4 LSM_IOSTAT 7-00000050 CHAR LSM_MESSAGE_FILE 6-00000014 I*4 LSM_REVISION_NUMBER 6-00000010 L*4 LSO_FILE_LOADED 6-00000008 I*4 MESSAGE_COUNT 6-00000004 I*4 MESSAGE_UNIT_NUM 2-00000018 R*4 NUMBER_VALUE AP-00000010@ I*4 OFFSET 2-00000000 CHAR STRING_VALUE 2-00000014 I*4 TOKEN AP-00000004@ I*4 UNIT_NUM AP-0000000C@ I*4 UPPER_BOUND AP-00000014@ I*4 VARIABLE_HOLD ARRAYS Address Type Name Bytes Dimensions 3-00000424 I*4 DATA_TYPE 96 (24) 3-00000484 I*4 INDEX_TO_SECTION 96 (24) 3-000003C4 I*4 NUM_ACTIVE_VARIABLES 96 (24) 5-00000000 CHAR TOKEN_STRING 1220 (61) 3-000001E4 I*4 VARIABLE_ORDER 480 (5, 24) 3-00000004 I*4 WIDTHS 480 (5, 24) BUILD_RANGE_INTEGER 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 6 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 LABELS Address Label 0-000002B0 999 FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name CHECK_NEXT_TOKEN FINISH_SECTION I*4 FOR$JIBSET MESSAGE_OUT 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 7 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0001 C 0002 C 0003 C 0004 SUBROUTINE BUILD_RANGE_SIGN_ETA( UNIT_NUM, VARIABLE_HOLD, ERROR) 0005 C---------------------------------------------------------------------- 0006 C- 0007 C- Purpose and Methods : Parses the remainder of a WITH statement associated 0008 C- with the variable SIGN_ETA. It sets bits in the integer VARIABLE_HOLD 0009 C- according to the contents of the file 0010 C- 0011 C- Inputs : 0012 C- UNIT_NUM The IO unit number 0013 C- 0014 C- Outputs : 0015 C- VARIABLE_HOLD Bits set here represent the values specified in the 0016 C- file. 0017 C- ERROR Error status. .TRUE. on error 0018 C- 0019 C- Controls: none 0020 C- 0021 C- Created 19-JUN-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE 0022 C- 0023 C---------------------------------------------------------------------- 0024 IMPLICIT NONE 0025 C---------------------------------------------------------------------- 0026 C 0027 C Global declarations 0028 C 0029 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS' 0571 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC' 0715 INCLUDE 'D0$INC:LEVEL1_LOOKUP.PARAMS' %FORT-F-INCOPEFAI, Open failure on INCLUDE file [_LOOKUP.PARAMS'] in module BUILD_RANGE_SIGN_ETA at line 715 0716 INCLUDE 'D0$INC:LEVEL1_LOOKUP.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MIN] in module BUILD_RANGE_SIGN_ETA at line 780 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MAX] in module BUILD_RANGE_SIGN_ETA at line 780 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_LOW] in module BUILD_RANGE_SIGN_ETA at line 780 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_HIGH] in module BUILD_RANGE_SIGN_ETA at line 780 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_ET_QUANT] in module BUILD_RANGE_SIGN_ETA at line 816 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_QUANT] in module BUILD_RANGE_SIGN_ETA at line 816 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MIN] in module BUILD_RANGE_SIGN_ETA at line 816 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MAX] in module BUILD_RANGE_SIGN_ETA at line 816 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_L2_QUANT] in module BUILD_RANGE_SIGN_ETA at line 845 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [POS_ETA] in module BUILD_RANGE_SIGN_ETA at line 857 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [NEG_ETA] in module BUILD_RANGE_SIGN_ETA at line 857 BUILD_RANGE_SIGN_ETA 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 8 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MIN] in module BUILD_RANGE_SIGN_ETA at line 857 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MAX] in module BUILD_RANGE_SIGN_ETA at line 857 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MIN] in module BUILD_RANGE_SIGN_ETA at line 857 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MAX] in module BUILD_RANGE_SIGN_ETA at line 857 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_TOWER] in module BUILD_RANGE_SIGN_ETA at line 857 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [HD_TOWER] in module BUILD_RANGE_SIGN_ETA at line 857 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_TOWER] in module BUILD_RANGE_SIGN_ETA at line 908 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_PROM] in module BUILD_RANGE_SIGN_ETA at line 968 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_PROM] in module BUILD_RANGE_SIGN_ETA at line 968 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MIN] in module BUILD_RANGE_SIGN_ETA at line 968 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MAX] in module BUILD_RANGE_SIGN_ETA at line 968 1008 INCLUDE 'LSMP$SOURCE:LEVEL1_LOOKUP_EXPANSION.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [R_COORD] in module BUILD_RANGE_SIGN_ETA at line 1059 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_COORD] in module BUILD_RANGE_SIGN_ETA at line 1059 1092 C 1093 C argument declarations 1094 C 1095 INTEGER UNIT_NUM 1096 INTEGER VARIABLE_HOLD 1097 LOGICAL ERROR 1098 C 1099 C local variables 1100 C 1101 INTEGER TOKEN 1102 CHARACTER*20 STRING_VALUE 1103 REAL NUMBER_VALUE 1104 C 1105 C 1106 C 1107 ERROR = .FALSE. 1108 C 1109 VARIABLE_HOLD = 0 1110 C 1111 DO WHILE (.TRUE.) 1112 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_SIGN, TOKEN, 1113 & STRING_VALUE, NUMBER_VALUE, ERROR, CHECK_CLASS) 1114 IF (ERROR) THEN 1115 CALL MESSAGE_OUT(MES_EXPECT_SIGN, 0, STRING_VALUE) 1116 CALL FINISH_SECTION( UNIT_NUM ) 1117 GOTO 999 1118 ENDIF 1119 C 1120 C set bit according to channel read in 1121 C add one to the index because POS_ETA = 0 BUILD_RANGE_SIGN_ETA 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 9 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 1122 C 1123 IF ( TOKEN .EQ. T_PLUS ) THEN 1124 C&IF VAXVMS,VAXELN 1125 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, POS_ETA) 1126 C&ELSE 1127 C& CALL SBIT1( VARIABLE_HOLD, POS_ETA + 1) 1128 C&ENDIF %FORT-E-INTFUNARG, Arguments incompatible with intrinsic function, assumed EXTERNAL [_HOLD, POS_ETA)] in module BUILD_RANGE_SIGN_ETA at line 1125 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [IBSET] in module BUILD_RANGE_SIGN_ETA at line 1128 1129 ELSEIF ( TOKEN .EQ. T_MINUS ) THEN 1130 C&IF VAXVMS,VAXELN 1131 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, NEG_ETA) 1132 C&ELSE 1133 C& CALL SBIT1( VARIABLE_HOLD, NEG_ETA + 1) 1134 C&ENDIF 1135 ENDIF 1136 C 1137 C next should be AND or EOL 1138 C 1139 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_AND_NL, TOKEN, STRING_VALUE, 1140 & NUMBER_VALUE, ERROR, CHECK_CLASS) 1141 IF (ERROR) THEN 1142 CALL MESSAGE_OUT(MES_EXPECT_ANEN, 0, STRING_VALUE) 1143 CALL FINISH_SECTION( UNIT_NUM ) 1144 GOTO 999 1145 ENDIF 1146 C 1147 IF (TOKEN .EQ. T_END_OF_LINE ) GOTO 999 1148 END DO 1149 C 1150 999 RETURN 1151 END %FORT-F-ADJARRUSE, Adjustable array used in invalid context [L0_BIN_COVERAGE] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_INDEX] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_SIGN_ETA at line 1007 BUILD_RANGE_SIGN_ETA 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 10 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_SIGN_ETA at line 1007 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_SIGN_ETA at line 1091 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_SIGN_ETA at line 1091 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_SIGN_ETA at line 1091 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_SIGN_ETA at line 1091 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_SIGN_ETA at line 1091 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_SIGN_ETA at line 1091 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [L0_BIN_COVERAGE] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MIN] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MAX] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_LOW] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_HIGH] in module BUILD_RANGE_SIGN_ETA BUILD_RANGE_SIGN_ETA 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 11 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_INDEX] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_ET_QUANT] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_QUANT] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MIN] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MAX] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_L2_QUANT] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [POS_ETA] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [NEG_ETA] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MIN] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MAX] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PHI_MIN] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PHI_MAX] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_TOWER] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [HD_TOWER] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_SIGN_ETA BUILD_RANGE_SIGN_ETA 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 12 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_TOWER] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_PROM] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_PROM] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MIN] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MAX] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [R_COORD] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_COORD] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_SIGN_ETA BUILD_RANGE_SIGN_ETA 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 13 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_SIGN_ETA %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_SIGN_ETA 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 14 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0001 C 0002 C 0003 C 0004 SUBROUTINE BUILD_RANGE_LIST( UNIT_NUM, LOWER_BOUND, UPPER_BOUND, 0005 & OFFSET, VARIABLE_HOLD, ERROR ) 0006 C---------------------------------------------------------------------- 0007 C- 0008 C- Purpose and Methods : Parses the portion of a LIST statement after the 0009 C- variable token. It expects a number, TO, and then another number. 0010 C- It sets bits in VARIBLE_HOLD depending on the contents of the file. 0011 C- 0012 C- Inputs : 0013 C- UNIT_NUM the IO unit number 0014 C- LOWER_BOUND the lowest valid value for the variable that will 0015 C- be read from the file 0016 C- UPPER_BOUND the highest valid value for the variable that 0017 C- will be read from the file 0018 C- OFFSET What value from the file goes into bit 1 of the 0019 C- variable. It does not have to lie in the range 0020 C- [LOWER_BOUND,UPPER_BOUND] 0021 C- 0022 C- Outputs : 0023 C- VARIABLE_HOLD An integer where the information is stored 0024 C- regarding what values of the variable are going 0025 C- to be used 0026 C- ERROR error status. .TRUE. on error 0027 C- 0028 C- Controls: none 0029 C- 0030 C- Created 15-JUN-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE 0031 C- 0032 C- 0033 C---------------------------------------------------------------------- 0034 IMPLICIT NONE 0035 C---------------------------------------------------------------------- 0036 C 0037 C Global declarations 0038 C 0039 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS' 0581 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC' 0725 C 0726 C argument declarations 0727 C 0728 INTEGER UNIT_NUM 0729 INTEGER LOWER_BOUND 0730 INTEGER UPPER_BOUND 0731 INTEGER OFFSET 0732 INTEGER VARIABLE_HOLD 0733 LOGICAL ERROR 0734 C 0735 C local variables 0736 C 0737 INTEGER COUNT 0738 INTEGER TOKEN 0739 CHARACTER*20 STRING_VALUE 0740 REAL NUMBER_VALUE 0741 INTEGER LOW BUILD_RANGE_LIST 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 15 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0742 INTEGER HIGH 0743 C 0744 C 0745 C 0746 ERROR = .FALSE. 0747 C 0748 VARIABLE_HOLD = 0 0749 C 0750 C get first token, NUMBER 0751 C 0752 CALL CHECK_NEXT_TOKEN( UNIT_NUM, T_NUMBER, TOKEN, STRING_VALUE, 0753 & NUMBER_VALUE, ERROR, CHECK_TOKEN) 0754 IF (ERROR) THEN 0755 CALL MESSAGE_OUT(MES_EXPECTED_NUMBER, 0, STRING_VALUE) 0756 CALL FINISH_SECTION( UNIT_NUM ) 0757 GOTO 999 0758 ENDIF 0759 LOW = NUMBER_VALUE 0760 IF ( ( LOW .LT. LOWER_BOUND ) .OR. 0761 & ( LOW .GT. UPPER_BOUND ) ) THEN 0762 CALL MESSAGE_OUT(MES_INVALID_INTEGER, 0, STRING_VALUE) 0763 CALL FINISH_SECTION( UNIT_NUM ) 0764 ERROR = .TRUE. 0765 GOTO 999 0766 ENDIF 0767 C 0768 C get second token, TO 0769 C 0770 CALL CHECK_NEXT_TOKEN( UNIT_NUM, T_TO, TOKEN, STRING_VALUE, 0771 & NUMBER_VALUE, ERROR, CHECK_TOKEN) 0772 IF (ERROR) THEN 0773 CALL MESSAGE_OUT(MES_EXPECT_TO, 0, STRING_VALUE) 0774 CALL FINISH_SECTION( UNIT_NUM ) 0775 GOTO 999 0776 ENDIF 0777 C 0778 C get third token, NUMBER 0779 C 0780 CALL CHECK_NEXT_TOKEN( UNIT_NUM, T_NUMBER, TOKEN, STRING_VALUE, 0781 & NUMBER_VALUE, ERROR, CHECK_TOKEN) 0782 IF (ERROR) THEN 0783 CALL MESSAGE_OUT(MES_EXPECTED_NUMBER, 0, STRING_VALUE) 0784 CALL FINISH_SECTION( UNIT_NUM ) 0785 GOTO 999 0786 ENDIF 0787 C 0788 HIGH = NUMBER_VALUE 0789 IF ( ( HIGH .LT. LOWER_BOUND ) .OR. 0790 & ( HIGH .GT. UPPER_BOUND ) ) THEN 0791 CALL MESSAGE_OUT(MES_INVALID_INTEGER, 0, STRING_VALUE) 0792 CALL FINISH_SECTION( UNIT_NUM ) 0793 ERROR = .TRUE. 0794 GOTO 999 0795 ENDIF 0796 IF ( HIGH .LT. LOW ) THEN 0797 CALL MESSAGE_OUT(MES_INVALID_RANGE, 0, STRING_VALUE) 0798 CALL FINISH_SECTION( UNIT_NUM ) BUILD_RANGE_LIST 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 16 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0799 ERROR = .TRUE. 0800 GOTO 999 0801 ENDIF 0802 C 0803 C assign the values 0804 C 0805 DO COUNT = LOW, HIGH 0806 C&IF VAXVMS,VAXELN 0807 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, COUNT - OFFSET) 0808 C&ELSE 0809 C& CALL SBIT1( VARIABLE_HOLD, COUNT - OFFSET + 1) 0810 C&ENDIF 0811 END DO 0812 C 0813 999 RETURN 0814 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 341 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 32 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 292 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 3 WIDTHS_CMN 1252 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 LSM_ERROR 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 5 TOKEN_STRING_CMN 1220 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 LSMP_SPECIFIC 24 PIC OVR REL GBL SHR NOEXE RD WRT LONG 7 LSMP_SPECIFIC_STRINGS 170 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 3347 ENTRY POINTS Address Type Name 0-00000000 BUILD_RANGE_LIST VARIABLES Address Type Name Address Type Name ** I*4 COUNT 6-00000000 L*4 DIAGNOSTICS AP-00000018@ L*4 ERROR ** I*4 HIGH 3-00000000 I*4 LINE_NUMBER ** I*4 LOW AP-00000008@ I*4 LOWER_BOUND 7-00000000 CHAR LSM_DIRECTORY_NAME 4-00000004 I*4 LSM_ERROR_CODE 4-00000008 I*4 LSM_ERROR_LINE 4-00000000 I*4 LSM_ERROR_SEVERITY 6-0000000C L*4 LSM_FILE_LOADED 7-00000028 CHAR LSM_FILE_NAME 4-0000000C I*4 LSM_IOSTAT 7-00000050 CHAR LSM_MESSAGE_FILE 6-00000014 I*4 LSM_REVISION_NUMBER 6-00000010 L*4 LSO_FILE_LOADED 6-00000008 I*4 MESSAGE_COUNT 6-00000004 I*4 MESSAGE_UNIT_NUM 2-00000018 R*4 NUMBER_VALUE BUILD_RANGE_LIST 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 17 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 AP-00000010@ I*4 OFFSET 2-00000000 CHAR STRING_VALUE 2-00000014 I*4 TOKEN AP-00000004@ I*4 UNIT_NUM AP-0000000C@ I*4 UPPER_BOUND AP-00000014@ I*4 VARIABLE_HOLD ARRAYS Address Type Name Bytes Dimensions 3-00000424 I*4 DATA_TYPE 96 (24) 3-00000484 I*4 INDEX_TO_SECTION 96 (24) 3-000003C4 I*4 NUM_ACTIVE_VARIABLES 96 (24) 5-00000000 CHAR TOKEN_STRING 1220 (61) 3-000001E4 I*4 VARIABLE_ORDER 480 (5, 24) 3-00000004 I*4 WIDTHS 480 (5, 24) LABELS Address Label 0-00000154 999 FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name CHECK_NEXT_TOKEN FINISH_SECTION I*4 FOR$JIBSET MESSAGE_OUT 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 18 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0001 C 0002 C 0003 C 0004 SUBROUTINE BUILD_RANGE_CHANNEL( UNIT_NUM, VARIABLE_HOLD, ERROR ) 0005 C---------------------------------------------------------------------- 0006 C- 0007 C- Purpose and Methods : Parses the remainder of a with statement where the 0008 C- variable is CHANNEL. It sets bits in VARIBLE_HOLD according to 0009 C- the contents of the file. 0010 C- 0011 C- Inputs : 0012 C- UNIT_NUM the IO unit number 0013 C- 0014 C- Outputs : 0015 C- VARIABLE_HOLD An integer where the information is stored 0016 C- regarding what values of the variable are going 0017 C- to be used 0018 C- ERROR error status. .TRUE. on error 0019 C- 0020 C- Controls: none 0021 C- 0022 C- Created 15-JUN-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE 0023 C- 0024 C- 0025 C---------------------------------------------------------------------- 0026 IMPLICIT NONE 0027 C---------------------------------------------------------------------- 0028 C 0029 C Global declarations 0030 C 0031 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS' 0573 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC' 0717 INCLUDE 'D0$INC:LEVEL1_LOOKUP.PARAMS' %FORT-F-INCOPEFAI, Open failure on INCLUDE file [_LOOKUP.PARAMS'] in module BUILD_RANGE_CHANNEL at line 717 0718 INCLUDE 'D0$INC:LEVEL1_LOOKUP.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MIN] in module BUILD_RANGE_CHANNEL at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MAX] in module BUILD_RANGE_CHANNEL at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_LOW] in module BUILD_RANGE_CHANNEL at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_HIGH] in module BUILD_RANGE_CHANNEL at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_ET_QUANT] in module BUILD_RANGE_CHANNEL at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_QUANT] in module BUILD_RANGE_CHANNEL at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MIN] in module BUILD_RANGE_CHANNEL at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MAX] in module BUILD_RANGE_CHANNEL at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_L2_QUANT] in module BUILD_RANGE_CHANNEL at line 847 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [POS_ETA] in module BUILD_RANGE_CHANNEL at line 859 BUILD_RANGE_CHANNEL 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 19 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [NEG_ETA] in module BUILD_RANGE_CHANNEL at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MIN] in module BUILD_RANGE_CHANNEL at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MAX] in module BUILD_RANGE_CHANNEL at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MIN] in module BUILD_RANGE_CHANNEL at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MAX] in module BUILD_RANGE_CHANNEL at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_TOWER] in module BUILD_RANGE_CHANNEL at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [HD_TOWER] in module BUILD_RANGE_CHANNEL at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_TOWER] in module BUILD_RANGE_CHANNEL at line 910 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_PROM] in module BUILD_RANGE_CHANNEL at line 970 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_PROM] in module BUILD_RANGE_CHANNEL at line 970 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MIN] in module BUILD_RANGE_CHANNEL at line 970 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MAX] in module BUILD_RANGE_CHANNEL at line 970 1010 INCLUDE 'LSMP$SOURCE:LEVEL1_LOOKUP_EXPANSION.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [R_COORD] in module BUILD_RANGE_CHANNEL at line 1061 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_COORD] in module BUILD_RANGE_CHANNEL at line 1061 1094 C 1095 C argument declarations 1096 C 1097 INTEGER UNIT_NUM 1098 INTEGER VARIABLE_HOLD 1099 LOGICAL ERROR 1100 C 1101 C local variables 1102 C 1103 INTEGER TOKEN 1104 CHARACTER*20 STRING_VALUE 1105 REAL NUMBER_VALUE 1106 C 1107 C 1108 C 1109 ERROR = .FALSE. 1110 C 1111 VARIABLE_HOLD = 0 1112 C 1113 DO WHILE (.TRUE.) 1114 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_CHANNEL, TOKEN, STRING_VALUE, 1115 & NUMBER_VALUE, ERROR, CHECK_CLASS) 1116 IF (ERROR) THEN 1117 CALL MESSAGE_OUT( MES_EXPECT_EMHDTOT, 0, STRING_VALUE ) 1118 CALL FINISH_SECTION( UNIT_NUM ) 1119 GOTO 999 1120 ENDIF 1121 C BUILD_RANGE_CHANNEL 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 20 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 1122 C set bit according to channel read in 1123 C 1124 IF ( TOKEN .EQ. T_EM ) THEN 1125 C&IF VAXVMS,VAXELN 1126 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, EM_TOWER -1) 1127 C&ELSE 1128 C& CALL SBIT1( VARIABLE_HOLD, EM_TOWER ) 1129 C&ENDIF %FORT-E-INTFUNARG, Arguments incompatible with intrinsic function, assumed EXTERNAL [D, EM_TOWER -1)] in module BUILD_RANGE_CHANNEL at line 1126 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [IBSET] in module BUILD_RANGE_CHANNEL at line 1129 1130 ELSEIF ( TOKEN .EQ. T_HD ) THEN 1131 C&IF VAXVMS,VAXELN 1132 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, HD_TOWER -1) 1133 C&ELSE 1134 C& CALL SBIT1( VARIABLE_HOLD, HD_TOWER ) 1135 C&ENDIF 1136 ELSEIF ( TOKEN .EQ. T_TOT ) THEN 1137 C&IF VAXVMS,VAXELN 1138 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, TOT_TOWER-1) 1139 C&ELSE 1140 C& CALL SBIT1( VARIABLE_HOLD, TOT_TOWER ) 1141 C&ENDIF 1142 ENDIF 1143 C 1144 C next should be AND or EOL 1145 C 1146 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_AND_NL, TOKEN, STRING_VALUE, 1147 & NUMBER_VALUE, ERROR, CHECK_CLASS) 1148 IF (ERROR) THEN 1149 CALL MESSAGE_OUT(MES_EXPECT_ANEN, 0, STRING_VALUE) 1150 CALL FINISH_SECTION( UNIT_NUM ) 1151 GOTO 999 1152 ENDIF 1153 C 1154 IF (TOKEN .EQ. T_END_OF_LINE ) GOTO 999 1155 END DO 1156 C 1157 999 RETURN 1158 END %FORT-F-ADJARRUSE, Adjustable array used in invalid context [L0_BIN_COVERAGE] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_INDEX] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_CHANNEL at line 1009 BUILD_RANGE_CHANNEL 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 21 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_CHANNEL at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_CHANNEL at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_CHANNEL at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_CHANNEL at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_CHANNEL at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_CHANNEL at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_CHANNEL at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [L0_BIN_COVERAGE] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MIN] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MAX] in module BUILD_RANGE_CHANNEL BUILD_RANGE_CHANNEL 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 22 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_LOW] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_HIGH] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_INDEX] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_ET_QUANT] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_QUANT] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MIN] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MAX] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_L2_QUANT] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [POS_ETA] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [NEG_ETA] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MIN] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MAX] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PHI_MIN] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PHI_MAX] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_TOWER] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [HD_TOWER] in module BUILD_RANGE_CHANNEL BUILD_RANGE_CHANNEL 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 23 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_TOWER] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_PROM] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_PROM] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MIN] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MAX] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [R_COORD] in module BUILD_RANGE_CHANNEL BUILD_RANGE_CHANNEL 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 24 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_COORD] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_CHANNEL %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_CHANNEL 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 25 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0001 C 0002 C 0003 C 0004 SUBROUTINE BUILD_RANGE_LOOKUP( UNIT_NUM, VARIABLE_HOLD, ERROR ) 0005 C---------------------------------------------------------------------- 0006 C- 0007 C- Purpose and Methods : Parses the remainder of a with statement where the 0008 C- variable is LOOKUP. It sets bits in VARIBLE_HOLD according to 0009 C- the contents of the file. 0010 C- 0011 C- Inputs : 0012 C- UNIT_NUM the IO unit number 0013 C- 0014 C- Outputs : 0015 C- VARIABLE_HOLD An integer where the information is stored 0016 C- regarding what values of the variable are going 0017 C- to be used 0018 C- ERROR error status. .TRUE. on error 0019 C- 0020 C- Controls: none 0021 C- 0022 C- Created 15-JUN-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE 0023 C- 0024 C- 0025 C---------------------------------------------------------------------- 0026 IMPLICIT NONE 0027 C---------------------------------------------------------------------- 0028 C 0029 C Global declarations 0030 C 0031 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS' 0573 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC' 0717 INCLUDE 'D0$INC:LEVEL1_LOOKUP.PARAMS' %FORT-F-INCOPEFAI, Open failure on INCLUDE file [_LOOKUP.PARAMS'] in module BUILD_RANGE_LOOKUP at line 717 0718 INCLUDE 'D0$INC:LEVEL1_LOOKUP.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MIN] in module BUILD_RANGE_LOOKUP at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MAX] in module BUILD_RANGE_LOOKUP at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_LOW] in module BUILD_RANGE_LOOKUP at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_HIGH] in module BUILD_RANGE_LOOKUP at line 782 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_ET_QUANT] in module BUILD_RANGE_LOOKUP at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_QUANT] in module BUILD_RANGE_LOOKUP at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MIN] in module BUILD_RANGE_LOOKUP at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MAX] in module BUILD_RANGE_LOOKUP at line 818 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_L2_QUANT] in module BUILD_RANGE_LOOKUP at line 847 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [POS_ETA] in module BUILD_RANGE_LOOKUP at line 859 BUILD_RANGE_LOOKUP 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 26 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [NEG_ETA] in module BUILD_RANGE_LOOKUP at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MIN] in module BUILD_RANGE_LOOKUP at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MAX] in module BUILD_RANGE_LOOKUP at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MIN] in module BUILD_RANGE_LOOKUP at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MAX] in module BUILD_RANGE_LOOKUP at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_TOWER] in module BUILD_RANGE_LOOKUP at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [HD_TOWER] in module BUILD_RANGE_LOOKUP at line 859 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_TOWER] in module BUILD_RANGE_LOOKUP at line 910 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_PROM] in module BUILD_RANGE_LOOKUP at line 970 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_PROM] in module BUILD_RANGE_LOOKUP at line 970 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MIN] in module BUILD_RANGE_LOOKUP at line 970 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MAX] in module BUILD_RANGE_LOOKUP at line 970 1010 INCLUDE 'LSMP$SOURCE:LEVEL1_LOOKUP_EXPANSION.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [R_COORD] in module BUILD_RANGE_LOOKUP at line 1061 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_COORD] in module BUILD_RANGE_LOOKUP at line 1061 1094 C 1095 C argument declarations 1096 C 1097 INTEGER UNIT_NUM 1098 INTEGER VARIABLE_HOLD 1099 LOGICAL ERROR 1100 C 1101 C local variables 1102 C 1103 INTEGER TOKEN 1104 CHARACTER*20 STRING_VALUE 1105 REAL NUMBER_VALUE 1106 C 1107 C 1108 C 1109 ERROR = .FALSE. 1110 C 1111 VARIABLE_HOLD = 0 1112 C 1113 DO WHILE (.TRUE.) 1114 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_LOOKUP, TOKEN, STRING_VALUE, 1115 & NUMBER_VALUE, ERROR, CHECK_CLASS) 1116 IF (ERROR) THEN 1117 CALL MESSAGE_OUT(MES_EXPECT_ETL2, 0, STRING_VALUE) 1118 CALL FINISH_SECTION( UNIT_NUM ) 1119 GOTO 999 1120 ENDIF 1121 C BUILD_RANGE_LOOKUP 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 27 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 1122 C set bit according to channel read in 1123 C 1124 IF ( TOKEN .EQ. T_ET ) THEN 1125 C&IF VAXVMS,VAXELN 1126 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, ET_LOOKUP-1) 1127 C&ELSE 1128 C& CALL SBIT1( VARIABLE_HOLD, ET_LOOKUP ) 1129 C&ENDIF 1130 ELSEIF ( TOKEN .EQ. T_L2 ) THEN 1131 C&IF VAXVMS,VAXELN 1132 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, L2_LOOKUP-1) 1133 C&ELSE 1134 C& CALL SBIT1( VARIABLE_HOLD, L2_LOOKUP ) 1135 C&ENDIF 1136 ELSEIF ( TOKEN .EQ. T_PX ) THEN 1137 C&IF VAXVMS,VAXELN 1138 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, PX_LOOKUP-1) 1139 C&ELSE 1140 C& CALL SBIT1( VARIABLE_HOLD, PX_LOOKUP ) 1141 C&ENDIF 1142 ELSEIF ( TOKEN .EQ. T_PY ) THEN 1143 C&IF VAXVMS,VAXELN 1144 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, PY_LOOKUP-1) 1145 C&ELSE 1146 C& CALL SBIT1( VARIABLE_HOLD, PY_LOOKUP ) 1147 C&ENDIF 1148 ENDIF 1149 C 1150 C next should be AND or EOL 1151 C 1152 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_AND_NL, TOKEN, STRING_VALUE, 1153 & NUMBER_VALUE, ERROR, CHECK_CLASS) 1154 IF (ERROR) THEN 1155 CALL MESSAGE_OUT(MES_EXPECT_ANEN, 0, STRING_VALUE) 1156 CALL FINISH_SECTION( UNIT_NUM ) 1157 GOTO 999 1158 ENDIF 1159 C 1160 IF (TOKEN .EQ. T_END_OF_LINE ) GOTO 999 1161 END DO 1162 C 1163 999 RETURN 1164 END %FORT-F-ADJARRUSE, Adjustable array used in invalid context [L0_BIN_COVERAGE] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_INDEX] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_LOOKUP at line 1009 BUILD_RANGE_LOOKUP 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 28 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_LOOKUP at line 1009 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_LOOKUP at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_LOOKUP at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_LOOKUP at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_LOOKUP at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_LOOKUP at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_LOOKUP at line 1093 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [L0_BIN_COVERAGE] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MIN] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MAX] in module BUILD_RANGE_LOOKUP BUILD_RANGE_LOOKUP 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 29 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_LOW] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_HIGH] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_INDEX] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_ET_QUANT] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_QUANT] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MIN] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MAX] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_L2_QUANT] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [POS_ETA] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [NEG_ETA] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MIN] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MAX] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PHI_MIN] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PHI_MAX] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_TOWER] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [HD_TOWER] in module BUILD_RANGE_LOOKUP BUILD_RANGE_LOOKUP 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 30 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_TOWER] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_PROM] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_PROM] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MIN] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MAX] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [R_COORD] in module BUILD_RANGE_LOOKUP BUILD_RANGE_LOOKUP 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 31 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_COORD] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_LOOKUP %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_LOOKUP 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 32 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 0001 C 0002 C 0003 C 0004 SUBROUTINE BUILD_RANGE_PROM( UNIT_NUM, VARIABLE_HOLD, ERROR ) 0005 C---------------------------------------------------------------------- 0006 C- 0007 C- Purpose and Methods : Parses the remainder of a WITH statement that 0008 C- specifies variable PROM. Sets bits in VARIABLE according to the range 0009 C- specified. 0010 C- 0011 C- Inputs : UNIT_NUM The IO unit number 0012 C- Outputs : VARIABLE_HOLD Bits set in this integer indicate the range the 0013 C- variable is active over 0014 C- ERROR Error status. .TRUE. on error. 0015 C- Controls: none 0016 C- 0017 C- Created 11-JUL-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE 0018 C- 0019 C---------------------------------------------------------------------- 0020 IMPLICIT NONE 0021 C---------------------------------------------------------------------- 0022 C 0023 C Global declarations 0024 C 0025 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS' 0567 INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC' 0711 INCLUDE 'D0$INC:LEVEL1_LOOKUP.PARAMS' %FORT-F-INCOPEFAI, Open failure on INCLUDE file [_LOOKUP.PARAMS'] in module BUILD_RANGE_PROM at line 711 0712 INCLUDE 'D0$INC:LEVEL1_LOOKUP.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MIN] in module BUILD_RANGE_PROM at line 776 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [L0_BIN_MAX] in module BUILD_RANGE_PROM at line 776 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_LOW] in module BUILD_RANGE_PROM at line 776 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_HIGH] in module BUILD_RANGE_PROM at line 776 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_ET_QUANT] in module BUILD_RANGE_PROM at line 812 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_QUANT] in module BUILD_RANGE_PROM at line 812 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MIN] in module BUILD_RANGE_PROM at line 812 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_NUM_MAX] in module BUILD_RANGE_PROM at line 812 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_L2_QUANT] in module BUILD_RANGE_PROM at line 841 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [POS_ETA] in module BUILD_RANGE_PROM at line 853 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [NEG_ETA] in module BUILD_RANGE_PROM at line 853 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MIN] in module BUILD_RANGE_PROM at line 853 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [ETA_RANGE_MAX] in module BUILD_RANGE_PROM at line 853 BUILD_RANGE_PROM 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 33 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MIN] in module BUILD_RANGE_PROM at line 853 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PHI_MAX] in module BUILD_RANGE_PROM at line 853 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_TOWER] in module BUILD_RANGE_PROM at line 853 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [HD_TOWER] in module BUILD_RANGE_PROM at line 853 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [TOT_TOWER] in module BUILD_RANGE_PROM at line 904 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [EM_PROM] in module BUILD_RANGE_PROM at line 964 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PY_PROM] in module BUILD_RANGE_PROM at line 964 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MIN] in module BUILD_RANGE_PROM at line 964 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PAGE_INDEX_MAX] in module BUILD_RANGE_PROM at line 964 1004 INCLUDE 'LSMP$SOURCE:LEVEL1_LOOKUP_EXPANSION.INC' %FORT-E-IMPNONE, Untyped name, must be explicitly typed [R_COORD] in module BUILD_RANGE_PROM at line 1055 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [Z_COORD] in module BUILD_RANGE_PROM at line 1055 1088 C 1089 C argument declarations 1090 C 1091 INTEGER UNIT_NUM 1092 INTEGER VARIABLE_HOLD 1093 LOGICAL ERROR 1094 C 1095 C local variables 1096 C 1097 INTEGER TOKEN 1098 CHARACTER*20 STRING_VALUE 1099 REAL NUMBER_VALUE 1100 C 1101 C 1102 C 1103 ERROR = .FALSE. 1104 C 1105 VARIABLE_HOLD = 0 1106 C 1107 DO WHILE (.TRUE.) 1108 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_PROM, TOKEN, STRING_VALUE, 1109 & NUMBER_VALUE, ERROR, CHECK_CLASS) 1110 IF (ERROR) THEN 1111 CALL MESSAGE_OUT(MES_EXPECT_XXPROM, 0, STRING_VALUE) 1112 CALL FINISH_SECTION( UNIT_NUM ) 1113 GOTO 999 1114 ENDIF 1115 C 1116 C set bit according to channel read in 1117 C 1118 IF ( TOKEN .EQ. T_EM_PROM ) THEN 1119 C&IF VAXVMS,VAXELN 1120 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, EM_PROM-1) 1121 C&ELSE BUILD_RANGE_PROM 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 34 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 1122 C& CALL SBIT1( VARIABLE_HOLD, EM_PROM ) 1123 C&ENDIF %FORT-E-INTFUNARG, Arguments incompatible with intrinsic function, assumed EXTERNAL [OLD, EM_PROM-1)] in module BUILD_RANGE_PROM at line 1120 %FORT-E-IMPNONE, Untyped name, must be explicitly typed [IBSET] in module BUILD_RANGE_PROM at line 1123 1124 ELSEIF ( TOKEN .EQ. T_HD_PROM ) THEN 1125 C&IF VAXVMS,VAXELN 1126 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, HD_PROM-1) 1127 C&ELSE 1128 C& CALL SBIT1( VARIABLE_HOLD, HD_PROM ) 1129 C&ENDIF %FORT-E-IMPNONE, Untyped name, must be explicitly typed [HD_PROM] in module BUILD_RANGE_PROM at line 1129 1130 ELSEIF ( TOKEN .EQ. T_PX_PROM ) THEN 1131 C&IF VAXVMS,VAXELN 1132 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, PX_PROM-1) 1133 C&ELSE 1134 C& CALL SBIT1( VARIABLE_HOLD, PX_PROM ) 1135 C&ENDIF %FORT-E-IMPNONE, Untyped name, must be explicitly typed [PX_PROM] in module BUILD_RANGE_PROM at line 1135 1136 ELSEIF ( TOKEN .EQ. T_PY_PROM ) THEN 1137 C&IF VAXVMS,VAXELN 1138 VARIABLE_HOLD = IBSET(VARIABLE_HOLD, PY_PROM-1) 1139 C&ELSE 1140 C& CALL SBIT1( VARIABLE_HOLD, PY_PROM ) 1141 C&ENDIF 1142 ENDIF 1143 C 1144 C next should be AND or EOL 1145 C 1146 CALL CHECK_NEXT_TOKEN( UNIT_NUM, C_AND_NL, TOKEN, STRING_VALUE, 1147 & NUMBER_VALUE, ERROR, CHECK_CLASS) 1148 IF (ERROR) THEN 1149 CALL MESSAGE_OUT(MES_EXPECT_ANEN, 0, STRING_VALUE) 1150 CALL FINISH_SECTION( UNIT_NUM ) 1151 GOTO 999 1152 ENDIF 1153 C 1154 IF (TOKEN .EQ. T_END_OF_LINE ) GOTO 999 1155 END DO 1156 C 1157 1158 999 RETURN 1159 END %FORT-F-ADJARRUSE, Adjustable array used in invalid context [L0_BIN_COVERAGE] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context BUILD_RANGE_PROM 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 35 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 [LUQ_PAGE_INDEX] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_PROM at line 1003 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_PROM at line 1087 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_PROM at line 1087 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_PROM at line 1087 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_PROM at line 1087 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_PROM at line 1087 %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_PROM at line 1087 %FORT-F-ADJARRUSE, Adjustable array used in invalid context BUILD_RANGE_PROM 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 36 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 [L0_BIN_COVERAGE] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MIN] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [L0_BIN_MAX] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_LOW] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_HIGH] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_INDEX] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_ET_QUANT] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_QUANT] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MIN] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_NUM_MAX] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_PAGE_NUMBER] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [GLOBAL_ENERGY_SCALE] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_L2_QUANT] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ELEC_NOISE_SIGMA] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [POS_ETA] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [NEG_ETA] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MIN] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [ETA_RANGE_MAX] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PHI_MIN] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item BUILD_RANGE_PROM 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 37 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 [PHI_MAX] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_TOWER] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [HD_TOWER] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [INPUT_ENERGY_ERROR] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ANALOG_INPUT_SCALING] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_CNT_VS_RAW_E] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [TOT_TOWER] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [DAC_BYTE] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [ADC_ZERESP] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LUQ_LOCAL_RESCALING] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [LOOKUP_ZERESP] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_CUT] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [EM_PROM] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PY_PROM] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MIN] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [PAGE_INDEX_MAX] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PROM_SLOPE] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TREE_OFFSET] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [PAGE_Z_NOM] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context BUILD_RANGE_PROM 4-Dec-1991 11:47:31 VAX FORTRAN V5.4-79 Page 38 01 4-Dec-1991 11:06:37 BUILD_RANGE.FOR;6 [ELEC_NOISE_CUT_FACT] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_RZ_COORD] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [R_COORD] in module BUILD_RANGE_PROM %FORT-F-ADJARRBOU, Adjustable array bound contains invalid data item [Z_COORD] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TOWER_PHI_COORD] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [FINAL_FITTING] in module BUILD_RANGE_PROM %FORT-F-ADJARRUSE, Adjustable array used in invalid context [TRANSV_ENERGY_CUT] in module BUILD_RANGE_PROM COMMAND QUALIFIERS FOR/LIST [.SOURCE]BUILD_RANGE.FOR /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW) /DEBUG=(NOSYMBOLS,TRACEBACK) /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS) /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE) /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX) /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN) /CONTINUATIONS=19 /NOCROSS_REFERENCE /NOD_LINES /NOEXTEND_SOURCE /F77 /NOG_FLOATING /I4 /NOMACHINE_CODE /OPTIMIZE /NOPARALLEL /NOANALYSIS_DATA /NODIAGNOSTICS /LIST=MSUTRGROOT:[000000.TRG_OFFLINE.SOURCE_LSMPROG]BUILD_RANGE.LIS;1 /OBJECT=MSUTRGROOT:[000000.TRG_OFFLINE.SOURCE_LSMPROG]BUILD_RANGE.OBJ;1 COMPILATION STATISTICS Run Time: 4.58 seconds Elapsed Time: 9.08 seconds Page Faults: 423 Dynamic Memory: 632 pages