| 1 $JOB ANALYSIS OF VARIANCE TEST $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. | $IBJOB GO,MAP,LOGIC | $IBFTC BLDV DECK BLDV 0 1 12/01/64 PAGE 1 | BLDV - EFN SOURCE STATEMENT - IFN(S) - | 0| C 'BLDV' SETS CONSTANTS IN COMMON BLOCK LABELLED 'SETK' NEEDED BY BLDV 1 | C GENERALIZED FACTORIAL ANALYSIS OF VARIANCE PROGRAM 'ANV', AND BLDV 2 C 'BLDV' SHOULD PRECEDE 'ANV'. BLDV 3 | C BLDV 4 | C SET 'MRE','MPR','JW','JX' EQUAL TO APPROPRIATE LOGICAL NUMBERS BLDV 5 | C OF DESIRED INPUT, OUTPUT, AND TWO SCRATCH TAPES. 'MEOF' MUST BE SET BLDV 6 | C EQUAL TO ZERO IF 'MPR' IS A MONITOR PRINT OR PUNCH TAPE, OTHERWISE BLDV 7 C 'MEOF' MUST BE SET EQUAL TO ONE (OR ANY NONZERO INTEGER). BLDV 8 | C CURRENT ASSEMBLY DOES NOT MAKE USE OF SCRATCH TAPES 'JW' AND 'JX'. BLDV 9 | BLOCK DATA BLDV 10 | COMMON/SETK/ALF(12),OPTION(6),BLANK,MSK(12),MRE,MPR,JW,JX,MEOF BLDV 11 | 0DATA ALF(1)/72HA B C D E F G H I BLDV 12 1 J K L /,OPTION(1)/36H DEVIATES MEANS BLDV 13 | 2 /,BLANK/1H /,(MSK(I),I=1,12)/1,2,4,8,16,32,64,128,256,512, BLDV 14 | 31024,2048/,MRE/5/,MPR/6/,JW/ 3/,JX/ 4/,MEOF/1/ BLDV 15 | END BLDV 16 | 1 12/01/64 PAGE 2 | 0| -| $IBFTC ANV DECK ANV 0 | 1 12/01/64 PAGE 3 ANV - EFN SOURCE STATEMENT - IFN(S) - | 0| C 'ANV', GENERALIZED FACTORIAL ANALYSIS OF VARIANCE PROGRAM, ANV 1 | C MUST BE PRECEDED BY 'BLDV' (OR 'SETK') AND FOLLOWED BY 'TRAN'. ANV 2 | C ANV 3 C THIS IS L.R.GROSENBAUGH'S IMPROVED AND EXPANDED FORTRAN-4 REVISION OFANV 4 | C AN EARLIER VERSION OUTLINED BY K.C.PENG (GENERAL MOTORS) IN 1964 ANV 5 | C COMMUNICATIONS OF ACM VOL. 7,PAGES 415-416. STILL EARLIER EXPOSITIONSANV 6 | C OF THIS GENERALIZED TECHNIQUE INCLUDE P.REAL'S 1958 G4-AA-ANVA 704 ANV 7 | C PROGRAM (SHARE NO. 421) AND H.O.HARTLEY'S ARTICLE IN 1956 BIOMETRICS ANV 8 C VOL. 12, PAGES 110-122. ANV 9 | C ANV 10 | C FIRST CONTROL CARD USES COLUMNS 2-72 FOR TEXTUAL IDENTIFICATION OF ANV 11 | C PROBLEM. ANV 12 | C ANV 13 C SECOND CONTROL CARD USES 20 FOUR-COLUMN FIELDS FOR INTEGERS OR ZEROS ANV 14 | C SPECIFYING PROBLEM PARAMETERS AS FOLLOWS-----------------------------ANV 15 | C (1) NUMBER OF FACTORS, LATER CALLED 'M' . NOTE THAT ANV 16 | C 'REPS WITHIN BLOCK' IS CONSIDERED AS FIRST FACTOR WHEN NUMBER OF REPSANV 17 | C IS GREATER THAN UNITY. ANV 18 C (2) ZERO OR ONE FOR FACTORIAL DESIGN WITHOUT REPS WITHIN BLOCK, ANV 19 | C TWO FOR FACTORIAL DESIGN WITH REPS WITHIN BLOCK. WHEN REPS WITHIN ANV 20 | C BLOCK ARE SPECIFIED, PROGRAM COMPUTES A VALUE TO BE COMPARED WITH ANV 21 | C CHISQUARE FOR BARTLETT'S TEST OF HOMOGENEITY OF POOLED ERROR TERM. ANV 22 | C (3) ZERO FOR ALL NONNESTED DESIGNS, OTHERWISE INTEGER DENOTING NUMBERANV 23 C OF STAGES OF NESTING. ONE-STAGE NESTING INVOLVES RIGHTMOST FACTOR ANV 24 | C ONLY, EACH LEVEL OF WHICH WILL BE ANALYZED SEPARATELY AFTER COMBINED ANV 25 | C ANALYSIS. TWO-STAGE NESTING INVOLVES NEXT-TO-LAST FACTOR, ETC. ANV 26 | C NUMBER OF STAGES SHOULD NEVER EXCEED 'M-1'(OR 'M-2' WHEN REPS WITHIN ANV 27 | C BLOCK HAVE BEEN SPECIFIED). ANV 28 C (4) USER MAY INSERT ANY FOUR-DIGIT INTEGER DESIRED OR LEAVE BLANK. ANV 29 | C THIS IS READ AS DUMMY PARAMETER 'JDUM' NOT CURRENTLY NEEDED BUT ANV 30 | C AVAILABLE IN MEMORY FOR POSSIBLE FUTURE USE. ANV 31 | C (5) ZERO OR ONE FOR NO TRANSFORMATION OF DATA, 2=LOG(X), 3=LOG(X+1), ANV 32 | C 4=SQRT(X+.5), 5=ARCSIN(SQRT PCT), 6=.5*LOG((1+R)/(1-R))=ARCTANH(R)ANV 33 C 7= ANV 34 | C ANV 35 | C (6) ZERO FOR NO LISTING OF DATA, ONE FOR DATA LISTING. ANV 36 | C (7) ZERO FOR NO SEPARATE EARLY PRINTOUT OF ALL MEANS OR HARTLEY'S ANV 37 | C DEVIATES, ONE FOR SEPARATE EARLY PRINTOUT OF ALL MEANS, TWO FOR ANV 38 C SEPARATE EARLY PRINTOUT OF ALL DEVIATES. ANV 39 | C (8) ZERO FOR NO PRINTOUT OF MEANS OR HARTLEY'S DEVIATES AMONG ANV 40 | C ANALYSIS-OF-VARIANCE ITEMS, ONE FOR INTERMINGLED PRINTOUT OF ALL ANV 41 | C MEANS INVOLVED, TWO FOR INTERMINGLED PRINTOUT OF ALL DEVIATES. ANV 42 | C PRINTOUT OF DEVIATES INTERMINGLED WITH ANALYSIS-OF-VARIANCE ITEMS ANV 43 C REQUIRES THE LEAST EXTRA COMPUTATIONAL EFFORT, SO IF PRINTOUT OF BOTHANV 44 | C MEANS AND DEVIATES IS DESIRED, EFFICIENCY DICTATES SPECIFYING ANV 45 | C SEPARATE EARLY PRINTOUT OF MEANS, INTERMINGLED PRINTOUT OF DEVIATES. ANV 46 | C (9 THROUGH 20) ORDINAL INTEGERS SPECIFIED BY USER IN ASCENDING ORDER,ANV 47 | C CORRESPONDING TO THOSE MAIN FACTOR EFFECTS THAT USER WISHES ANV 48 C PARTITIONED INTO LINEAR, QUADRATIC, CUBIC, AND RESIDUAL COMPONENTS. ANV 49 | C THE FIRST BLANK OR ZERO FIELD ENCOUNTERED TERMINATES SCAN. FACTOR ANV 50 | C ORDINALS SHOULD NOT BE SPECIFIED HERE UNLESS THEIR LEVELS REPRESENT ANV 51 | C MAGNITUDES IN ARITHMETIC PROGRESSION. ANV 52 | C ANV 53 C THIRD CONTROL CARD USES 12 FOUR-COLUMN FIELDS TO SHOW NUMBER OF ANV 54 | C LEVELS OF EACH CONSECUTIVE FACTOR COMPRISING THE DESIGN, WITH ANV 55 | 1 12/01/64 PAGE 4 | ANV - EFN SOURCE STATEMENT - IFN(S) - | 0C LEFTMOST FACTOR (FACTOR 'A' OR '1') BEING NUMBER OF REPS WITHIN BLOCKANV 56 C IF APPROPRIATE, OTHERWISE NUMBER OF LEVELS OF FACTOR WHOSE LEVELS ANV 57 | C VARY MOST RAPIDLY IN DATA ARRAY. NEXT LEFTMOST FACTOR ('B'='2') HAS ANV 58 | C LEVELS VARYING NEXT MOST RAPIDLY, ETC. ANV 59 | C ANV 60 | C NEXT 'M' CONTROL CARDS USE COLUMNS 1-72 FOR TEXTUAL IDENTIFICATION ANV 61 C OF EACH OF THE 'M' FACTORS IN CONSECUTIVE ORDER. ANV 62 | C ANV 63 | C NEXT CONTROL CARD USES COLUMNS 1-72 FOR TEXTUAL IDENTIFICATION OF THEANV 64 | C OBSERVED RESPONSE VARIABLE. ANV 65 | C ANV 66 C NEXT CONTROL CARD SPECIFIES 'FMT' (VARIABLE FORMAT) APPROPRIATE TO ANV 67 | C INPUT DATA. ANV 68 | C ANV 69 | C PROPERLY ARRAYED DATA SHOULD FOLLOW 'FMT' CARD IMMEDIATELY. ANV 70 | C ANV 71 C DATA MUST BE ARRAYED IN ASCENDING ORDER OF LEVEL (WHERE LEVEL ANV 72 | C INVOLVES MAGNITUDES), STARTING WITH LEFTMOST FACTOR (THE FACTOR ANV 73 | C WHOSE LEVELS VARY MOST RAPIDLY, SIMILAR TO CONVENTION FOR ARRAYING ANV 74 | C SUBSCRIPTS). NO LEVEL OR SUBSCRIPT INDICATOR SHOULD BE PUNCHED IN ANV 75 | C ANY DATA CARD, ALTHOUGH FACTOR LEVELS IMPLIED BY INPUT ARRAY WILL ANV 76 C APPEAR ON OPTIONAL PRINTOUT OF DATA. ANV 77 | C ANV 78 | C 'TOT' DFS AND SUM OF SQUARES BELOW DASHED LINE ARE AGGREGATES ANV 79 | C COMPUTED INDEPENDENTLY OF 'NUMBER OF OBSERVATIONS' (MINUS ONE) AND ANV 80 | C 'GSS' ASSOCIATED WITH EARLIER GRAND MEAN AND GRAND STANDARD ANV 81 C DEVIATION, SO A CHECK ON COMPUTATION IS POSSIBLE. MINOR DISCREPANCY ANV 82 | C ATTRIBUTABLE TO ROUNDING ERRORS MAY BE IGNORED. ANV 83 | C ANV 84 | C WHEN ANY GROUP OF WITHIN-BLOCK REPS SHOW ZERO VARIANCE, BARTLETT'S ANV 85 | C HOMOGENEITY TEST CANNOT BE CONDUCTED, BUT POOLED REP ERROR VARIANCE ANV 86 C WILL BE CORRECTLY PRINTED AND A REFERENCE VALUE OF 9999999999. WITH ANV 87 | C 999 DFS WILL BE SHOWN FOR BARTLETT'S TEST. WHEN THRO MACHINE ERROR ANV 88 | C NEGATIVE VARIANCE IS COMPUTED, POOLED REP ERROR VARIANCE IS SET EQUALANV 89 | C TO ZERO AND ITS PRINTOUT IS OMITTED, BUT A REFERENCE VALUE OF ANV 90 | C -999999999. WITH -999 DFS IS SHOWN FOR BARTLETT'S TEST. CERTAIN ANV 91 C OTHER MACHINE ERRORS, TAPE ERRORS, OR INPUT ERRORS (CONTROL CARDS, ANV 92 | C DATA CARDS, OR ARRANGEMENT ) CAUSE TERMINATION OF PROCESSING WITH ANV 93 | C ERROR MESSAGE ATTRIBUTING FAULT TO INPUT DATA. ANV 94 | C ANV 95 | C GRAECO-LATIN SQUARES CAN BE HANDLED AS TWO (NXN) ANALYSES, THE FIRST ANV 96 C ARRAYED BY ROW WITHIN COLUMN, THE SECOND ARRAYED BY GREEK TREATMENT ANV 97 | C WITHIN LATIN TREATMENT. FOR A LATIN SQUARE, THE SECOND ARRAY WOULD ANV 98 | C BE BY COLUMN WITHIN LATIN TREATMENT. ANV 99 | C ANV 100 | C HARTLEY'S UNIVERSAL MISSING PLOT TECHNIQUE NEEDS ONLY OUTPUT FROM ANV 101 C THREE RUNS OF 'ANV' TO SUPPLY LEAST-SQUARES ESTIMATE OF MISSING PLOTANV 102 | C (CF. 1956 BIOMETRICS 12, PAGE 121). ANV 103 | C ANV 104 | C AS MANY DIFFERENT SETS OF DATA (EACH WITH APPROPRIATE CONTROL CARDS) ANV 105 | C MAY BE RUN SEQUENTIALLY AS DESIRED. LAST CARD OF LAST PROBLEM SHOULD ANV 106 C BE FOLLOWED BY CARD PUNCHED 9999 IN COLUMNS 1-4. ANV 107 | C ANV 108 | C MAXIMUM NUMBER OF FACTORS IS 12, MAXIMUM NUMBER OF OBSERVATIONS IS ANV 109 | C 8192 AS ASSEMBLED FOR 32K MEMORY. ANV 110 | C ANV 111 1 12/01/64 PAGE 5 | ANV - EFN SOURCE STATEMENT - IFN(S) - | 0 0COMMON/SETK/ALF(12),OPTION(6),BLANK,MSK(12),MRE,MPR,JW,JX,MEOF ANV 112 | 1/READ/JEND,ALFATH(11),ADALFA,M,KODE,NEST,JDUM,KTRAN,KDATA,NP,KDEV,ANV 113 | 2KO(12),L(12),FACTOR(12,12),OBSER(12),FMT(12),X(8192) ANV 114 3/CALC/Y(8192),KR(12),LV(12),LVS(12),LVID(12),NSKIP(12),CHAR(12), ANV 115 | 4F(12),S(12),T(12),R(12),JR(12),MO(12),IGO(12),KT,KBT,KKKBT,BST,Z, ANV 116 | 5AKT ANV 117 | 1 FORMAT (I1,11A6,A5) ANV 118 | 2 FORMAT (1H1,11A6,A5) ANV 119 3 FORMAT (20I4) ANV 120 | 4 FORMAT (1X,I3,19I4) ANV 121 | 5 FORMAT (1H0,5X,20HANALYSIS OF VARIANCE/1X) ANV 122 | 6 FORMAT (12A6) ANV 123 | 7 FORMAT (8X,6HFACTOR,2X,A1,5H IS ,12A6) ANV 124 8 FORMAT (1H0,7X,21HOBSERVED VARIABLE IS ,12A6) ANV 125 | 90FORMAT (1H1,52X,13HDATA OBSERVED,6X,18HFACTORS AND LEVELS/72X, ANV 126 | 9112(3X,A1)) ANV 127 | 10 FORMAT (49X,43(1H-)/1X) ANV 128 | 11 FORMAT (1H1,55X, 2A6,4X,18HFACTORS AND LEVELS/72X,12(3X,A1)) ANV 129 12 FORMAT (1X) ANV 130 | 13 FORMAT (72X,12A1) ANV 131 | 140FORMAT (1H0,7X,84(1H-)/8X,11HGRAND MEAN ,F15.4,22X,10HINVOLVING , ANV 132 | 141I4,13H OBSERVATIONS/1H0,7X,24HGRAND STANDARD DEVIATION,15X,F15.4, ANV 133 | 14212H WITH GSS = ,E16.8/8X,84(1H-)/1H1) ANV 134 15 FORMAT (8X,84(1H-)/1X) ANV 135 | 16 FORMAT (1X,91(1H=)/1X) ANV 136 | 170FORMAT (1H0,6X,14HSUM OF SQUARES,7X,3HDFS,8X,11HMEAN SQUARE,6X, ANV 137 | 1712A6, 4X,21HSOURCE IDENTIFICATION/72X,12(3X,A1)) ANV 138 | 18 FORMAT (4X,F17.6,5X,I4,5X,F15.6,22X,12A1) ANV 139 19 FORMAT (49X,F17.6,6X,12I4) ANV 140 | 200FORMAT (1H0,3X,F17.6,5X,I4,5X,F15.6,38H (POOLED REP ERROR FROM ALLANV 141 | 201 'A' ITEMS)) ANV 142 | 210FORMAT (1H0,91(1H-)/1X,3HTOT, F17.6,5X,I4,41H EXCLUSIVE OF DEVIATANV 143 | 211ION OF MEAN FROM ZERO) ANV 144 220FORMAT (1H0,1X,74HBARTLETT'S CHISQUARE TEST OF HOMOGENEITY OF POOLANV 145 | 221ED REP ERROR VARIANCE TERM/8X,8HCOMPARE ,F15.4,23H WITH CHISQUARE ANV 146 | 222HAVING ,I4,5H DFS.) ANV 147 | 23 FORMAT (1H0,5X,7HFACTOR ,A1,21H, LINEAR MSQ(1 DF),F15.6) ANV 148 | 24 FORMAT ( 6X,7HFACTOR ,A1,21H, QUADRATIC MSQ(1 DF),F15.6) ANV 149 25 FORMAT ( 6X,7HFACTOR ,A1,21H, CUBIC MSQ(1 DF),F15.6) ANV 150 | 26 FORMAT ( 6X,7HFACTOR ,A1,12H,RESID. MSQ(I4,5H DFS),F15.6) ANV 151 | 27 FORMAT (1H1,32HNESTED SUBSET ANALYSES IN STAGE ,I2,57(1H*)) ANV 152 | 280FORMAT (1H1,2X,52HERROR IN INPUT DATA. ANALYSIS TERMINATED BY PROGANV 153 | 281RAM.) ANV 154 51 READ (MRE, 1) JEND,ALFATH,ADALFA ANV 155 1 | IF (JEND) 9000,52,9000 ANV 156 | 52 WRITE (MPR, 2) ALFATH,ADALFA ANV 157 5 | READ (MRE, 3) M,KODE,NEST,JDUM,KTRAN,KDATA,NP,KDEV,(KO(I),I=1,M) ANV 158 7 | WRITE (MPR, 4) M,KODE,NEST,JDUM,KTRAN,KDATA,NP,KDEV,(KO(I),I=1,M) ANV 159 22 READ (MRE, 3) (L(I),I=1,M) ANV 160 29 | WRITE (MPR, 4) (L(I),I=1,M) ANV 161 36 | WRITE (MPR, 5) ANV 162 43 | IF (KODE .LE. 1) KODE=1 ANV 163 | IF (KODE .GE. 2) KODE=2 ANV 164 IF (KTRAN .LE. 1) KTRAN=1 ANV 165 | IF (KDEV .LE. 0) KDEV=3 ANV 166 | IF (KDEV .GE. 3) KDEV=3 ANV 167 | 1 12/01/64 PAGE 6 | ANV - EFN SOURCE STATEMENT - IFN(S) - 0 60 DO 61 J=1,M ANV 168 | READ (MRE, 6) (FACTOR(J,I),I=1,12) ANV 169 57 | 61 WRITE (MPR, 7) ALF(J),(FACTOR(J,I),I=1,12) ANV 170 62 | READ (MRE, 6) OBSER ANV 171 69 | WRITE (MPR, 8) OBSER ANV 172 71 KR(1)=1 ANV 173 | DO 62 I=2,M ANV 174 | 62 KR(I)=KR(I-1)*L(I-1) ANV 175 | KT=KR(M)*L(M) ANV 176 | KEEP=KT ANV 177 LOCAT=0 ANV 178 | KYCLE=0 ANV 179 | READ (MRE, 6) FMT ANV 180 87 | READ (MRE,FMT) (X(I),I=1,KT) ANV 181 89 | CALL TRAN ANV 182 96 IF (KDATA) 70,70,63 ANV 183 | C OPTIONAL PRINTOUT OF DATA STARTS ANV 184 | 63 WRITE (MPR, 9) (ALF(I),I=1,M) ANV 185 99 | WRITE (MPR,10) ANV 186 106 | LV(1)=0 ANV 187 DO 67 J=1,KT ANV 188 | N=J-1 ANV 189 | IF (M-1) 67,66,64 ANV 190 | 64 DO 65 KK=2,M ANV 191 | I=M-KK+2 ANV 192 LV(I)=N/KR(I) ANV 193 | N=MOD (N,KR(I)) ANV 194 | 65 LV(I)=LV(I)+1 ANV 195 | LV(1)=N+1 ANV 196 | GO TO 67 ANV 197 66 LV(1)=J ANV 198 | 67 WRITE (MPR,19) X(J),(LV(I),I=1,M) ANV 199 | C CALCULATION OF GRAND MEAN AND GRAND ST DEV STARTS ANV 200 125 | 70 GSUM=0.0 ANV 201 | GSS=0.0 ANV 202 SKT=KT ANV 203 | RSKT=1.0/SKT ANV 204 | DO 71 I=1,KT ANV 205 | GSUM=GSUM+X(I) ANV 206 | 71 GSS=GSS+X(I)*X(I) ANV 207 GMEAN=GSUM*RSKT ANV 208 | GSS=GSS-GMEAN*GMEAN*SKT ANV 209 | GSD=SQRT (GSS*RSKT) ANV 210 143 | MSTA=NEST+1 ANV 211 | C OPTIONAL EARLY PRINTOUT OF ALL COMPONENT MEANS OR DEVIATIONS STARTS ANV 212 IF (NP-1) 411,72,73 ANV 213 | 72 WRITE (MPR,11) (OPTION(I),I=3,4),(ALF(I),I=1,M) ANV 214 146 | GO TO 74 ANV 215 | 73 WRITE (MPR,11) (OPTION(I),I=1,2),(ALF(I),I=1,M) ANV 216 160 | 74 WRITE (MPR,10) ANV 217 173 GO TO 1106 ANV 218 | 411 WRITE (MPR,14) GMEAN,KT,GSD,GSS ANV 219 175 | NP=NP-10000 ANV 220 | AKT=0.0 ANV 221 | BST=0.0 ANV 222 Z =0.0 ANV 223 | 1 12/01/64 PAGE 7 | ANV - EFN SOURCE STATEMENT - IFN(S) - | 0 412 IF (KODE-2) 1100,413,1100 ANV 224 | C CALCULATION OF REP-WITHIN-BLOCK ERROR SS AND TEST OF HOMOGENEITY STARTANV 225 413 KBT=L(1) ANV 226 | KKKBT=KT/KBT ANV 227 | TBK=KBT ANV 228 | TBKKK=KKKBT ANV 229 | KKBT1=LOCAT+1 ANV 230 KKBT2=KBT+LOCAT ANV 231 | KFLA=0 ANV 232 | AMV=0.0 ANV 233 | GMLOG=0.0 ANV 234 | DO 1040 J=1,KKKBT ANV 235 BSUM=0.0 ANV 236 | BVAR=0.0 ANV 237 | BSS=0.0 ANV 238 | DO 1000 I=KKBT1,KKBT2 ANV 239 | BSUM=BSUM+X(I) ANV 240 1000 BSS=BSS+X(I)**2 ANV 241 | BVAR=BSS-(BSUM**2)/TBK ANV 242 | Y(J)=BVAR ANV 243 | KKBT1=KKBT1+KBT ANV 244 | KKBT2=KKBT2+KBT ANV 245 1040 CONTINUE ANV 246 | AKT=KT-KKKBT ANV 247 | GDF=TBK-1.0 ANV 248 | DLD=ALOG(GDF) ANV 249 200 | SLD=ALOG(AKT) ANV 250 201 DO 1060 J=1,KKKBT ANV 251 | IF (Y(J)) 1099,1057,1058 ANV 252 | 1057 KFLA=1 ANV 253 | 1058 AMV=AMV+Y(J) ANV 254 | IF (KFLA) 1060,1059,1060 ANV 255 1059 Y(J)=ALOG (Y(J)) ANV 256 213 | GMLOG=GMLOG+Y(J) ANV 257 | 1060 CONTINUE ANV 258 | Z=AMV ANV 259 | KKKBT=KKKBT-1 ANV 260 IF (KFLA) 1061,1062,1061 ANV 261 | 1061 BST=9999999999. ANV 262 | KKKBT=999 ANV 263 | GO TO 1100 ANV 264 | 1062 GMLOG=GMLOG/TBKKK ANV 265 GMLOG=GMLOG-DLD ANV 266 | AMV=AMV/AKT ANV 267 | AMV=ALOG (AMV) ANV 268 224 | BST1=AKT*(AMV-GMLOG) ANV 269 | BST2=1.0+(TBKKK+1.0)/(3.0*AKT) ANV 270 BST=BST1/BST2 ANV 271 | GO TO 1100 ANV 272 | 1099 AKT=0.0 ANV 273 | BST=-999999999. ANV 274 | KKKBT=-999 ANV 275 Z=0.0 ANV 276 | C MAIN ANALYSIS OF VARIANCE STARTS (EXCLUDING REP CALCULATIONS) ANV 277 | 1100 GO TO (1102,1101,1103),KDEV ANV 278 | 1101 WRITE (MPR,17) (OPTION(I),I=1,2),(ALF(I),I=1,M) ANV 279 229 | 1 12/01/64 PAGE 8 ANV - EFN SOURCE STATEMENT - IFN(S) - | 0 GO TO 1104 ANV 280 | 1102 WRITE (MPR,17) (OPTION(I),I=3,4),(ALF(I),I=1,M) ANV 281 243 | GO TO 1104 ANV 282 | 1103 WRITE (MPR,17) (OPTION(I),I=5,6),(ALF(I),I=1,M) ANV 283 257 1104 WRITE (MPR,15) ANV 284 270 | DO 1105 I=1,12 ANV 285 | 1105 MO(I)=0 ANV 286 | K=1 ANV 287 | MORTH=KO(1) ANV 288 SSQ1=0.0 ANV 289 | SSQT=0.0 ANV 290 | MDG1=0 ANV 291 | MDGT=0 ANV 292 | 1106 LNK=0 ANV 293 JNK=0 ANV 294 | NUM=0 ANV 295 | GO TO 1311 ANV 296 | C SEQUENTIAL COMBINATORIAL BINARY GENERATOR STARTS ANV 297 | 1200 IF (KODE-2) 1203,1202,1203 ANV 298 1202 MSHIFT=2 ANV 299 | M1=M-1 ANV 300 | GO TO 1205 ANV 301 | 1203 MSHIFT=1 ANV 302 | M1=M ANV 303 1205 J=1 ANV 304 | DO 1206 I=1,M1 ANV 305 | IF (AND(JNK,MSK(I))) 8000,1206,1207 ANV 306 | 1206 CONTINUE ANV 307 | GO TO 1209 ANV 308 1207 DO 1208 J=I,M1 ANV 309 | IF (AND(JNK,MSK(J))) 8000,1210,1208 ANV 310 | 1208 CONTINUE ANV 311 | J=M1-I+2 ANV 312 | 1209 JNK=2**J-1 ANV 313 313 NUM=NUM+1 ANV 314 | IF(M1-NUM) 4478,1211,1211 ANV 315 | 1210 J=J-I-1 ANV 316 | I=I-1 ANV 317 | JNK=JNK+2**I+2**J-1 ANV 318 320 321 1211 LNK=JNK*MSHIFT ANV 319 | C COMBINATORIAL BINARY ANALYZER STARTS ANV 320 | 1311 NB=0 ANV 321 | LEV=0 ANV 322 | KR(1)=1 ANV 323 DO 1314 I=1,M ANV 324 | IF (AND(LNK,MSK(I))) 8000,1312,1313 ANV 325 | 1312 LVID(I)=0 ANV 326 | NB=NB+1 ANV 327 | GO TO 1314 ANV 328 1313 LVID(I)=1 ANV 329 | LEV=LEV+1 ANV 330 | LV(LEV)=L(I) ANV 331 | LVS(LEV)=I ANV 332 | CHAR(LEV)=ALF(I) ANV 333 1314 CONTINUE ANV 334 | NR=LEV+1 ANV 335 | 1 12/01/64 PAGE 9 | ANV - EFN SOURCE STATEMENT - IFN(S) - | 0 IF (NR-13) 1315,1317,1317 ANV 336 1315 DO 1316 I=NR,12 ANV 337 | 1316 CHAR(I)=BLANK ANV 338 | 1317 DO 1318 I=2,LEV ANV 339 | 1318 KR(I)=KR(I-1)*LV(I-1) ANV 340 | C ANV 341 C ANV 342 | C HARTLEY'S 'SUM' AND 'DIFFERENCE' OPERATORS START ANV 343 | 2017 TKT=KT ANV 344 | NSKIP(1)=1 ANV 345 | DO 2020 I=2,M ANV 346 IF (LVID(I-1)) 2018,2019,2018 ANV 347 | 2018 NSKIP(I)=NSKIP(I-1)*L(I-1) ANV 348 | GO TO 2020 ANV 349 | 2019 NSKIP(I)=NSKIP(I-1) ANV 350 | GO TO 2020 ANV 351 2020 CONTINUE ANV 352 | IF (NP-1) 2021,2022,2021 ANV 353 | 2021 JDM=2 ANV 354 | GO TO 2023 ANV 355 | 2022 JDM=1 ANV 356 2023 KTS=KT ANV 357 | DO 2024 J=1,KT ANV 358 | JNEST=J+LOCAT ANV 359 | 2024 Y(J)=X(JNEST) ANV 360 | 2025 DO 2060 I=1,M ANV 361 JC=0 ANV 362 | J=1 ANV 363 | M1=1 ANV 364 | NSK=NSKIP(I) ANV 365 | LL=L(I) ANV 366 LL1=LL-1 ANV 367 | NSKLL1=NSK*LL1 ANV 368 | 2026 IF (LVID(I) .NE. 0) GO TO 2028 ANV 369 | KOP=1 ANV 370 | GO TO 2031 ANV 371 2028 KOP=2 ANV 372 | DL=LL ANV 373 | 2031 SOP=0.0 ANV 374 | M2=M1+NSKLL1 ANV 375 | M3=NSK ANV 376 GO TO (2035,2039),KOP ANV 377 | 2035 DO 2036 JJ=M1,M2,M3 ANV 378 | 2036 SOP=SOP+Y(JJ) ANV 379 | Y(J)=SOP ANV 380 | J=J+1 ANV 381 GO TO 2050 ANV 382 | C OPERATOR BRANCHES FOR ALTERNATIVE COMPUTATION (MEANS OR DEVIATES) ANV 383 | 2039 GO TO (2040,2044),JDM ANV 384 | 2040 DO 2041 J=M1,M2,M3 ANV 385 | 2041 Y(J)=Y(J)*DL ANV 386 GO TO 2050 ANV 387 | 2044 DO 2045 J=M1,M2,M3 ANV 388 | 2045 SOP=SOP+Y(J) ANV 389 | DO 2049 J=M1,M2,M3 ANV 390 | 2049 Y(J)=Y(J)*DL-SOP ANV 391 1 12/01/64 PAGE 10 | ANV - EFN SOURCE STATEMENT - IFN(S) - | 0 2050 M1=M1+1 ANV 392 | JC=JC+1 ANV 393 | IF (NSK .GT. JC) GO TO 2058 ANV 394 M1=M2+1 ANV 395 | JC=0 ANV 396 | 2058 IF (M1 .LE. KTS) GO TO 2031 ANV 397 | 2059 IF (KOP .EQ. 1) KTS=KTS/LL ANV 398 | 2060 CONTINUE ANV 399 IF (NP) 2061,2061,2062 ANV 400 | 2061 GO TO (4278,2080),JDM ANV 401 | 2062 WRITE (MPR,13) CHAR ANV 402 467 | IF (NP-1) 8000,4278,4280 ANV 403 | C DEGREES-OF-FREEDOM CALCULATION STARTS ANV 404 2080 MDG=1 ANV 405 | DO 2083 I=1,M ANV 406 | IF (LVID(I) ) 2081,2081,2082 ANV 407 | 2081 MDG=MDG ANV 408 | GO TO 2083 ANV 409 2082 MDG=MDG*(L(I)-1) ANV 410 | 2083 CONTINUE ANV 411 | C SUM-OF-SQUARES CALCULATION STARTS ANV 412 | SSQ=0.0 ANV 413 | SKTS=KTS ANV 414 DO 2088 J5=1,KTS ANV 415 | 2088 SSQ=SSQ+Y(J5)**2 ANV 416 | SSQ=SSQ/SKTS ANV 417 | SSQ=SSQ/TKT ANV 418 | SMDG=MDG ANV 419 SQM=SSQ/SMDG ANV 420 | IF (LEV) 2091,2092,2091 ANV 421 | 2091 SSQT=SSQT+SSQ ANV 422 | MDGT=MDGT+MDG ANV 423 | C PRINTOUT OF VARIANCE ATTRIBUTABLE TO EACH FACTORIAL COMBINATION ANV 424 2092 WRITE (MPR,18) SSQ,MDG,SQM,CHAR ANV 425 494 | IF (MORTH .LT. 1) GO TO 4250 ANV 426 | IF (LEV .NE.1) GO TO 4250 ANV 427 | IF (MORTH .GT. M) GO TO 4250 ANV 428 | IF (LVID(MORTH) .NE. 1) GO TO 4250 ANV 429 IF (L(MORTH) .LE. 1) GO TO 4250 ANV 430 | C OPTIONAL PARTITION INTO LINEAR THRO CUBIC COMPONENTS STARTS FOR ANV 431 | C SPECIFIED MAIN EFFECT WHOSE LEVELS ARE MAGNITUDES IN ARITHMETIC ANV 432 | C PROGRESSION ANV 433 | 3135 NN=L(MORTH) ANV 434 DN=NN ANV 435 | OLIN=0.0 ANV 436 | OQAD=0.0 ANV 437 | OCUB=0.0 ANV 438 | OREM=0.0 ANV 439 IF (NN-3) 3136,3137,3138 ANV 440 | 3136 IG=1 ANV 441 | GO TO 3139 ANV 442 | 3137 IG=2 ANV 443 | GO TO 3139 ANV 444 3138 IG=3 ANV 445 | 3139 DO 3145 I=1,NN ANV 446 | AA=I ANV 447 | 1 12/01/64 PAGE 11 | ANV - EFN SOURCE STATEMENT - IFN(S) - 0 P=AA-(DN+1.0)/2.0 ANV 448 | OLIN=OLIN+P*Y(I) ANV 449 | GO TO (3145,3140,3140),IG ANV 450 | 3140 PP=P*P-(DN*DN-1.0)/12.0 ANV 451 | OQAD=OQAD+PP*Y(I) ANV 452 GO TO (3145,3145,3141),IG ANV 453 | 3141 PPP=P*(P*P-(3.0*DN*DN-7.0)/20.0) ANV 454 | OCUB=OCUB+PPP*Y(I) ANV 455 | 3145 CONTINUE ANV 456 | PKT=KT ANV 457 RD1=12.0/(PKT*DN*DN*(DN*DN-1.0)) ANV 458 | F(K)=OLIN*OLIN*RD1 ANV 459 | GO TO (3152,3146,3146),IG ANV 460 | 3146 RD2=15.0*RD1/(DN*DN-4.0) ANV 461 | S(K)=OQAD*OQAD*RD2 ANV 462 GO TO (3152,3152,3147),IG ANV 463 | 3147 RD3=140.0*RD2/(9.0*DN*DN-81.0) ANV 464 | T(K)=OCUB*OCUB*RD3 ANV 465 | 3150 IF (NN .LE. 4) GO TO 3152 ANV 466 | 3151 JR(K)=NN-4 ANV 467 ERDF=JR(K) ANV 468 | IG=4 ANV 469 | OREM=SSQ-OLIN-OQAD-OCUB ANV 470 | R(K)=OREM/ERDF ANV 471 | 3152 MO(K)=MORTH ANV 472 IGO(K)=IG ANV 473 | 4249 K=K+1 ANV 474 | MORTH=KO(K) ANV 475 | 4250 GO TO (2022,4280,1200),KDEV ANV 476 | C IDENTIFICATION STARTS FOR FACTOR LEVELS OF INDIVIDUAL MEANS, DEVIATESANV 477 4278 DO 4279 I=1,KTS ANV 478 | 4279 Y(I)=Y(I)/TKT ANV 479 | 4280 DO 4470 J=1,KTS ANV 480 | N=J-1 ANV 481 | DO 4363 IG=1,M ANV 482 4363 LVID(IG)=0 ANV 483 | IF (LEV-1) 4469,4468,4364 ANV 484 | 4364 DO 4365 KK=2,LEV ANV 485 | I=LEV-KK+2 ANV 486 | LV(I)=N/KR(I) ANV 487 N=MOD(N,KR(I)) ANV 488 | 4365 LV(I)=LV(I)+1 ANV 489 | LV(1)=N+1 ANV 490 | DO 4366 IG=1,LEV ANV 491 | KK=LVS(IG) ANV 492 4366 LVID(KK)=LV(IG) ANV 493 | GO TO 4469 ANV 494 | 4468 KK=LVS(1) ANV 495 | LVID(KK)=J ANV 496 | 4469 WRITE (MPR,19) Y(J), (LVID(I),I=1,M) ANV 497 600 4470 CONTINUE ANV 498 | WRITE (MPR,12) ANV 499 608 | 4475 GO TO 1200 ANV 500 | 4478 IF (NP) 4480,4480,411 ANV 501 | 4480 IF (AKT) 4482,4482,4481 ANV 502 C PRINTOUT OF POOLED REP ERROR TERM STARTS ANV 503 | 1 12/01/64 PAGE 12 | ANV - EFN SOURCE STATEMENT - IFN(S) - | 0 4481 MDG1=AKT ANV 504 | MDGT=MDGT+MDG1 ANV 505 SSQT=SSQT+Z ANV 506 | SQM1=Z/AKT ANV 507 | WRITE (MPR,20) Z,MDG1,SQM1 ANV 508 | C PRINTOUT OF TOTALS, HOMOGENEITY TEST, ORTHOGONAL PARTITION STARTS ANV 509 617 | 4482 WRITE (MPR,21) SSQT,MDGT ANV 510 618 IF (BST) 4483,4486,4483 ANV 511 | 4483 WRITE (MPR,22) BST,KKKBT ANV 512 620 | 4486 DO 4494 I=1,12 ANV 513 | IF (MO(I) .LE. 0) GO TO 4495 ANV 514 | MORTH=MO(I) ANV 515 IG=IGO(I) ANV 516 | WRITE (MPR,23) ALF(MORTH),F(I) ANV 517 632 | IF (IG .LE. 1) GO TO 4494 ANV 518 | WRITE (MPR,24) ALF(MORTH),S(I) ANV 519 637 | IF (IG .LE. 2) GO TO 4494 ANV 520 WRITE (MPR,25) ALF(MORTH),T(I) ANV 521 642 | IF (IG .LE. 3) GO TO 4494 ANV 522 | WRITE (MPR,26) ALF(MORTH),JR(I),R(I) ANV 523 647 | 4494 CONTINUE ANV 524 | 4495 WRITE (MPR,16) ANV 525 654 AKT=0.0 ANV 526 | BST=0.0 ANV 527 | Z=0.0 ANV 528 | C CALCULATION OF VARIANCES WITHIN NESTS STARTS (CYCLING) ANV 529 | 5010 IF (NEST) 51,51,5020 ANV 530 5020 KYCLE=KYCLE+1 ANV 531 | IF (KYCLE-1) 5040,5025,5040 ANV 532 | 5025 KT=KT/L(M) ANV 533 | M=M-1 ANV 534 | JSTA=MSTA-NEST ANV 535 WRITE (MPR,27) JSTA ANV 536 664 | 5040 LOCAT=(KYCLE-1)*KT ANV 537 | IF (KEEP-LOCAT) 5060,5060,5050 ANV 538 | 5050 GO TO 412 ANV 539 | 5060 NEST=NEST-1 ANV 540 KYCLE=0 ANV 541 | IF (NEST) 51,51,5070 ANV 542 | 5070 LOCAT=0 ANV 543 | GO TO 5020 ANV 544 | 8000 WRITE (MPR,28) ANV 545 675 GO TO 51 ANV 546 | 9000 IF (MEOF) 9001,9002,9001 ANV 547 | 9001 END FILE MPR ANV 548 679 | 9002 RETURN ANV 549 | END ANV 550 1 12/01/64 PAGE 13 | | 0| -| $IBFTC TRANX DECK TRAN 0 1 12/01/64 PAGE 14 | TRANX - EFN SOURCE STATEMENT - IFN(S) - | 0| C 'TRAN' TRANSFORMS OBSERVED DATA IN SPECIFIED MANNER FOR 'ANV'. TRAN 1 | C TRAN 2 SUBROUTINE TRAN TRAN 3 | 0COMMON/SETK/ALF(12),OPTION(6),BLANK,MSK(12),MRE,MPR,JW,JX,MEOF TRAN 4 | 1/READ/JEND,ALFATH(11),ADALFA,M,KODE,NEST,JDUM,KTRAN,KDATA,NP,KDEV,TRAN 5 | 2KO(12),L(12),FACTOR(12,12),OBSER(12),FMT(12),X(8192) TRAN 6 | 3/CALC/Y(8192),KR(12),LV(12),LVS(12),LVID(12),NSKIP(12),CHAR(12), TRAN 7 4F(12),S(12),T(12),R(12),JR(12),MO(12),IGO(12),KT,KBT,KKKBT,BST,Z, TRAN 8 | 5AKT TRAN 9 | TKT=KT TRAN 10 | GO TO(3210,3220,3230,3240,3250,3260),KTRAN TRAN 11 | 3210 RETURN TRAN 12 3220 DO 3225 J=1,KT TRAN 13 | 3225 X(J)=.434294482*ALOG(X(J)) TRAN 14 10 | RETURN TRAN 15 | 3230 DO 3235 J=1,KT TRAN 16 | 3235 X(J)=.434294482*ALOG(X(J)+1.0) TRAN 17 20 RETURN TRAN 18 | 3240 DO 3245 J=1,KT TRAN 19 | 3245 X(J)=SQRT (X(J)+.5) TRAN 20 30 | RETURN TRAN 21 | 3250 DO 3255 J=1,KT TRAN 22 X(J)=SQRT (X(J)) TRAN 23 39 | 3255 X(J)=57.2957795*ATAN (X(J)/SQRT (1.0-X(J)**2)) TRAN 24 44 46 | RETURN TRAN 25 | 3260 DO 3265 J=1,KT TRAN 26 | 3265 X(J)= .5*ALOG((1.0+X(J))/(1.0-X(J))) TRAN 27 57 RETURN TRAN 28 | END TRAN 29 | 1 12/01/64 PAGE 15 | BLDV STORAGE MAP | 0 BLOCK DATA - COMMON VARIABLES | 0 COMMON BLOCK SETK ORIGIN 00000 LENGTH 00044 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | ALF 00000 R OPTION 00014 R BLANK 00022 R | MSK 00023 I MRE 00037 I MPR 00040 I JW 00041 I JX 00042 I MEOF 00043 I | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00044.| 1 12/01/64 PAGE 16 | ANV STORAGE MAP | 0 MAIN PROGRAM - COMMON VARIABLES | 0 COMMON BLOCK SETK ORIGIN 00001 LENGTH 00044 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | ALF 00000 R OPTION 00014 R BLANK 00022 R | MSK 00023 I MRE 00037 I MPR 00040 I JW 00041 I JX 00042 I MEOF 00043 I | 0 COMMON BLOCK READ ORIGIN 00045 LENGTH 20325 | JEND 00000 I ALFATH 00001 R ADALFA 00014 R | M 00015 I KODE 00016 I NEST 00017 I | JDUM 00020 I KTRAN 00021 I KDATA 00022 I NP 00023 I KDEV 00024 I KO 00025 I | L 00041 I FACTOR 00055 R OBSER 00275 R | FMT 00311 R X 00325 R | 0 COMMON BLOCK CALC ORIGIN 20372 LENGTH 20242 | Y 00000 R KR 20000 I LV 20014 I LVS 20030 I LVID 20044 I NSKIP 20060 I | CHAR 20074 R F 20110 R S 20124 R | T 20140 R R 20154 R JR 20170 I | MO 20204 I IGO 20220 I KT 20234 I | KBT 20235 I KKKBT 20236 I BST 20237 R Z 20240 R AKT 20241 R | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | I 40634 I J 40635 I KEEP 40636 I | LOCAT 40637 I KYCLE 40640 I N 40641 I KK 40642 I GSUM 40643 R GSS 40644 R | SKT 40645 R RSKT 40646 R GMEAN 40647 R | GSD 40650 R MSTA 40651 I TBK 40652 R | TBKKK 40653 R KKBT1 40654 I KKBT2 40655 I | KFLA 40656 I AMV 40657 R GMLOG 40660 R BSUM 40661 R BVAR 40662 R BSS 40663 R | GDF 40664 R DLD 40665 R SLD 40666 R | BST1 40667 R BST2 40670 R K 40671 I | MORTH 40672 I SSQ1 40673 R SSQT 40674 R | MDG1 40675 I MDGT 40676 I LNK 40677 I JNK 40700 I NUM 40701 I MSHIFT 40702 I | M1 40703 I NB 40704 I LEV 40705 I | NR 40706 I TKT 40707 R JDM 40710 I | KTS 40711 I JNEST 40712 I JC 40713 I | NSK 40714 I LL 40715 I LL1 40716 I NSKLL1 40717 I KOP 40720 I DL 40721 R | SOP 40722 R M2 40723 I M3 40724 I | MDG 40725 I SSQ 40726 R SKTS 40727 R | SMDG 40730 R SQM 40731 R NN 40732 I | DN 40733 R OLIN 40734 R OQAD 40735 R OCUB 40736 R OREM 40737 R IG 40740 I | 1 12/01/64 PAGE 17 | ANV STORAGE MAP | 0AA 40741 R P 40742 R PP 40743 R | PPP 40744 R PKT 40745 R RD1 40746 R RD2 40747 R RD3 40750 R ERDF 40751 R | SQM1 40752 R JSTA 40753 I | - ENTRY POINTS | 0 ...... SECTION 5 | - SUBROUTINES CALLED 0 .FVIO. SECTION 6 .FRDD. SECTION 7 .FSLI. SECTION 8 | .FWRD. SECTION 9 .FSLO. SECTION 10 TRAN SECTION 11 | SQRT SECTION 12 ALOG SECTION 13 .XP1. SECTION 14 | .FEFT. SECTION 15 .FXEM. SECTION 16 .FRTN. SECTION 17 | .FCNV. SECTION 18 .FFIL. SECTION 19 E.1 SECTION 20 E.2 SECTION 21 E.3 SECTION 22 E.4 SECTION 23 | CC.1 SECTION 24 CC.2 SECTION 25 CC.3 SECTION 26 | CC.4 SECTION 27 SYSLOC SECTION 28 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION 1 FORMAT 41015 2 FORMAT 41017 3 FORMAT 41022 | 4 FORMAT 41023 5 FORMAT 41025 6 FORMAT 41033 | 7 FORMAT 41034 8 FORMAT 41042 9 FORMAT 41051 | 10 FORMAT 41065 11 FORMAT 41070 12 FORMAT 41101 | 13 FORMAT 41102 14 FORMAT 41104 15 FORMAT 41137 16 FORMAT 41142 17 FORMAT 41145 18 FORMAT 41167 | 19 FORMAT 41175 20 FORMAT 41201 21 FORMAT 41215 | 22 FORMAT 41233 23 FORMAT 41263 24 FORMAT 41274 | 25 FORMAT 41305 26 FORMAT 41316 27 FORMAT 41327 | 28 FORMAT 41340 51 1A 41353 9000 677A 45266 52 5A 41401 60 54A 41650 61 62A 41706 | 62 76A 42006 70 133A 42256 63 99A 42074 | 67 125A 42232 66 124A 42230 64 112A 42160 | 65 119A 42213 71 138A 42302 411 175A 42437 | 72 146A 42342 73 160A 42373 74 173A 42423 1106 281A 43127 412 177A 42470 1100 228A 42756 | 413 179A 42473 1040 197A 42602 1000 191A 42555 | 1060 216A 42670 1099 226A 42750 1057 207A 42646 | 1058 208A 42650 1059 211A 42655 1061 221A 42701 | 1062 223A 42706 1102 243A 43017 1101 229A 42766 1103 257A 43050 1104 270A 43100 1105 274A 43114 | 1311 323A 43300 1200 285A 43133 1203 290A 43144 | 1202 287A 43136 1205 292A 43150 1206 299A 43175 | 8000 675A 45252 1207 303A 43200 1209 312A 43230 | 1208 309A 43222 1210 317A 43247 4478 610A 44671 1211 322A 43275 1314 342A 43360 1312 331A 43327 | 1313 334A 43334 1315 347A 43371 1317 355A 43376 | 1316 351A 43372 1318 359A 43402 2017 365A 43407 | 2020 380A 43436 2018 371A 43427 2019 376A 43433 | 2021 384A 43443 2022 386A 43446 2023 387A 43450 1 12/01/64 PAGE 18 | ANV STORAGE MAP | 02024 392A 43465 2025 397A 43474 2060 462A 43713 | 2026 409A 43523 2028 414A 43532 2031 416A 43544 | 2035 419A 43561 2039 428A 43605 2036 423A 43567 2050 449A 43657 2040 429A 43614 2044 437A 43630 | 2041 432A 43622 2045 440A 43636 2049 445A 43651 | 2058 456A 43676 2059 459A 43703 2061 466A 43720 | 2062 467A 43727 4278 558A 44470 2080 470A 43754 | 4280 567A 44501 2083 481A 43775 2081 477A 43765 2082 479A 43770 2088 487A 44014 2091 493A 44045 | 2092 494A 44053 4250 557A 44460 3135 513A 44133 | 3136 517A 44155 3137 519A 44160 3138 521A 44163 | 3139 522A 44165 3145 533A 44276 3140 528A 44230 | 3141 531A 44255 3152 551A 44445 3146 538A 44344 3147 541A 44372 3150 543A 44412 3151 546A 44420 | 4249 554A 44452 4279 562A 44474 4470 606A 44653 | 4363 574A 44531 4469 600A 44631 4468 597A 44622 | 4364 578A 44540 4365 585A 44573 4366 592A 44612 | 4475 609A 44670 4480 612A 44674 4482 618A 44736 4481 614A 44677 4483 620A 44757 4486 621A 44776 | 4494 651A 45145 4495 654A 45147 5010 655A 45165 | 5020 657A 45170 5040 665A 45227 5025 660A 45176 | 5060 669A 45241 5050 668A 45240 5070 673A 45250 | 9001 679A 45270 9002 680A 45301 THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 45327.| 1 12/01/64 PAGE 19 | TRANX STORAGE MAP | 0 SUBROUTINE TRAN | - COMMON VARIABLES 0 COMMON BLOCK SETK ORIGIN 00001 LENGTH 00044 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | ALF 00000 R OPTION 00014 R BLANK 00022 R | MSK 00023 I MRE 00037 I MPR 00040 I | JW 00041 I JX 00042 I MEOF 00043 I 0 COMMON BLOCK READ ORIGIN 00045 LENGTH 20325 | JEND 00000 I ALFATH 00001 R ADALFA 00014 R | M 00015 I KODE 00016 I NEST 00017 I | JDUM 00020 I KTRAN 00021 I KDATA 00022 I | NP 00023 I KDEV 00024 I KO 00025 I L 00041 I FACTOR 00055 R OBSER 00275 R | FMT 00311 R X 00325 R | 0 COMMON BLOCK CALC ORIGIN 20372 LENGTH 20242 | Y 00000 R KR 20000 I LV 20014 I | LVS 20030 I LVID 20044 I NSKIP 20060 I CHAR 20074 R F 20110 R S 20124 R | T 20140 R R 20154 R JR 20170 I | MO 20204 I IGO 20220 I KT 20234 I | KBT 20235 I KKKBT 20236 I BST 20237 R | Z 20240 R AKT 20241 R - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | TKT 40634 R | - ENTRY POINTS | 0 TRAN SECTION 5 - SUBROUTINES CALLED | 0 ALOG SECTION 6 SQRT SECTION 7 ATAN SECTION 8 | .FXEM. SECTION 9 E.1 SECTION 10 E.2 SECTION 11 | E.3 SECTION 12 E.4 SECTION 13 CC.1 SECTION 14 | CC.2 SECTION 15 CC.3 SECTION 16 CC.4 SECTION 17 SYSLOC SECTION 18 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 3210 3A 40674 3220 4A 40675 3230 14A 40716 | 3240 24A 40737 3250 34A 40756 3260 50A 41021 3225 8A 40701 3235 18A 40722 3245 28A 40743 | 1 12/01/64 PAGE 20 | TRANX STORAGE MAP | 03255 41A 40772 3265 54A 41025 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 41073. 1 12/01/64 PAGE 21 | | 0$ENTRY ANV | $DATA 1 IBLDR 12/01/64 PAGE 22 | * CROSS REFERENCE LOGIC * | 0 | 0DECK BLDV 03152 SIZE = 00044| REAL SETK 03152 SIZE = 00044 REF'D BY - TRANX , ANV 0DECK ANV 03216| REAL SETK DELETED REFERS TO BLDV AT 03152| REAL READ 03217 SIZE = 20325 REF'D BY - TRANX | REAL CALC 23544 SIZE = 20242 REF'D BY - TRANX | REAL ...... 50463 VIRT .FVIO. REFERS TO FVIO AT 61036| VIRT .FRDD. REFERS TO FRDD AT 57660| VIRT .FSLI. REFERS TO FSLDI AT 60664| VIRT .FWRD. REFERS TO FWRD AT 57634| VIRT .FSLO. REFERS TO FSLDO AT 60760 VIRT TRAN REFERS TO TRANX AT 50725| VIRT SQRT REFERS TO FSQR AT 60125| VIRT ALOG REFERS TO FLOG AT 57722| VIRT .XP1. REFERS TO FXP1 AT 60432| VIRT .FEFT. REFERS TO FEFT AT 60546 VIRT .FXEM. REFERS TO FXEM AT 52227| VIRT .FRTN. REFERS TO FIOH AT 57446| VIRT .FCNV. REFERS TO FCNV AT 53244| VIRT .FFIL. REFERS TO FIOH AT 57420| VIRT E.1 REFERS TO .ERAS. AT 52216 VIRT E.2 REFERS TO .ERAS. AT 52217| VIRT E.3 REFERS TO .ERAS. AT 52220| VIRT E.4 REFERS TO .ERAS. AT 52221| VIRT CC.1 REFERS TO .XCC. AT 52222| VIRT CC.2 REFERS TO .XCC. AT 52223 VIRT CC.3 REFERS TO .XCC. AT 52224| VIRT CC.4 REFERS TO .XCC. AT 52225| VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK TRANX 50501 SIZE = 00240| REAL SETK DELETED REFERS TO BLDV AT 03152 REAL READ DELETED REFERS TO ANV AT 03217| REAL CALC DELETED REFERS TO ANV AT 23544| REAL TRAN 50725 REF'D BY - ANV | VIRT ALOG REFERS TO FLOG AT 57722| VIRT SQRT REFERS TO FSQR AT 60125 VIRT ATAN REFERS TO FATN AT 60201| VIRT .FXEM. REFERS TO FXEM AT 52227| VIRT E.1 REFERS TO .ERAS. AT 52216| VIRT E.2 REFERS TO .ERAS. AT 52217| VIRT E.3 REFERS TO .ERAS. AT 52220 VIRT E.4 REFERS TO .ERAS. AT 52221| VIRT CC.1 REFERS TO .XCC. AT 52222| VIRT CC.2 REFERS TO .XCC. AT 52223| VIRT CC.3 REFERS TO .XCC. AT 52224| VIRT CC.4 REFERS TO .XCC. AT 52225 VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR .IBSYS 00000 SIZE = 00134| REAL SYSLB1 00000| REAL SYSLB2 00001| 1 IBLDR 12/01/64 PAGE 23 * CROSS REFERENCE LOGIC * | 0 REAL SYSLB3 00002| REAL SYSLB4 00003| REAL SYSCRD 00004| REAL SYSPRT 00005 REAL SYSPCH 00006| REAL SYSOU1 00007 REF'D BY - FIOS , FXEM , .FPTRP, .LXSL , .LXCON| REAL SYSOU2 00010| REAL SYSIN1 00011| REAL SYSIN2 00012 REAL SYSPP1 00013| REAL SYSPP2 00014| REAL SYSCK1 00015| REAL SYSCK2 00016| REAL SYSUT1 00017 REAL SYSUT2 00020| REAL SYSUT3 00021| REAL SYSUT4 00022| REAL SYSUT5 00023| REAL SYSUT6 00024 REAL SYSUT7 00025| REAL SYSUT8 00026| REAL SYSUT9 00027| REAL SYSTRA 00100| REAL SYSDAT 00101 REAL SYSCUR 00102| REAL SYSRET 00103 REF'D BY - .LXCON| REAL SYSKEY 00104| REAL SYSSWS 00105| REAL SYSPOS 00106 REAL SYSUNI 00107 REF'D BY - .IOCS , FIOS , .LXSL , .LXCON| REAL SYSUBC 00110 REF'D BY - .IOCS | REAL SYSUAV 00111 REF'D BY - .LXCON| REAL SYSUCW 00112 REF'D BY - .IOCS | REAL SYSRPT 00113 REAL SYSCEM 00114| REAL SYSDMP 00115 REF'D BY - .LXCON| REAL SYSIOX 00116| REAL SYSIDR 00117 REF'D BY - .LXCON| REAL SYSCOR 00120 REAL SYSLDR 00121| REAL SYSACC 00122| REAL SYSPID 00123| REAL SYSCYD 00124| REAL SYSSLD 00126 REAL SYSTCH 00127| REAL SYSTWT 00131 REF'D BY - .IOCS , .LXSL | REAL SYSGET 00132| REAL SYSJOB 00133 REF'D BY - .IOCS , FOUT , .LXSL , .LXCON| 0SUBR .IOEX 00702 SIZE = 00047 REAL .ACTV 00702 REF'D BY - .IOCS , .LXSL , .IODEF| REAL .NDSEL 00704| REAL .MWR 00706 REF'D BY - .IOCS , FOUT , FXEM , .LXSL , .LXCON| REAL .PUNCH 00707| REAL .ENBSW 00710 REAL .PAWS 00711| 1 IBLDR 12/01/64 PAGE 24 | * CROSS REFERENCE LOGIC * | 0 REAL .PAUSE 00712| REAL .STOP 00713 REAL .SYMUN 00714| REAL .DECVD 00715 REF'D BY - .LXSL | REAL .DECVA 00716| REAL .CKWAT 00717| REAL .BCD5R 00720 REF'D BY - .LXCON REAL .BCD5X 00721| REAL .CVPRT 00722| REAL .STOPD 00723 REF'D BY - .LXCON| REAL .CHXAC 00724| REAL .URRX 00725 REF'D BY - .LXSL REAL .RCTX 00726| REAL .RCHX 00727 REF'D BY - .LXSL | REAL .TCOX 00730| REAL .TRCX 00731| REAL .ETTX 00732 REAL .TEFX 00733| REAL .TRAPX 00734| REAL .TRAPS 00735| REAL .COMM 00736| REAL .LTPOS 00737 REAL .IOXSI 00740| REAL .CHPSW 00741| REAL .TRPSW 00742| REAL .FDAMT 00743 REF'D BY - .LXSL | REAL .SDCXI 00744 REAL .STCXI 00745| REAL .COMMD 00746| REAL .IBCDZ 00747| REAL .CHXSP 00750| 0SUBR .JBCON 02652 SIZE = 00046 REF'D BY - .IOCS REAL SYSLOC 02652 REF'D BY - TRANX , ANV , FVIO , FSLO , FSLDO , FSLI , FSLDI , FEFT , F| XP1 , FATN , FSQR , FLOG , FRDD , FWRD , FIOH , FIOS , F| XEM , .LXSL | REAL SYSFAZ 02653| REAL .JCOR 02654 REAL .JDATE 02655 REF'D BY - .IOCS | REAL .JLDAT 02656| REAL .JTYPE 02660 REF'D BY - .LXCON| REAL .JLIN 02661 REF'D BY - FOUT , .LXCON| REAL .JVER 02662 REAL SYSDSB 02663| REAL .IOEXD 02664| REAL .FDPOS 02715 REF'D BY - .IOCS | REAL .JDTRK 02716| REAL SYSZRO 02717 0SUBR .LXCON 50741 SIZE = 00454| REAL .LXSTR 50741| REAL .LXSTP 50744 REF'D BY - .LXSL | REAL .LXOUT 51012 REF'D BY - FOUT | REAL .LXERR 51021 REF'D BY - FVIO , FIOS , FOUT , FXEM REAL .LXCAL 51024| REAL .LXRTN 51024 REF'D BY - XIT | 1 IBLDR 12/01/64 PAGE 25 | * CROSS REFERENCE LOGIC * | 0 REAL IBEXIT 51024 REAL .DBCLS 51206| REAL .LXARG 51355 REF'D BY - FOUT | REAL .L0 51400| REAL .CLSE 51406 REF'D BY - .IODEF| REAL .LFBL 51407 REAL .LUNB 51410 REF'D BY - .IODEF| REAL .DFOUT 51411 REF'D BY - FOUT , .LXSL | VIRT .LXSEL REFERS TO .LXSL AT 51641| VIRT .LXSL1 REFERS TO .LXSL AT 51642| VIRT .BCD5R REFERS TO .IOEX AT 00720 VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .JTYPE REFERS TO .JBCON AT 02660| VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT SYSUAV REFERS TO .IBSYS AT 00111 VIRT SYSIDR REFERS TO .IBSYS AT 00117| VIRT .JLIN REFERS TO .JBCON AT 02661| VIRT SYSRET REFERS TO .IBSYS AT 00103| VIRT SYSDMP REFERS TO .IBSYS AT 00115| VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .LTCH REFERS TO .LXSL AT 52000| VIRT .STOPD REFERS TO .IOEX AT 00723| 0SUBR .IODEF 51415 SIZE = 00224| REAL .DEFIN 51415 REF'D BY - .IOCSM| REAL .ATTAC 51421 REAL .CLOSE 51423 REF'D BY - FEFT , FIOS | REAL .OPEN 51425 REF'D BY - FEFT , FIOS , FOUT | REAL .READ 51427 REF'D BY - FIOS | REAL .WRITE 51431 REF'D BY - FIOS , FOUT | REAL .BSR 51441 REAL .READR 51451 REF'D BY - .IOCSM| REAL .RELES 51453| REAL .LAREA 51464 REF'D BY - .IOCS | REAL .LFBLK 51502 REF'D BY - .IOCS | REAL .LTSX 51505 REAL .RLHLD 51515| REAL .AREA1 51520 REF'D BY - .IOCS | REAL .LUNBL 51526 REF'D BY - .IOCSM, .IOCS | REAL .ENTRY 51532 REF'D BY - .IOCSM, .IOCS | REAL .GOA 51567 REF'D BY - .IOCSM REAL .GO 51573 REF'D BY - .IOCSM, .IOCS | REAL .DERR 51607 REF'D BY - .IOCS | REAL .NOPXI 51610 REF'D BY - .IOCSM, .IOCS | REAL .COMXI 51612 REF'D BY - .IOCSM, .IOCS | REAL .EX34 51634 REF'D BY - .IOCSM, .IOCS VIRT .ACTV REFERS TO .IOEX AT 00702| VIRT .CLSE REFERS TO .LXCON AT 51406| VIRT .LUNB REFERS TO .LXCON AT 51410| 0SUBR .LXSL 51641 SIZE = 00145| REAL .LXSEL 51641 REF'D BY - .LXCON, FXEM REAL .LXSL1 51642 REF'D BY - .LXCON, .FPTRP| REAL .LXTST 51645| REAL .LXOVL 51705| 1 IBLDR 12/01/64 PAGE 26 | * CROSS REFERENCE LOGIC * 0 REAL .LXMOD 51747| REAL .LXIND 51773| REAL .LXDIS 51776| REAL .LXFLG 51777| REAL .LTCH 52000 REF'D BY - .LXCON, FXEM , .FPTRP VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .DFOUT REFERS TO .LXCON AT 51411| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .RCHX REFERS TO .IOEX AT 00727| VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT .URRX REFERS TO .IOEX AT 00725| VIRT .DECVD REFERS TO .IOEX AT 00715| VIRT .FDAMT REFERS TO .IOEX AT 00743 VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .LXSTP REFERS TO .LXCON AT 50744| VIRT SYSTWT REFERS TO .IBSYS AT 00131| 0SUBR .FPTRP 52006 SIZE = 00210| REAL .FFPT. 52006 REAL .FPOUT 52135 REF'D BY - FOUT | REAL .FPARG 52143 REF'D BY - FOUT | REAL .COUNT 52145| REAL OVFLOW 52211| VIRT .LXSL1 REFERS TO .LXSL AT 51642 VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .LTCH REFERS TO .LXSL AT 52000| 0SUBR .ERAS. 52216 SIZE = 00004| REAL E.1 52216 REF'D BY - TRANX , ANV , FCNV | REAL E.2 52217 REF'D BY - TRANX , ANV , FCNV REAL E.3 52220 REF'D BY - TRANX , ANV , FCNV | REAL E.4 52221 REF'D BY - TRANX , ANV , FCNV | 0SUBR .XCC. 52222 SIZE = 00004| REAL CC.1 52222 REF'D BY - TRANX , ANV | REAL CC.2 52223 REF'D BY - TRANX , ANV REAL CC.3 52224 REF'D BY - TRANX , ANV | REAL CC.4 52225 REF'D BY - TRANX , ANV | 0SUBR XIT 52226| REAL EXIT 52226 REF'D BY - FIOS | REAL .EXIT. 52226 VIRT .LXRTN REFERS TO .LXCON AT 51024| 0SUBR FXEM 52227 SIZE = 00433| REAL .FXEM. 52227 REF'D BY - TRANX , ANV , FVIO , FXP1 , FATN , FSQR , FLOG , FIOH , F| IOS , FCNV | REAL .FXOUT 52567 REF'D BY - FOUT REAL .FXARG 52575 REF'D BY - FOUT | REAL .OPTW. 52651 SIZE = 00003| VIRT .LXSEL REFERS TO .LXSL AT 51641| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .LXERR REFERS TO .LXCON AT 51021| 1 IBLDR 12/01/64 PAGE 27 | * CROSS REFERENCE LOGIC * | 0 VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .LTCH REFERS TO .LXSL AT 52000 0SUBR FOUT 52662 SIZE = 00341| REAL .FOUT. 52662 REF'D BY - FEFT , UN06 | VIRT .BUFSZ REFERS TO UN06 AT 57714| VIRT .OPEN REFERS TO .IODEF AT 51425| VIRT .WRITE REFERS TO .IODEF AT 51431 VIRT .JLIN REFERS TO .JBCON AT 02661| VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT .UN06. REFERS TO UN06 AT 57713| VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .LXERR REFERS TO .LXCON AT 51021 VIRT .LXOUT REFERS TO .LXCON AT 51012| VIRT .LXARG REFERS TO .LXCON AT 51355| VIRT .FPOUT REFERS TO .FPTRP AT 52135| VIRT .FPARG REFERS TO .FPTRP AT 52143| VIRT .FXOUT REFERS TO FXEM AT 52567 VIRT .FXARG REFERS TO FXEM AT 52575| VIRT .DFOUT REFERS TO .LXCON AT 51411| 0SUBR FCNV 53223 SIZE = 02702| REAL .FCON. 53223 REF'D BY - FIOH | REAL .FCNV. 53244 REF'D BY - ANV , FSLDO , FSLDI REAL .ENDFS 53252 REF'D BY - FIOH | REAL .CNVSW 53255 REF'D BY - FIOH | REAL .FDX1 53261 REF'D BY - FRDD , FIOH | REAL .FDX2 53262 REF'D BY - FRDD , FIOH | REAL .DBC 53264 REF'D BY - FIOH REAL .DBC10 53422 REF'D BY - FIOH | REAL .DBC20 53450 REF'D BY - FIOH | REAL .DDSW 53466 REF'D BY - FIOH | REAL .DDFIX 53472 REF'D BY - FIOH | REAL .FIXSW 53473 REF'D BY - FIOH REAL .DDBC 53540 REF'D BY - FIOH | REAL .DDRS1 54011 REF'D BY - FIOH | REAL .DDRS2 54013| REAL .D1 54016 REF'D BY - FIOH | REAL .D2 54020 REF'D BY - FIOH REAL .FERR2 54105| REAL .ANPT 54141 REF'D BY - FIOH | REAL .ONPT 54156 REF'D BY - FIOH | REAL .LNTP 54241 REF'D BY - FIOH | REAL .AOUT 54310 REF'D BY - FIOH REAL .OOUT 54321 REF'D BY - FIOH | REAL .LOUT 54350 REF'D BY - FIOH | REAL .DFLT 54360 REF'D BY - FIOH | REAL .FLT 54625 REF'D BY - FIOH | REAL .FXFL1 54756 REF'D BY - FIOH REAL .FXD 54762 REF'D BY - FIOH | REAL .FXFL2 54765 REF'D BY - FIOH | REAL .FXFL3 54771 REF'D BY - FIOH | REAL .INTG 54775 REF'D BY - FIOH | REAL .TOPAC 55013 REF'D BY - FIOH REAL .WIDTH 55017 REF'D BY - FIOH | REAL .FPACK 55024 REF'D BY - FIOH | 1 IBLDR 12/01/64 PAGE 28 | * CROSS REFERENCE LOGIC * | 0 REAL .TEST 55025 REF'D BY - FIOH REAL .KOUNT 55060 REF'D BY - FIOH | REAL .LIST 55063 REF'D BY - FIOH | REAL .DONE 55071 REF'D BY - FIOH | REAL .OUTBF 55562 REF'D BY - FWRD , FIOH | REAL .CHAR 56016 REF'D BY - FIOH REAL .FBDBF 56032 REF'D BY - FRDD , FIOH | REAL .DDDFL 56064 REF'D BY - FIOH | REAL .DDFLG 56065 REF'D BY - FIOH | REAL .WORD 56066 REF'D BY - FIOH | REAL .MQD 56067 REF'D BY - FIOH REAL .PEX 56070 REF'D BY - FIOH | REAL .FEXP 56071 REF'D BY - FIOH | REAL .DIG 56072 REF'D BY - FIOH | REAL .DEXPN 56073 REF'D BY - FIOH | VIRT .FXEM. REFERS TO FXEM AT 52227 VIRT E.1 REFERS TO .ERAS. AT 52216| VIRT E.2 REFERS TO .ERAS. AT 52217| VIRT E.3 REFERS TO .ERAS. AT 52220| VIRT E.4 REFERS TO .ERAS. AT 52221| 0SUBR FIOS 56125 SIZE = 00434 REAL .FIOS. 56125 REF'D BY - FRDD , FWRD | REAL .FSEL. 56265 REF'D BY - FRDD | REAL .FILR. 56271| REAL .FRTB. 56300| REAL .FRTD. 56305 REF'D BY - FWRD REAL .FILL. 56310 REF'D BY - UN06 , FWRD | REAL .FCLS 56312| REAL .FOPN 56316| REAL REOF 56322| REAL .TOUT. 56465 REF'D BY - UN06 REAL .REED 56473| REAL .BIN 56474| REAL .FCT 56475| REAL .FCKSZ 56477| VIRT .FXEM. REFERS TO FXEM AT 52227 VIRT EXIT REFERS TO XIT AT 52226| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .WRITE REFERS TO .IODEF AT 51431 VIRT .READ REFERS TO .IODEF AT 51427| VIRT .CLOSE REFERS TO .IODEF AT 51423| VIRT .OPEN REFERS TO .IODEF AT 51425| VIRT .LXERR REFERS TO .LXCON AT 51021| 0SUBR FIOH 56561 SIZE = 01053 REAL .FIOH. 56561 REF'D BY - FRDD , FWRD | REAL .FFIL. 57420 REF'D BY - ANV | REAL .FRTN. 57446 REF'D BY - ANV | VIRT .FCON. REFERS TO FCNV AT 53223| VIRT .FXEM. REFERS TO FXEM AT 52227 VIRT .ANPT REFERS TO FCNV AT 54141| VIRT .AOUT REFERS TO FCNV AT 54310| VIRT .CHAR REFERS TO FCNV AT 56016| 1 IBLDR 12/01/64 PAGE 29 | * CROSS REFERENCE LOGIC * 0 VIRT .CNVSW REFERS TO FCNV AT 53255| VIRT .KOUNT REFERS TO FCNV AT 55060| VIRT .D1 REFERS TO FCNV AT 54016| VIRT .D2 REFERS TO FCNV AT 54020| VIRT .DBC10 REFERS TO FCNV AT 53422 VIRT .DBC20 REFERS TO FCNV AT 53450| VIRT .DBC REFERS TO FCNV AT 53264| VIRT .DDBC REFERS TO FCNV AT 53540| VIRT .DDDFL REFERS TO FCNV AT 56064| VIRT .DDFIX REFERS TO FCNV AT 53472 VIRT .DDFLG REFERS TO FCNV AT 56065| VIRT .DDRS1 REFERS TO FCNV AT 54011| VIRT .DDSW REFERS TO FCNV AT 53466| VIRT .DEXPN REFERS TO FCNV AT 56073| VIRT .DFLT REFERS TO FCNV AT 54360 VIRT .DIG REFERS TO FCNV AT 56072| VIRT .DONE REFERS TO FCNV AT 55071| VIRT .ENDFS REFERS TO FCNV AT 53252| VIRT .FIXSW REFERS TO FCNV AT 53473| VIRT .FLT REFERS TO FCNV AT 54625 VIRT .FXD REFERS TO FCNV AT 54762| VIRT .FXFL1 REFERS TO FCNV AT 54756| VIRT .FXFL2 REFERS TO FCNV AT 54765| VIRT .FXFL3 REFERS TO FCNV AT 54771| VIRT .INTG REFERS TO FCNV AT 54775 VIRT .LNTP REFERS TO FCNV AT 54241| VIRT .LOUT REFERS TO FCNV AT 54350| VIRT .MQD REFERS TO FCNV AT 56067| VIRT .ONPT REFERS TO FCNV AT 54156| VIRT .OOUT REFERS TO FCNV AT 54321 VIRT .OUTBF REFERS TO FCNV AT 55562| VIRT .PEX REFERS TO FCNV AT 56070| VIRT .TEST REFERS TO FCNV AT 55025| VIRT .TOPAC REFERS TO FCNV AT 55013| VIRT .WIDTH REFERS TO FCNV AT 55017 VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FDX1 REFERS TO FCNV AT 53261| VIRT .FDX2 REFERS TO FCNV AT 53262| VIRT .FBDBF REFERS TO FCNV AT 56032| VIRT .WORD REFERS TO FCNV AT 56066 VIRT .FPACK REFERS TO FCNV AT 55024| VIRT .FEXP REFERS TO FCNV AT 56071| VIRT .LIST REFERS TO FCNV AT 55063| 0SUBR FWRD 57634 SIZE = 00024| REAL .FWRD. 57634 REF'D BY - ANV VIRT .FIOH. REFERS TO FIOH AT 56561| VIRT .FIOS. REFERS TO FIOS AT 56125| VIRT .OUTBF REFERS TO FCNV AT 55562| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FILL. REFERS TO FIOS AT 56310 VIRT .FRTD. REFERS TO FIOS AT 56305| 0SUBR FRDD 57660 SIZE = 00026| REAL .FRDD. 57660 REF'D BY - ANV | VIRT .FIOH. REFERS TO FIOH AT 56561| 1 IBLDR 12/01/64 PAGE 30 * CROSS REFERENCE LOGIC * | 0 VIRT .FIOS. REFERS TO FIOS AT 56125| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FBDBF REFERS TO FCNV AT 56032| VIRT .FSEL. REFERS TO FIOS AT 56265 VIRT .FDX1 REFERS TO FCNV AT 53261| VIRT .FDX2 REFERS TO FCNV AT 53262| 0SUBR UN01 57706| REAL .UN01. 57706 REF'D BY - FVIO | 0SUBR UN02 57707 REAL .UN02. 57707 REF'D BY - FVIO | 0SUBR UN03 57710| REAL .UN03. 57710 REF'D BY - FVIO | 0SUBR UN04 57711| REAL .UN04. 57711 REF'D BY - FVIO 0SUBR UN05 57712| REAL .UN05. 57712 REF'D BY - FVIO | 0SUBR UN06 57713 SIZE = 00004| REAL .UN06. 57713 REF'D BY - FOUT , FVIO | REAL .BUFSZ 57714 REF'D BY - FOUT VIRT .FOUT. REFERS TO FOUT AT 52662| VIRT .TOUT. REFERS TO FIOS AT 56465| VIRT .FILL. REFERS TO FIOS AT 56310| 0SUBR UN07 57717| REAL .UN07. 57717 REF'D BY - FVIO 0SUBR UN08 57720| REAL .UN08. 57720 REF'D BY - FVIO | 0SUBR FLOG 57721 SIZE = 00204| REAL ALOG10 57721| REAL ALOG 57722 REF'D BY - TRANX , ANV VIRT .FXEM. REFERS TO FXEM AT 52227| VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR FSQR 60125 SIZE = 00053| REAL SQRT 60125 REF'D BY - TRANX , ANV | VIRT .FXEM. REFERS TO FXEM AT 52227 VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR FATN 60200 SIZE = 00232| REAL ATAN2 60200| REAL ATAN 60201 REF'D BY - TRANX | VIRT .FXEM. REFERS TO FXEM AT 52227 VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR FXP1 60432 SIZE = 00114| REAL .XP1. 60432 REF'D BY - ANV | VIRT .FXEM. REFERS TO FXEM AT 52227| VIRT SYSLOC REFERS TO .JBCON AT 02652 1 IBLDR 12/01/64 PAGE 31 | * CROSS REFERENCE LOGIC * | 0SUBR FEFT 60546 SIZE = 00100| REAL .FEFT. 60546 REF'D BY - ANV | VIRT .FOUT. REFERS TO FOUT AT 52662 VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .CLOSE REFERS TO .IODEF AT 51423| VIRT .OPEN REFERS TO .IODEF AT 51425| 0SUBR FSLDI 60646 SIZE = 00035| REAL .FSLI. 60664 REF'D BY - ANV REAL .FSDI. 60672| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .SLI1. REFERS TO FSLI AT 60710| VIRT .SLI. REFERS TO FSLI AT 60703| VIRT .SDI1. REFERS TO FSLI AT 60724 VIRT .SDI. REFERS TO FSLI AT 60716| VIRT .FCNV. REFERS TO FCNV AT 53244| 0SUBR FSLI 60703 SIZE = 00037| REAL .SLI. 60703 REF'D BY - FSLDI | REAL .SLI1. 60710 REF'D BY - FSLDI REAL .SDI. 60716 REF'D BY - FSLDI | REAL .SDI1. 60724 REF'D BY - FSLDI | VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR FSLDO 60742 SIZE = 00035| REAL .FSLO. 60760 REF'D BY - ANV REAL .FSDO. 60766| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .SLO2. REFERS TO FSLO AT 61005| VIRT .SLO. REFERS TO FSLO AT 60777| VIRT .SDO2. REFERS TO FSLO AT 61024 VIRT .SDO. REFERS TO FSLO AT 61012| VIRT .FCNV. REFERS TO FCNV AT 53244| 0SUBR FSLO 60777 SIZE = 00037| REAL .SLO. 60777 REF'D BY - FSLDO | REAL .SLO2. 61005 REF'D BY - FSLDO REAL .SDO. 61012 REF'D BY - FSLDO | REAL .SDO2. 61024 REF'D BY - FSLDO | VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR FVIO 61036 SIZE = 00104| REAL .FVIO. 61036 REF'D BY - ANV VIRT .FXEM. REFERS TO FXEM AT 52227| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .LXERR REFERS TO .LXCON AT 51021| VIRT .UN01. REFERS TO UN01 AT 57706| VIRT .UN02. REFERS TO UN02 AT 57707 VIRT .UN03. REFERS TO UN03 AT 57710| VIRT .UN04. REFERS TO UN04 AT 57711| VIRT .UN05. REFERS TO UN05 AT 57712| VIRT .UN06. REFERS TO UN06 AT 57713| VIRT .UN07. REFERS TO UN07 AT 57717 VIRT .UN08. REFERS TO UN08 AT 57720| 0SUBR .IOCS 61142 SIZE = 03617| 1 IBLDR 12/01/64 PAGE 32 | * CROSS REFERENCE LOGIC * | 0 REAL .L(0) 61142 REF'D BY - .IOCSM REAL .MONSW 61162 REF'D BY - .IOCSM| REAL .TEOR 61231 REF'D BY - .IOCSM| REAL .DEFI. 61311 REF'D BY - .IOCSM| REAL .JOINX 61355| REAL .CLOS. 61374 REF'D BY - .IOCSM REAL .ATTC. 61407 REF'D BY - .IOCSM| REAL .SH1 61621| REAL .SH9 61663| REAL .OPEN. 61704 REF'D BY - .IOCSM| REAL .OP4 61732 REAL .OP7 61763| REAL .OP9.2 61777| REAL .RLSE. 62051 REF'D BY - .IOCSM| REAL .RER2. 62051 REF'D BY - .IOCSM| REAL .READ. 62052 REF'D BY - .IOCSM REAL .RER1. 62075 REF'D BY - .IOCSM| REAL .WRIT. 62077 REF'D BY - .IOCSM| REAL .MNT1A 62267| REAL .EOFEX 62350| REAL .FEEIT 62420 REF'D BY - .IOCSM REAL .GTIOX 62441 REF'D BY - .IOCSM| REAL .RW7 62557| REAL .RE7 63202| REAL .ENDTR 63643 REF'D BY - .IOCSM| REAL .SEL59 63645 REAL .BSR. 64264 REF'D BY - .IOCSM| REAL .EOTOF 64411 REF'D BY - .IOCSM| REAL .ETOF3 64417| REAL .SWITC 64446 REF'D BY - .IOCSM| REAL .TCHEX 64753 REF'D BY - .IOCSM REAL .BASIO 64756| REAL .BASIC DELETED| REAL .JOIN. DELETED (NESTED) | REAL .STAS. DELETED (NESTED) | REAL .COPY. DELETED (NESTED) REAL .BSF. DELETED (NESTED) | REAL .BSF5 DELETED (NESTED) | REAL .REW. DELETED (NESTED) | REAL .WEF. DELETED (NESTED) | REAL .INTOP DELETED (NESTED) REAL .INTCL DELETED (NESTED) | REAL .ENTIN DELETED (NESTED) | REAL .CKPT. DELETED (NESTED) | REAL .CPINT DELETED (NESTED) | REAL .CHCPT DELETED (NESTED) REAL .B5FIN DELETED (NESTED) | REAL .LABEL DELETED (NESTED) | REAL .LABRT DELETED (NESTED) | REAL .LAEOF DELETED (NESTED) | REAL .LABCI DELETED (NESTED) REAL .LABOO DELETED (NESTED) | REAL .LABCO DELETED (NESTED) | REAL .LBEOT DELETED (NESTED) | REAL .MNT6 DELETED (NESTED) | REAL .B6FIN DELETED (NESTED) 1 IBLDR 12/01/64 PAGE 33 | * CROSS REFERENCE LOGIC * | 0 VIRT .ACTV REFERS TO .IOEX AT 00702| VIRT .ENTRY REFERS TO .IODEF AT 51532| VIRT .NOPXI REFERS TO .IODEF AT 51610 VIRT .COMXI REFERS TO .IODEF AT 51612| VIRT .LFBLK REFERS TO .IODEF AT 51502| VIRT .LUNBL REFERS TO .IODEF AT 51526| VIRT .AREA1 REFERS TO .IODEF AT 51520| VIRT .GO REFERS TO .IODEF AT 51573 VIRT .JDATE REFERS TO .JBCON AT 02655| VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .LAREA REFERS TO .IODEF AT 51464| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT SYSJOB REFERS TO .IBSYS AT 00133 VIRT SYSTWT REFERS TO .IBSYS AT 00131| VIRT .EX34 REFERS TO .IODEF AT 51634| VIRT .FDPOS REFERS TO .JBCON AT 02715| VIRT .JBCON REFERS TO .JBCON AT 02652| VIRT .DERR REFERS TO .IODEF AT 51607 VIRT SYSUCW REFERS TO .IBSYS AT 00112| VIRT SYSUBC REFERS TO .IBSYS AT 00110| 0SUBR .IOCSM 64761| VIRT .ENTRY REFERS TO .IODEF AT 51532| VIRT .DEFIN REFERS TO .IODEF AT 51415 VIRT .DEFI. REFERS TO .IOCS AT 61311| VIRT .ATTC. REFERS TO .IOCS AT 61407| VIRT .CLOS. REFERS TO .IOCS AT 61374| VIRT .OPEN. REFERS TO .IOCS AT 61704| VIRT .READ. REFERS TO .IOCS AT 62052 VIRT .WRIT. REFERS TO .IOCS AT 62077| VIRT .BSR. REFERS TO .IOCS AT 64264| VIRT .READR REFERS TO .IODEF AT 51451| VIRT .RER1. REFERS TO .IOCS AT 62075| VIRT .RLSE. REFERS TO .IOCS AT 62051 VIRT .GOA REFERS TO .IODEF AT 51567| VIRT .GO REFERS TO .IODEF AT 51573| VIRT .SWITC REFERS TO .IOCS AT 64446| VIRT .GTIOX REFERS TO .IOCS AT 62441| VIRT .EOTOF REFERS TO .IOCS AT 64411 VIRT .LUNBL REFERS TO .IODEF AT 51526| VIRT .MONSW REFERS TO .IOCS AT 61162| VIRT .TEOR REFERS TO .IOCS AT 61231| VIRT .TCHEX REFERS TO .IOCS AT 64753| VIRT .L(0) REFERS TO .IOCS AT 61142 VIRT .ENDTR REFERS TO .IOCS AT 63643| VIRT .NOPXI REFERS TO .IODEF AT 51610| VIRT .FEEIT REFERS TO .IOCS AT 62420| VIRT .COMXI REFERS TO .IODEF AT 51612| VIRT .RER2. REFERS TO .IOCS AT 62051 VIRT .EX34 REFERS TO .IODEF AT 51634| 1 IBLDR 12/01/64 PAGE 34 | * IOCS CONTROLS * | 0 | 0FILE LIST LOC | 0 03060 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03061 UNIT01 | 0 03062 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03063 UNIT02 0 03064 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03065 UNIT03 | 0 03066 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03067 UNIT04 | 0 03070 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001 03071 UNIT05 | 0 03072 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03073 UNIT06 | 0 03074 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03075 UNIT07 0 03076 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03077 UNIT08 | 0BUFFER POOL | LOC | 0 64761 BUFFER COUNT = 00015 , BUFFER SIZE = 00256 FILE COUNT= 00004 , FILE LIST LOC = 03060 0 74421 BUFFER COUNT = 00002 , BUFFER SIZE = 00014 FILE COUNT= 00001 , FILE LIST LOC = 03070| 0 74463 BUFFER COUNT = 00006 , BUFFER SIZE = 00115 FILE COUNT= 00001 , FILE LIST LOC = 03072| 0 75763 BUFFER COUNT = 00018 , BUFFER SIZE = 00028 FILE COUNT= 00001 , FILE LIST LOC = 03074| 0 77021 BUFFER COUNT = 00020 , BUFFER SIZE = 00022 FILE COUNT= 00001 , FILE LIST LOC = 03076| 1 IBLDR 12/01/64 PAGE 35 * MEMORY MAP * | 0 | 0SYSTEM 00000 THRU 02717| FILE BLOCK ORIGIN 02720| FILES 1. UNIT01 2. UNIT02 | 3. UNIT03 | 4. UNIT04 | 5. UNIT05 | 6. UNIT06 7. UNIT07 | 8. UNIT08 | FILE LIST ORIGIN 03060| PRE-EXECUTION INITIALIZATION 03100| CALL ON OBJECT PROGRAM 03145 OBJECT PROGRAM 03152 THRU 64760| 0 DECK ORIGIN CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED)| | 1. BLDV 03152 /SETK / 03152 | 2. ANV 03216 /SETK /(03152) /READ / 03217 /CALC / 23544 ...... 50463 * 3. TRANX 50501 /SETK /(03152) /READ /(03217) /CALC /(23544) TRAN 50725 | 4. .IBSYS 00000 SYSLB1 00000 * SYSLB2 00001 * SYSLB3 00002 * SYSLB4 00003 * SYSCRD 00004 * | SYSPRT 00005 * SYSPCH 00006 * SYSOU1 00007 SYSOU2 00010 * SYSIN1 00011 * | SYSIN2 00012 * SYSPP1 00013 * SYSPP2 00014 * SYSCK1 00015 * SYSCK2 00016 * | SYSUT1 00017 * SYSUT2 00020 * SYSUT3 00021 * SYSUT4 00022 * SYSUT5 00023 * SYSUT6 00024 * SYSUT7 00025 * SYSUT8 00026 * SYSUT9 00027 * SYSTRA 00100 * | SYSDAT 00101 * SYSCUR 00102 * SYSRET 00103 SYSKEY 00104 * SYSSWS 00105 * | SYSPOS 00106 * SYSUNI 00107 SYSUBC 00110 SYSUAV 00111 SYSUCW 00112 | SYSRPT 00113 * SYSCEM 00114 * SYSDMP 00115 SYSIOX 00116 * SYSIDR 00117 | SYSCOR 00120 * SYSLDR 00121 * SYSACC 00122 * SYSPID 00123 * SYSCYD 00124 * SYSSLD 00126 * SYSTCH 00127 * SYSTWT 00131 SYSGET 00132 * SYSJOB 00133 | 5. .IOEX 00702 .ACTV 00702 .NDSEL 00704 * .MWR 00706 .PUNCH 00707 * .ENBSW 00710 * | .PAWS 00711 * .PAUSE 00712 * .STOP 00713 * .SYMUN 00714 * .DECVD 00715 | .DECVA 00716 * .CKWAT 00717 * .BCD5R 00720 .BCD5X 00721 * .CVPRT 00722 * | .STOPD 00723 .CHXAC 00724 * .URRX 00725 .RCTX 00726 * .RCHX 00727 .TCOX 00730 * .TRCX 00731 * .ETTX 00732 * .TEFX 00733 * .TRAPX 00734 * | .TRAPS 00735 * .COMM 00736 * .LTPOS 00737 * .IOXSI 00740 * .CHPSW 00741 * | .TRPSW 00742 * .FDAMT 00743 .SDCXI 00744 * .STCXI 00745 * .COMMD 00746 * | .IBCDZ 00747 * .CHXSP 00750 * | 6. .JBCON 02652 SYSLOC 02652 SYSFAZ 02653 * .JCOR 02654 * .JDATE 02655 .JLDAT 02656 * .JTYPE 02660 .JLIN 02661 .JVER 02662 * SYSDSB 02663 * .IOEXD 02664 * | .FDPOS 02715 .JDTRK 02716 * SYSZRO 02717 * | 7. .LXCON 50741 .LXSTR 50741 * .LXSTP 50744 .LXOUT 51012 .LXERR 51021 .LXCAL 51024 * | .LXRTN 51024 IBEXIT 51024 * .DBCLS 51206 * .LXARG 51355 .L0 51400 * | .CLSE 51406 .LFBL 51407 * .LUNB 51410 .DFOUT 51411 8. .IODEF 51415 .DEFIN 51415 .ATTAC 51421 * .CLOSE 51423 .OPEN 51425 .READ 51427 | .WRITE 51431 .BSR 51441 * .READR 51451 .RELES 51453 * .LAREA 51464 | .LFBLK 51502 .LTSX 51505 * .RLHLD 51515 * .AREA1 51520 .LUNBL 51526 | .ENTRY 51532 .GOA 51567 .GO 51573 .DERR 51607 .NOPXI 51610 | .COMXI 51612 .EX34 51634 9. .LXSL 51641 .LXSEL 51641 .LXSL1 51642 .LXTST 51645 * .LXOVL 51705 * .LXMOD 51747 * | .LXIND 51773 * .LXDIS 51776 * .LXFLG 51777 * .LTCH 52000 | 10. .FPTRP 52006 .FFPT. 52006 * .FPOUT 52135 .FPARG 52143 /.COUNT/ 52145 * OVFLOW 52211 * | 11. .ERAS. 52216 E.1 52216 E.2 52217 E.3 52220 E.4 52221 | 12. .XCC. 52222 CC.1 52222 CC.2 52223 CC.3 52224 CC.4 52225 1 IBLDR 12/01/64 PAGE 36 | * MEMORY MAP * | 0 13. XIT 52226 EXIT 52226 .EXIT. 52226 * | 14. FXEM 52227 .FXEM. 52227 .FXOUT 52567 .FXARG 52575 /.OPTW./ 52651 * | 15. FOUT 52662 .FOUT. 52662 16. FCNV 53223 .FCON. 53223 .FCNV. 53244 .ENDFS 53252 .CNVSW 53255 .FDX1 53261 | .FDX2 53262 .DBC 53264 .DBC10 53422 .DBC20 53450 .DDSW 53466 | .DDFIX 53472 .FIXSW 53473 .DDBC 53540 .DDRS1 54011 .DDRS2 54013 * | .D1 54016 .D2 54020 .FERR2 54105 * .ANPT 54141 .ONPT 54156 | .LNTP 54241 .AOUT 54310 .OOUT 54321 .LOUT 54350 .DFLT 54360 .FLT 54625 .FXFL1 54756 .FXD 54762 .FXFL2 54765 .FXFL3 54771 | .INTG 54775 .TOPAC 55013 .WIDTH 55017 .FPACK 55024 .TEST 55025 | .KOUNT 55060 .LIST 55063 .DONE 55071 .OUTBF 55562 .CHAR 56016 | .FBDBF 56032 .DDDFL 56064 .DDFLG 56065 .WORD 56066 .MQD 56067 | .PEX 56070 .FEXP 56071 .DIG 56072 .DEXPN 56073 17. FIOS 56125 .FIOS. 56125 .FSEL. 56265 .FILR. 56271 * .FRTB. 56300 * .FRTD. 56305 | .FILL. 56310 .FCLS 56312 * .FOPN 56316 * REOF 56322 * .TOUT. 56465 | .REED 56473 * .BIN 56474 * .FCT 56475 * .FCKSZ 56477 * | 18. FIOH 56561 .FIOH. 56561 .FFIL. 57420 .FRTN. 57446 | 19. FWRD 57634 .FWRD. 57634 20. FRDD 57660 .FRDD. 57660 | 21. UN01 57706 .UN01. 57706 | 22. UN02 57707 .UN02. 57707 | 23. UN03 57710 .UN03. 57710 | 24. UN04 57711 .UN04. 57711 25. UN05 57712 .UN05. 57712 | 26. UN06 57713 .UN06. 57713 .BUFSZ 57714 | 27. UN07 57717 .UN07. 57717 | 28. UN08 57720 .UN08. 57720 | 29. FLOG 57721 ALOG10 57721 * ALOG 57722 30. FSQR 60125 SQRT 60125 | 31. FATN 60200 ATAN2 60200 * ATAN 60201 | 32. FXP1 60432 .XP1. 60432 | 33. FEFT 60546 .FEFT. 60546 | 34. FSLDI 60646 .FSLI. 60664 .FSDI. 60672 * 35. FSLI 60703 .SLI. 60703 .SLI1. 60710 .SDI. 60716 .SDI1. 60724 | 36. FSLDO 60742 .FSLO. 60760 .FSDO. 60766 * | 37. FSLO 60777 .SLO. 60777 .SLO2. 61005 .SDO. 61012 .SDO2. 61024 | 38. FVIO 61036 .FVIO. 61036 | 39. .IOCS 61142 .L(0) 61142 .MONSW 61162 .TEOR 61231 .DEFI. 61311 .JOINX 61355 * .CLOS. 61374 .ATTC. 61407 .SH1 61621 * .SH9 61663 * .OPEN. 61704 | .OP4 61732 * .OP7 61763 * .OP9.2 61777 * .RLSE. 62051 .RER2. 62051 | .READ. 62052 .RER1. 62075 .WRIT. 62077 .MNT1A 62267 * .EOFEX 62350 * | .FEEIT 62420 .GTIOX 62441 .RW7 62557 * .RE7 63202 * .ENDTR 63643 | .SEL59 63645 * .BSR. 64264 .EOTOF 64411 .ETOF3 64417 * .SWITC 64446 .TCHEX 64753 .BASIO 64756 * | 40. .IOCSM 64761 | 0I/O BUFFERS 64761 THRU 77762| 0UNUSED CORE 77763 THRU 77777| 0 1GRAECO-LATIN SQUARE (FIRST ANALYSIS ARRAYED BY ROW WITHIN COLUMN) | 2 0 0 -0 0 1 0 0 -0 -0 | 4 4 | 0 ANALYSIS OF VARIANCE | | FACTOR A IS ROW | FACTOR B IS COLUMN | 0 OBSERVED VARIABLE IS YIELD IN POUNDS PER ACRE | 1 DATA OBSERVED FACTORS AND LEVELS A B | ------------------------------------------- | | 90.000000 1 1 | 93.000000 2 1 | 114.000000 3 1 | 92.000000 4 1 | 93.000000 1 2 106.000000 2 2 | 106.000000 3 2 | 107.000000 4 2 | 85.000000 1 3 | 114.000000 2 3 | 111.000000 3 3 | 92.000000 4 3 81.000000 1 4 | 121.000000 2 4 | 93.000000 3 4 | 102.000000 4 4 | 0 ------------------------------------------------------------------------------------ | GRAND MEAN 100.0000 INVOLVING 16 OBSERVATIONS| 0 GRAND STANDARD DEVIATION 11.2916 WITH GSS = 0.20400000E 04 ------------------------------------------------------------------------------------ | 1 | 0 SUM OF SQUARES DFS MEAN SQUARE SOURCE IDENTIFICATION | A B | ------------------------------------------------------------------------------------ | | 160000.000000 1 160000.000000 | 1095.500000 3 365.166664 A 69.500000 3 23.166667 B | 875.000000 9 97.222221 AB | 0------------------------------------------------------------------------------------------- | TOT 2040.000000 15 EXCLUSIVE OF DEVIATION OF MEAN FROM ZERO| =========================================================================================== | | 1GRAECO-LATIN SQUARE(SECOND ANALYSIS ARRAYED BY GREEK WITHIN LATIN) | 2 0 0 -0 0 1 0 0 -0 -0 4 4 | 0 ANALYSIS OF VARIANCE | | FACTOR A IS GREEK TREATMENT | FACTOR B IS LATIN TREATMENT | 0 OBSERVED VARIABLE IS YIELD IN POUNDS PER ACRE | 1 DATA OBSERVED FACTORS AND LEVELS | A B | ------------------------------------------- | 114.000000 1 1 | 106.000000 2 1 | 92.000000 3 1 | 81.000000 4 1 | 114.000000 1 2 | 93.000000 2 2 | 90.000000 3 2 107.000000 4 2 | 93.000000 1 3 | 92.000000 2 3 | 121.000000 3 3 | 111.000000 4 3 | 102.000000 1 4 | 85.000000 2 4 106.000000 3 4 | 93.000000 4 4 | 0 ------------------------------------------------------------------------------------ | GRAND MEAN 100.0000 INVOLVING 16 OBSERVATIONS| 0 GRAND STANDARD DEVIATION 11.2916 WITH GSS = 0.20400000E 04 | ------------------------------------------------------------------------------------ | 1 0 SUM OF SQUARES DFS MEAN SQUARE SOURCE IDENTIFICATION | A B | ------------------------------------------------------------------------------------ | | 160000.000000 1 160000.000000 | 312.500000 3 104.166666 A | 137.500000 3 45.833333 B | 1590.000000 9 176.666666 AB 0------------------------------------------------------------------------------------------- | TOT 2040.000000 15 EXCLUSIVE OF DEVIATION OF MEAN FROM ZERO| =========================================================================================== | | 11-STAGE NESTING WITH REPS AND PARTITION INTO ORTHOGONAL COMPONENTS | 3 2 1 -0 0 1 1 2 2 3 -0 | 2 2 3 | 0 ANALYSIS OF VARIANCE | | FACTOR A IS REPLICATIONS (ACTUALLY, DUPLICATE DETERMINATIONS WITHIN SAMPLING UNITS) FACTOR B IS TEMPERATURE (LEVEL 1 =50 DEG.,LEVEL 2 =100 DEG. FAHRENHEIT) | FACTOR C IS POUNDS OF SILICA GEL EMPLOYED PER CUBIC YARD | 0 OBSERVED VARIABLE IS MOISTURE CONTENT (PERCENT WET WEIGHT) | 1 DATA OBSERVED FACTORS AND LEVELS | A B C | ------------------------------------------- | 39.020000 1 1 1 | 38.790000 2 1 1 | 38.960000 1 2 1 | 39.010000 2 2 1 | 35.740000 1 1 2 | 35.410000 2 1 2 35.580000 1 2 2 | 35.520000 2 2 2 | 37.020000 1 1 3 | 36.000000 2 1 3 | 35.700000 1 2 3 | 36.040000 2 2 3 | 1 MEANS FACTORS AND LEVELS A B C | ------------------------------------------- | | | 36.899166 0 0 0 | | B | 36.996666 0 1 0 36.801666 0 2 0 | | C | 38.945000 0 0 1 | 35.562499 0 0 2 | 36.190000 0 0 3 | | BC 38.905000 0 1 1 | 38.985000 0 2 1 | 35.575000 0 1 2 | 35.549999 0 2 2 | 36.509999 0 1 3 | 35.870000 0 2 3 | 0 ------------------------------------------------------------------------------------ | GRAND MEAN 36.8992 INVOLVING 12 OBSERVATIONS| 0 GRAND STANDARD DEVIATION 1.4994 WITH GSS = 0.26979492E 02 | ------------------------------------------------------------------------------------ | 1 | 0 SUM OF SQUARES DFS MEAN SQUARE DEVIATES SOURCE IDENTIFICATION | A B C ------------------------------------------------------------------------------------ | | 16338.581299 1 16338.581299 | 442.789993 0 0 0 | | 0.114075 1 0.114075 B | 1.170002 0 1 0 | -1.169996 0 2 0 | 25.900120 2 12.950060 C | 24.550003 0 0 1 | -16.040001 0 0 2 | -8.509998 0 0 3 | | 0.302550 2 0.151275 BC | -1.650002 0 1 1 1.650002 0 2 1 | -1.019999 0 1 2 | 1.019999 0 2 2 | 2.670000 0 1 3 | -2.670000 0 2 3 | | 0 0.662018 6 0.110336 (POOLED REP ERROR FROM ALL 'A' ITEMS) 0------------------------------------------------------------------------------------------- | TOT 26.978763 11 EXCLUSIVE OF DEVIATION OF MEAN FROM ZERO| 0 BARTLETT'S CHISQUARE TEST OF HOMOGENEITY OF POOLED REP ERROR VARIANCE TERM | COMPARE 7.0788 WITH CHISQUARE HAVING 5 DFS. | 0 FACTOR B, LINEAR MSQ(1 DF) 0.114075 | 0 FACTOR C, LINEAR MSQ(1 DF) 15.180051 | FACTOR C, QUADRATIC MSQ(1 DF) 10.720069 | =========================================================================================== | 1NESTED SUBSET ANALYSES IN STAGE 1********************************************************* | 0 SUM OF SQUARES DFS MEAN SQUARE DEVIATES SOURCE IDENTIFICATION | A B | ------------------------------------------------------------------------------------ | | 6066.851990 1 6066.851990 | 155.779999 0 0 | 0.006400 1 0.006400 B | -0.160000 0 1 | 0.160002 0 2 | | 0 0.027710 2 0.013855 (POOLED REP ERROR FROM ALL 'A' ITEMS) | 0------------------------------------------------------------------------------------------- | TOT 0.034110 3 EXCLUSIVE OF DEVIATION OF MEAN FROM ZERO| 0 BARTLETT'S CHISQUARE TEST OF HOMOGENEITY OF POOLED REP ERROR VARIANCE TERM COMPARE 1.1874 WITH CHISQUARE HAVING 1 DFS. | 0 FACTOR B, LINEAR MSQ(1 DF) 0.006400 | =========================================================================================== | | 0 SUM OF SQUARES DFS MEAN SQUARE DEVIATES SOURCE IDENTIFICATION | A B | ------------------------------------------------------------------------------------ | | 5058.765442 1 5058.765442 142.249998 0 0 | | 0.000625 1 0.000625 B | 0.050001 0 1 | -0.049999 0 2 | | 0 0.056305 2 0.028152 (POOLED REP ERROR FROM ALL 'A' ITEMS) | 0------------------------------------------------------------------------------------------- TOT 0.056930 3 EXCLUSIVE OF DEVIATION OF MEAN FROM ZERO| 0 BARTLETT'S CHISQUARE TEST OF HOMOGENEITY OF POOLED REP ERROR VARIANCE TERM | COMPARE 1.3818 WITH CHISQUARE HAVING 1 DFS. | 0 FACTOR B, LINEAR MSQ(1 DF) 0.000625 | =========================================================================================== | | 0 SUM OF SQUARES DFS MEAN SQUARE DEVIATES SOURCE IDENTIFICATION | A B ------------------------------------------------------------------------------------ | | 5238.864258 1 5238.864258 | 144.759998 0 0 | | 0.409600 1 0.409600 B | 1.280001 0 1 | -1.279999 0 2 | 0 0.578003 2 0.289001 (POOLED REP ERROR FROM ALL 'A' ITEMS) | 0------------------------------------------------------------------------------------------- | TOT 0.987603 3 EXCLUSIVE OF DEVIATION OF MEAN FROM ZERO| 0 BARTLETT'S CHISQUARE TEST OF HOMOGENEITY OF POOLED REP ERROR VARIANCE TERM | COMPARE 0.6814 WITH CHISQUARE HAVING 1 DFS. | 0 FACTOR B, LINEAR MSQ(1 DF) 0.409600 | =========================================================================================== | 0REQUEST TO WRITE EOF ON UNIT ASSIGNED AS SYSIN1,SYSOU1, OR SYSPP1 HAS BEEN IGNORED. 1 1834 LINES OUTPUT. $IBSYS $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00164, FILE 00000 SYSOU1 IS B1 REC. 00358, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00001| 1 END OF JOBS | 1