FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 001 FLEFOR,FLEFOR=FLEFOR 0001 PROGRAM FLECS 00001 0002 IMPLICIT INTEGER (A-Z) 00031 0003 BYTE COMMND(160),FILE(34),FFILE(34),LFILE(34),OFILE(34) 00032 0004 BYTE TFILE(34),FLECOM(120),FORCOM(120),TKBCOM(120) 00033 0005 BYTE SWITCH(40),FTN(3),FLE(3),FLL(3),LST(3),OBJ(3) 00034 0006 BYTE FOR(3),TAS(3),CMD(3),TKB(12),LPAR,RPAR,ATS,SPL(4) 00035 0007 INTEGER IEXIT(6) 00036 0008 DATA LISQ /1/ 00037 0009 DATA NOLQ /2/ 00038 0010 DATA FTNQ /3/ 00039 0011 DATA NOFQ /4/ 00040 0012 DATA OBJQ /5/ 00041 0013 DATA NOBQ /6/ 00042 0014 DATA KEEQ /7/ 00043 0015 DATA NOKQ /8/ 00044 0016 DATA SWIQ /9/ 00045 0017 DATA NOSQ /10/ 00046 0018 DATA LNKQ /11/ 00047 0019 DATA NLNQ /12/ 00048 0020 DATA RUNQ /13/ 00049 0021 DATA NORQ /14/ 00050 0022 DATA SPL /'/','-','S','P'/ 00051 0023 DATA FTN/'F','T','N'/ 00052 0024 DATA FLE/'F','L','E'/ 00053 0025 DATA FLL/'F','L','L'/ 00054 0026 DATA LST/'L','S','T'/ 00055 0027 DATA OBJ/'O','B','J'/ 00056 0028 DATA FOR/'F','O','R'/ 00057 0029 DATA TAS/'T','S','K'/ 00058 0030 DATA CMD/'C','M','D'/ 00059 0031 DATA TKB/'T','K','B',' ','@','F','L','E','.','T','M','P'/ 00060 0032 DATA LPAR/1H(/ 00061 0033 DATA RPAR/1H)/ 00062 0034 DATA ATS/1H@/ 00063 0035 DATA FILEN/0/ 00064 0036 DATA DOT/0/ 00065 0037 DATA LILEN/0/ 00066 0038 DATA FTLEN/0/ 00067 0039 DATA TABLEN/0/ 00068 0040 DATA OBLEN/0/ 00069 0041 DATA SWLEN/0/ 00070 0042 DATA WARN/0/ 00071 0043 DATA SUCC/1/ 00072 0044 DATA EROR/2/ 00073 0045 DATA SEVR/4/ 00074 0046 ASSIGN 32757 TO I32758 00082 0047 GO TO 32758 00082 0048 32757 CALL GETLIN(COMMND,COMLEN) 00083 0049 LUN=5 00096 0050 CONTU=.TRUE. 00097 0051 GO TO 32755 00098 0052 32756 IF(.NOT.CONTU) GO TO 32754 00098 0054 32755 ASSIGN 32752 TO I32753 00098 0055 GO TO 32753 00098 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 002 FLEFOR,FLEFOR=FLEFOR 0056 32752 GO TO 32756 00098 0057 32754 INDIR=.TRUE. 00099 0058 GO TO 32750 00100 0059 32751 IF(.NOT.INDIR) GO TO 32749 00100 0061 32750 ASSIGN 32747 TO I32748 00100 0062 GO TO 32748 00100 0063 32747 GO TO 32751 00100 0064 32749 CALL PARSE(1,COMMND,1,COMLEN,FILE,FILEN,FLE,DOT) 00104 0065 IF(.NOT.(FILEN.EQ.0)) GO TO 32746 00105 0067 WRITE(5,99) 00106 0068 99 FORMAT(' Required parameter not specified',/, 00107 1' Command terminated') 00108 0069 CALL QEXIT 00109 0070 32746 IF(.NOT.((FILEN-DOT).LE.0)) GO TO 32745 00111 0072 WRITE(5,71)(FILE(J),J=1,FILEN) 00112 0073 71 FORMAT(1H ,A1,' -- Illegal file-specification') 00113 ***** I ***** I 0074 CALL QEXIT 00114 0075 32745 CALL SPACE(COMMND,COMLEN) 00117 0076 INDEX=0 00118 0077 GO TO 32743 00119 0078 32744 IF(INDEX.EQ.COMLEN) GO TO 32742 00119 0080 32743 CALL SLASH(COMMND,COMLEN,INDEX) 00120 0081 IF(.NOT.(INDEX.GT.0.AND.INDEX.NE.COMLEN)) GO TO 32741 00121 0083 START=INDEX+1 00122 0084 CALL SLASH(COMMND,COMLEN,INDEX) 00123 0085 IF (INDEX.EQ.0) STOP=COMLEN 00124 0087 IF(.NOT.(INDEX.NE.0)) GO TO 32740 00125 0089 IF (INDEX.EQ.COMLEN) STOP=INDEX 00126 0091 IF (INDEX.NE.COMLEN) STOP=INDEX-1 00127 0093 INDEX=START 00128 0094 32740 XLEN=STOP-START+1 00130 0095 IF(.NOT.(XLEN.LE.0)) GO TO 32739 00131 0097 WRITE(5,98)(COMMND(J),J=1,STOP) 00132 0098 98 FORMAT(1H ,A1,' -- Invalid qualifier') 00133 ***** I ***** I 0099 CALL QEXIT 00134 0100 32739 ASSIGN 32737 TO I32738 00138 0101 GO TO 32738 00138 0102 32737 IF((LISQ).NE.(QUALIF)) GO TO 32735 00140 0104 ASSIGN 32733 TO I32734 00140 0105 GO TO 32734 00140 0106 32733 GO TO 32736 00141 0107 32735 IF((NOLQ).NE.(QUALIF)) GO TO 32732 00141 0109 LIFLAG=.FALSE. 00141 0110 GO TO 32736 00142 0111 32732 IF((FTNQ).NE.(QUALIF)) GO TO 32731 00142 0113 ASSIGN 32729 TO I32730 00142 0114 GO TO 32730 00142 0115 32729 GO TO 32736 00143 0116 32731 IF((NOFQ).NE.(QUALIF)) GO TO 32728 00143 0118 FTFLAG=.FALSE. 00144 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 003 FLEFOR,FLEFOR=FLEFOR 0119 OBFLAG=.FALSE. 00145 0120 LNFLAG=.FALSE. 00146 0121 RUFLAG=.FALSE. 00147 0122 LIFLAG=.TRUE. 00148 0123 GO TO 32736 00150 0124 32728 IF((OBJQ).NE.(QUALIF)) GO TO 32727 00150 0126 ASSIGN 32725 TO I32726 00150 0127 GO TO 32726 00150 0128 32725 GO TO 32736 00151 0129 32727 IF((NOBQ).NE.(QUALIF)) GO TO 32724 00151 0131 OBFLAG=.FALSE. 00152 0132 LNFLAG=.FALSE. 00153 0133 RUFLAG=.FALSE. 00154 0134 GO TO 32736 00156 0135 32724 IF((KEEQ).NE.(QUALIF)) GO TO 32723 00156 0137 KEFLAG=.TRUE. 00156 0138 GO TO 32736 00157 0139 32723 IF((NOKQ).NE.(QUALIF)) GO TO 32722 00157 0141 KEFALG=.FALSE. 00157 0142 GO TO 32736 00158 0143 32722 IF((SWIQ).NE.(QUALIF)) GO TO 32721 00158 0145 ASSIGN 32719 TO I32720 00158 0146 GO TO 32720 00158 0147 32719 GO TO 32736 00159 0148 32721 IF((NOSQ).NE.(QUALIF)) GO TO 32718 00159 0150 SWFLAG=.FALSE. 00159 0151 GO TO 32736 00160 0152 32718 IF((LNKQ).NE.(QUALIF)) GO TO 32717 00160 0154 ASSIGN 32715 TO I32716 00160 0155 GO TO 32716 00160 0156 32715 GO TO 32736 00161 0157 32717 IF((NLNQ).NE.(QUALIF)) GO TO 32714 00161 0159 LNFLAG=.FALSE. 00162 0160 RUFLAG=.FALSE. 00163 0161 GO TO 32736 00165 0162 32714 IF((RUNQ).NE.(QUALIF)) GO TO 32713 00165 0164 RUFLAG=.TRUE. 00165 0165 GO TO 32736 00166 0166 32713 IF((NORQ).NE.(QUALIF)) GO TO 32712 00166 0168 RUFLAG=.FALSE. 00166 0169 GO TO 32736 00167 0170 32712 WRITE(5,11)(COMMND(Z),Z=START,STOP) 00168 0171 11 FORMAT(1H ,A1,' -- Unrecognized qualifier ignored') 00169 ***** I ***** I 0172 32736 CONTINUE 00172 0173 32741 GO TO 32744 00173 0174 32742 CALL DECTDB(1,IERR) 00174 0175 IF(.NOT.(IERR.LT.0)) GO TO 32711 00175 0177 ASSIGN 32709 TO I32710 00175 0178 GO TO 32710 00175 0179 32709 CONTINUE 00175 0180 32711 ASSIGN 32707 TO I32708 00176 0181 GO TO 32708 00176 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 004 FLEFOR,FLEFOR=FLEFOR 0182 32707 ASSIGN 32705 TO I32706 00177 0183 GO TO 32706 00177 0184 32705 ASSIGN 32703 TO I32704 00178 0185 GO TO 32704 00178 0186 32703 ASSIGN 32701 TO I32702 00179 0187 GO TO 32702 00179 0188 32701 IF(.NOT.(FTFLAG)) GO TO 32700 00180 0190 ASSIGN 32698 TO I32699 00180 0191 GO TO 32699 00180 0192 32698 CONTINUE 00180 0193 32700 IF(.NOT.(OBFLAG.AND.LNFLAG)) GO TO 32697 00181 0195 ASSIGN 32695 TO I32696 00181 0196 GO TO 32696 00181 0197 32695 CONTINUE 00181 0198 32697 IF(.NOT.(RUFLAG)) GO TO 32694 00182 0200 ASSIGN 32692 TO I32693 00182 0201 GO TO 32693 00182 0202 32692 CONTINUE 00182 0203 32694 CALL EXIT(ISTAT) 00183 0204 32738 CONTINUE 00186 0205 QUALIF=0 00196 0206 J=START 00197 0207 IF (COMMND(J).EQ.'L') QUALIF=LISQ 00198 0209 IF (COMMND(J).EQ.'T') QUALIF=LNKQ 00199 0211 IF (COMMND(J).EQ.'F') QUALIF=FTNQ 00200 0213 IF (COMMND(J).EQ.'O') QUALIF=OBJQ 00201 0215 IF (COMMND(J).EQ.'K') QUALIF=KEEQ 00202 0217 IF (COMMND(J).EQ.'S') QUALIF=SWIQ 00203 0219 IF (COMMND(J).EQ.'R') QUALIF=RUNQ 00204 0221 IF(.NOT.(COMMND(J).EQ.'N'.AND.COMMND(J+1).EQ.'O')) GO TO 32691 00205 0223 IF (COMMND(J+2).EQ.'L') QUALIF=NOLQ 00206 0225 IF (COMMND(J+2).EQ.'T') QUALIF=NLNQ 00207 0227 IF (COMMND(J+2).EQ.'F') QUALIF=NOFQ 00208 0229 IF (COMMND(J+2).EQ.'O') QUALIF=NOBQ 00209 0231 IF (COMMND(J+2).EQ.'K') QUALIF=NOKQ 00210 0233 IF (COMMND(J+2).EQ.'S') QUALIF=NOSQ 00211 0235 IF (COMMND(J+2).EQ.'R') QUALIF=NORQ 00212 0237 32691 GO TO I32738 00214 0238 32734 CONTINUE 00217 0239 LIFLAG=.TRUE. 00218 0240 ASSIGN 32689 TO I32690 00219 0241 GO TO 32690 00219 0242 32689 IF(.NOT.(COLON.NE.0)) GO TO 32688 00220 0244 SPOOL=.FALSE. 00221 0245 CALL PARSE(2,COMMND,COLON,STOP,LFILE,LILEN,FLL,DOTL) 00222 0246 IF(.NOT.(LILEN.EQ.0)) GO TO 32687 00223 0248 WRITE(5,98)(COMMND(J),J=1,STOP) 00224 0249 CALL QEXIT 00225 0250 32687 CONTINUE 00227 0251 32688 IF(.NOT.(COLON.EQ.0)) GO TO 32686 00228 0253 ASSIGN 32684 TO I32685 00228 0254 GO TO 32685 00228 0255 32684 CONTINUE 00228 0256 32686 IF(.NOT.((LILEN-DOTL).LE.0)) GO TO 32683 00229 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 005 FLEFOR,FLEFOR=FLEFOR 0258 WRITE(5,72)(LFILE(J),J=1,LILEN) 00230 0259 72 FORMAT(1H ,A1,'-- Illegal file-specification') 00231 ***** I ***** I 0260 CALL QEXIT 00232 0261 32683 GO TO I32734 00234 0262 32685 CONTINUE 00237 0263 SPOOL=.TRUE. 00238 0264 LILEN=FILEN 00239 0265 DO 32682 J=1,FILEN 00240 0266 LFILE(J)=FILE(J) 00240 0267 32682 CONTINUE 00240 0268 DO 32681 J=DOT+1,DOT+3 00241 0269 LFILE(J)=FLL(J-DOT) 00241 0270 32681 CONTINUE 00241 0271 LILEN=DOT+3 00242 0272 DOTL=DOT 00243 0273 GO TO I32685 00244 0274 32690 CONTINUE 00247 0275 COLON=0 00248 0276 J=START 00249 0277 GO TO 32679 00250 0278 32680 IF(J.EQ.STOP.OR.COLON.NE.0) GO TO 32678 00250 0280 32679 J=J+1 00251 0281 IF (COMMND(J).EQ.':')COLON=J 00252 0283 GO TO 32680 00253 0284 32678 GO TO I32690 00254 0285 32730 CONTINUE 00257 0286 FTFLAG=.TRUE. 00258 0287 ASSIGN 32677 TO I32690 00259 0288 GO TO 32690 00259 0289 32677 IF(.NOT.(COLON.NE.0)) GO TO 32676 00260 0291 CALL PARSE(2,COMMND,COLON,STOP,FFILE,FTLEN,FTN,DOTF) 00261 0292 IF(.NOT.(FTLEN.EQ.0)) GO TO 32675 00262 0294 WRITE(5,98)(COMMND(J),J=1,STOP) 00263 0295 CALL QEXIT 00264 0296 32675 CONTINUE 00266 0297 32676 IF(.NOT.(COLON.EQ.0)) GO TO 32674 00267 0299 ASSIGN 32672 TO I32673 00267 0300 GO TO 32673 00267 0301 32672 CONTINUE 00267 0302 32674 IF(.NOT.((FTLEN-DOTF).LE.0)) GO TO 32671 00268 0304 WRITE(5,73)(FFILE(J),J=1,FTLEN) 00269 0305 73 FORMAT(1H ,A1,' -- Illegal file-specification') 00270 ***** I ***** I 0306 CALL QEXIT 00271 0307 32671 GO TO I32730 00273 0308 32673 CONTINUE 00276 0309 FTLEN=FILEN 00277 0310 DO 32670 J=1,FILEN 00278 0311 FFILE(J)=FILE(J) 00278 0312 32670 CONTINUE 00278 0313 DO 32669 J=DOT+1,DOT+3 00279 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 006 FLEFOR,FLEFOR=FLEFOR 0314 FFILE(J)=FTN(J-DOT) 00279 0315 32669 CONTINUE 00279 0316 FTLEN=DOT+3 00280 0317 GO TO I32673 00281 0318 32716 CONTINUE 00284 0319 LNFLAG=.TRUE. 00285 0320 ASSIGN 32668 TO I32690 00286 0321 GO TO 32690 00286 0322 32668 IF(.NOT.(COLON.NE.0)) GO TO 32667 00287 0324 CALL PARSE(2,COMMND,COLON,STOP,TFILE,TALEN,TAS,DOTT) 00288 0325 IF(.NOT.(TALEN.EQ.0)) GO TO 32666 00289 0327 WRITE(5,98)(COMMND(J),J=1,STOP) 00290 0328 CALL QEXIT 00291 0329 32666 CONTINUE 00293 0330 32667 IF(.NOT.(COLON.EQ.0)) GO TO 32665 00294 0332 ASSIGN 32663 TO I32664 00294 0333 GO TO 32664 00294 0334 32663 CONTINUE 00294 0335 32665 IF(.NOT.((TALEN-DOTT).LE.0)) GO TO 32662 00295 0337 WRITE(5,74)(TFILE(J),J=1,TALEN) 00296 0338 74 FORMAT(1H ,A1,' -- Illegal file-specification') 00297 ***** I ***** I 0339 CALL QEXIT 00298 0340 32662 GO TO I32716 00300 0341 32664 CONTINUE 00303 0342 TALEN=FILEN 00304 0343 DO 32661 J=1,FILEN 00305 0344 TFILE(J)=FILE(J) 00305 0345 32661 CONTINUE 00305 0346 DO 32660 J=DOT+1,DOT+3 00306 0347 TFILE(J)=TAS(J-DOT) 00306 0348 32660 CONTINUE 00306 0349 TALEN=DOT+3 00307 0350 GO TO I32664 00308 0351 32726 CONTINUE 00311 0352 OBFLAG=.TRUE. 00312 0353 ASSIGN 32659 TO I32690 00313 0354 GO TO 32690 00313 0355 32659 IF(.NOT.(COLON.NE.0)) GO TO 32658 00314 0357 CALL PARSE(2,COMMND,COLON,STOP,OFILE,OBLEN,OBJ,DOTO) 00315 0358 IF(.NOT.(OBLEN.EQ.0)) GO TO 32657 00316 0360 WRITE(5,98)(COMMND(J),J=1,STOP) 00317 0361 CALL QEXIT 00318 0362 32657 CONTINUE 00320 0363 32658 IF(.NOT.(COLON.EQ.0)) GO TO 32656 00321 0365 ASSIGN 32654 TO I32655 00321 0366 GO TO 32655 00321 0367 32654 CONTINUE 00321 0368 32656 IF(.NOT.((OBLEN-DOTO).LE.0)) GO TO 32653 00322 0370 WRITE(5,75)(OFILE(J),J=1,OBLEN) 00323 0371 75 FORMAT(1H ,A1,' -- Illegal file-specification') 00324 ***** I ***** I FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 007 FLEFOR,FLEFOR=FLEFOR 0372 CALL QEXIT 00325 0373 32653 GO TO I32726 00327 0374 32655 CONTINUE 00330 0375 OBLEN=FILEN 00331 0376 DO 32652 J=1,FILEN 00332 0377 OFILE(J)=FILE(J) 00332 0378 32652 CONTINUE 00332 0379 DO 32651 J=DOT+1,DOT+3 00333 0380 OFILE(J)=OBJ(J-DOT) 00333 0381 32651 CONTINUE 00333 0382 OBLEN=DOT+3 00334 0383 GO TO I32655 00335 0384 32720 CONTINUE 00338 0385 ASSIGN 32650 TO I32690 00339 0386 GO TO 32690 00339 0387 32650 IF(.NOT.(COLON.NE.0)) GO TO 32649 00340 0389 SWFLAG=.TRUE. 00341 0390 J=COLON 00342 0391 X=COLON 00343 0392 GO TO 32647 00344 0393 32648 IF(J.EQ.STOP.OR.X.NE.COLON) GO TO 32646 00344 0395 32647 J=J+1 00345 0396 IF (COMMND(J).EQ.LPAR)X=J+1 00346 0398 GO TO 32648 00347 0399 32646 J=X 00348 0400 Y=X 00349 0401 GO TO 32644 00350 0402 32645 IF(J.EQ.STOP.OR.Y.NE.X) GO TO 32643 00350 0404 32644 J=J+1 00351 0405 IF(.NOT.(COMMND(J).EQ.RPAR)) GO TO 32641 00352 0407 Y=J-1 00352 0408 GO TO 32642 00352 0409 32641 IF (J.EQ.STOP) Y =J 00353 0411 32642 GO TO 32645 00354 0412 32643 SWLEN=Y-X+1 00355 0413 32649 IF(.NOT.(SWLEN.GT.40.OR.SWLEN.LE.0.OR.COLON.EQ.0)) GO TO 32639 00357 0415 WRITE(5,92)(COMMND(J),J=START,STOP) 00358 0416 92 FORMAT(1H ,A1,' -- Invalid qualifier value ignored') 00359 ***** I ***** I 0417 ISTAT=0 00360 0418 SWFLAG=.FALSE. 00361 0419 GO TO 32640 00362 0420 32639 DO 32638 J=1,40 00364 0421 SWITCH(J)=0 00364 0422 32638 CONTINUE 00364 0423 DO 32637 J=X,Y 00365 0424 SWITCH(J-X+1)=COMMND(J) 00365 0425 32637 CONTINUE 00365 0426 32640 GO TO I32720 00367 0427 32702 CONTINUE 00370 0428 DO 32636 J=1,80 00371 0429 COMMND(J)=0 00371 0430 32636 CONTINUE 00371 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 008 FLEFOR,FLEFOR=FLEFOR 0431 DO 32635 J=1,FLELEN 00372 0432 COMMND(J)=FLECOM(J) 00372 0433 32635 CONTINUE 00372 0434 ASSIGN 32633 TO I32634 00373 0435 GO TO 32634 00373 0436 32633 IF(.NOT.(SPOOL)) GO TO 32632 00374 0438 OPEN(UNIT=1,NAME=LFILE,TYPE='OLD',DISPOSE='PRINT') 00375 0439 CLOSE(UNIT=1) 00376 0440 32632 IF (ISTAT.GT.SUCC)CALL EXIT(ISTAT) 00378 0442 GO TO I32702 00379 0443 32699 CONTINUE 00382 0444 DO 32631 J=1,80 00383 0445 COMMND(J)=0 00383 0446 32631 CONTINUE 00383 0447 DO 32630 J=1,FORLEN 00384 0448 COMMND(J)=FORCOM(J) 00384 0449 32630 CONTINUE 00384 0450 ASSIGN 32629 TO I32634 00385 0451 GO TO 32634 00385 0452 32629 IF(.NOT.(SPOOL)) GO TO 32628 00386 0454 OPEN(UNIT=1,NAME=LFILE,TYPE='OLD',DISPOSE='PRINT') 00387 0455 CLOSE(UNIT=1) 00388 0456 32628 IF(.NOT.(.NOT.KEFLAG)) GO TO 32627 00390 0458 OPEN(UNIT=1,NAME=FFILE,TYPE='OLD',DISPOSE='DELETE') 00391 0459 CLOSE(UNIT=1) 00392 0460 32627 IF (ISTAT.GT.SUCC)CALL EXIT(ISTAT) 00394 0462 GO TO I32699 00395 0463 32696 CONTINUE 00398 0464 DO 32626 J=1,80 00399 0465 COMMND(J)=0 00399 0466 32626 CONTINUE 00399 0467 DO 32625 J=1,12 00400 0468 COMMND(J)=TKB(J) 00400 0469 32625 CONTINUE 00400 0470 ASSIGN 32624 TO I32634 00401 0471 GO TO 32634 00401 0472 32624 OPEN(UNIT=1,NAME='FLE.TMP',TYPE='OLD',DISPOSE='DELETE') 00402 0473 CLOSE(UNIT=1) 00403 0474 IF(.NOT.(.NOT.KEFLAG)) GO TO 32623 00404 0476 OPEN(UNIT=1,NAME=OFILE,TYPE='OLD',DISPOSE='DELETE') 00405 0477 CLOSE(UNIT=1) 00406 0478 32623 IF (ISTAT.GT.SUCC)CALL EXIT(ISTAT) 00408 0480 GO TO I32696 00409 0481 32693 CONTINUE 00412 0482 DO 32622 J=1,160 00413 0483 COMMND(J)=0 00413 0484 32622 CONTINUE 00413 0485 COMMND(1)=' ' 00414 0486 NEXT=2 00415 0487 DO 32621 J=NEXT,NEXT+TALEN-1 00416 0488 COMMND(J)=TFILE(J-NEXT+1) 00416 0489 32621 CONTINUE 00416 0490 CALL CHAIN(COMMND,1) 00417 0491 GO TO I32693 00418 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 009 FLEFOR,FLEFOR=FLEFOR 0492 32710 CONTINUE 00421 0493 WRITE(5,70) 00422 0494 70 FORMAT(' Fatal subtask error') 00423 0495 CALL EXIT(4) 00424 0496 GO TO I32710 00425 0497 32634 CONTINUE 00428 0498 CALL RUNTS(COMMND,1,2,,,IERR) 00429 0499 IF(.NOT.(IERR.LT.0)) GO TO 32620 00430 0501 ASSIGN 32619 TO I32710 00430 0502 GO TO 32710 00430 0503 32619 CONTINUE 00430 0504 32620 CALL CHKEVW(1,IERR) 00431 0505 IF(.NOT.(IERR.LT.0)) GO TO 32618 00432 0507 ASSIGN 32617 TO I32710 00432 0508 GO TO 32710 00432 0509 32617 CONTINUE 00432 0510 32618 CALL RDEVTS(XRAY,1,IERR,IEXIT) 00433 0511 IF(.NOT.(IERR.LT.0.OR.(XRAY.GT.1.AND.XRAY.LT.8))) GO TO 32616 00434 0513 ASSIGN 32615 TO I32710 00434 0514 GO TO 32710 00434 0515 32615 CONTINUE 00434 0516 32616 IF ((IEXIT(4).AND.2).NE.0)ISTAT=4 00435 0518 IF ((IEXIT(4).AND.1).NE.0)ISTAT=IEXIT(6) 00436 0520 GO TO I32634 00437 0521 32748 CONTINUE 00440 0522 INDIR=.FALSE. 00441 0523 IF(COMLEN.LT.4) GO TO 32614 00442 0525 J=0 00443 0526 GO TO 32612 00444 0527 32613 IF(INDIR.OR.J.EQ.COMLEN) GO TO 32611 00444 0529 32612 J=J+1 00445 0530 IF (COMMND(J).EQ.ATS) INDIR=.TRUE. 00446 0532 GO TO 32613 00447 0533 32611 IF(.NOT.(INDIR)) GO TO 32610 00448 0535 CALL PARSE(2,COMMND,J,COMLEN,FILE,FILEN,CMD,DOT) 00449 0536 OPEN(UNIT=1,NAME=FILE,TYPE='OLD',READONLY) 00450 0537 READ(1,50)K,(COMMND(L),L=J,J+K-1) 00451 0538 50 FORMAT(Q,80A1) 00452 0539 WRITE(5,51)(COMMND(L),L=J,J+K-1) 00453 0540 51 FORMAT(1H ,80A1) 00454 0541 FILEN=0 00455 0542 DOT=0 00456 0543 COMLEN=J+K-1 00457 0544 LUN=1 00458 0545 CONTU=.TRUE. 00459 0546 GO TO 32608 00460 0547 32609 IF(.NOT.CONTU) GO TO 32607 00460 0549 32608 ASSIGN 32606 TO I32753 00460 0550 GO TO 32753 00460 0551 32606 GO TO 32609 00460 0552 32607 CLOSE(UNIT=1) 00461 0553 32610 CONTINUE 00463 0554 32614 GO TO I32748 00464 0555 32753 CONTINUE 00467 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 010 FLEFOR,FLEFOR=FLEFOR 0556 CONTU=.FALSE. 00468 0557 IF(.NOT.(COMMND(COMLEN).EQ.'-')) GO TO 32605 00469 0559 IF(.NOT.(LUN.EQ.5)) GO TO 32604 00470 0561 WRITE(LUN,60) 00471 0562 60 FORMAT('$>') 00472 0563 32604 J=COMLEN 00474 0564 READ(LUN,50)K,(COMMND(L),L=J,J+K-1) 00475 0565 IF (LUN.EQ.1)WRITE(5,51)(COMMND(L),L=J,J+K-1) 00476 0567 COMLEN=J+K-1 00477 0568 CONTU=.TRUE. 00478 0569 32605 GO TO I32753 00480 0570 32758 CONTINUE 00483 0571 LIFLAG=.FALSE. 00484 0572 FTFLAG=.TRUE. 00485 0573 OBFLAG=.TRUE. 00486 0574 SWFLAG=.FALSE. 00487 0575 KEFLAG=.TRUE. 00488 0576 LNFLAG=.TRUE. 00489 0577 RUFLAG=.TRUE. 00490 0578 ISTAT=SUCC 00491 0579 GO TO I32758 00492 0580 32708 CONTINUE 00495 0581 IF(.NOT.(.NOT.FTFLAG.AND..NOT.LIFLAG)) GO TO 32603 00496 0583 WRITE(5,91)(COMMND(J),J=1,COMLEN) 00497 0584 91 FORMAT(1H ,A1,' -- Conflicting qualifiers') 00498 ***** I ***** I 0585 CALL QEXIT 00499 0586 32603 DO 32602 J=1,120 00501 0587 FLECOM(J)=0 00501 0588 32602 CONTINUE 00501 0589 DO 32601 J=1,3 00502 0590 FLECOM(J)=FLE(J) 00502 0591 32601 CONTINUE 00502 0592 FLECOM(4)=' ' 00503 0593 FLELEN=5 00504 0594 IF(.NOT.(FTFLAG)) GO TO 32600 00505 0596 IF(.NOT.(FTLEN.LE.0)) GO TO 32599 00506 0598 ASSIGN 32598 TO I32673 00506 0599 GO TO 32673 00506 0600 32598 CONTINUE 00506 0601 32599 DO 32597 J=FLELEN,FLELEN+FTLEN-1 00507 0602 FLECOM(J)=FFILE(J-FLELEN+1) 00507 0603 32597 CONTINUE 00507 0604 FLELEN=FLELEN+FTLEN 00508 0605 32600 IF(.NOT.(LIFLAG)) GO TO 32596 00510 0607 FLECOM(FLELEN)=',' 00511 0608 FLELEN=FLELEN+1 00512 0609 IF(.NOT.(LILEN.LE.0)) GO TO 32595 00513 0611 ASSIGN 32594 TO I32685 00513 0612 GO TO 32685 00513 0613 32594 CONTINUE 00513 0614 32595 DO 32593 J=FLELEN,FLELEN+LILEN-1 00514 0615 FLECOM(J)=LFILE(J-FLELEN+1) 00514 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 011 FLEFOR,FLEFOR=FLEFOR 0616 32593 CONTINUE 00514 0617 FLELEN=FLELEN+LILEN 00515 0618 32596 FLECOM(FLELEN)='=' 00517 0619 FLELEN=FLELEN+1 00518 0620 DO 32592 J=FLELEN,FLELEN+FILEN-1 00519 0621 FLECOM(J)=FILE(J-FLELEN+1) 00519 0622 32592 CONTINUE 00519 0623 FLELEN=FLELEN+FILEN-1 00520 0624 GO TO I32708 00521 0625 32706 CONTINUE 00524 0626 IF(.NOT.(FTFLAG)) GO TO 32591 00525 0628 DO 32590 J=1,120 00526 0629 FORCOM(J)=0 00526 0630 32590 CONTINUE 00526 0631 DO 32589 J=1,3 00527 0632 FORCOM(J)=FOR(J) 00527 0633 32589 CONTINUE 00527 0634 FORCOM(4)=' ' 00528 0635 FORLEN=5 00529 0636 IF(.NOT.(OBFLAG)) GO TO 32588 00530 0638 IF(.NOT.(OBLEN.LE.0)) GO TO 32587 00531 0640 ASSIGN 32586 TO I32655 00531 0641 GO TO 32655 00531 0642 32586 CONTINUE 00531 0643 32587 DO 32585 J=FORLEN,FORLEN+OBLEN-1 00532 0644 FORCOM(J)=OFILE(J-FORLEN+1) 00532 0645 32585 CONTINUE 00532 0646 FORLEN=FORLEN+OBLEN 00533 0647 32588 IF(.NOT.(LIFLAG)) GO TO 32584 00535 0649 FORCOM(FORLEN)=',' 00536 0650 FORLEN=FORLEN+1 00537 0651 DO 32583 J=DOTL+1,DOTL+3 00538 0652 LFILE(J)=LST(J-DOTL) 00538 0653 32583 CONTINUE 00538 0654 DO 32582 J=FORLEN,FORLEN+LILEN-1 00539 0655 FORCOM(J)=LFILE(J-FORLEN+1) 00539 0656 32582 CONTINUE 00539 0657 FORLEN=FORLEN+LILEN 00540 0658 DO 32581 J=FORLEN,FORLEN+3 00541 0659 FORCOM(J)=SPL(J-FORLEN+1) 00541 0660 32581 CONTINUE 00541 0661 FORLEN=FORLEN+4 00542 0662 32584 FORCOM(FORLEN)='=' 00544 0663 FORLEN=FORLEN+1 00545 0664 DO 32580 J=FORLEN,FORLEN+FTLEN-1 00546 0665 FORCOM(J)=FFILE(J-FORLEN+1) 00546 0666 32580 CONTINUE 00546 0667 FORLEN=FORLEN+FTLEN 00547 0668 IF(.NOT.(SWFLAG)) GO TO 32579 00548 0670 DO 32578 J=FORLEN,FORLEN+SWLEN-1 00549 0671 FORCOM(J)=SWITCH(J-FORLEN+1) 00549 0672 32578 CONTINUE 00549 0673 FORLEN=FORLEN+SWLEN 00550 0674 32579 FORLEN=FORLEN-1 00552 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:04 PAGE 012 FLEFOR,FLEFOR=FLEFOR 0675 32591 GO TO I32706 00554 0676 32704 CONTINUE 00557 0677 DO 32577 J=1,120 00558 0678 TKBCOM(J)=0 00558 0679 32577 CONTINUE 00558 0680 TKBLEN=1 00559 0681 IF(.NOT.(TALEN.LE.0)) GO TO 32576 00560 0683 ASSIGN 32575 TO I32664 00560 0684 GO TO 32664 00560 0685 32575 CONTINUE 00560 0686 32576 DO 32574 J=TKBLEN,TKBLEN+TALEN-1 00561 0687 TKBCOM(J)=TFILE(J-TKBLEN+1) 00561 0688 32574 CONTINUE 00561 0689 TKBLEN=TKBLEN+TALEN 00562 0690 TKBCOM(TKBLEN)='=' 00563 0691 TKBLEN=TKBLEN+1 00564 0692 DO 32573 J=TKBLEN,TKBLEN+OBLEN-1 00565 0693 TKBCOM(J)=OFILE(J-TKBLEN+1) 00565 0694 32573 CONTINUE 00565 0695 TKBLEN=TKBLEN+OBLEN 00566 0696 OPEN(UNIT=1,NAME='FLE.TMP',TYPE='NEW') 00567 0697 WRITE(1,30)(TKBCOM(J),J=1,TKBLEN-1) 00568 0698 30 FORMAT(A1) 00569 ***** I ***** I 0699 WRITE(1,31) 00570 0700 31 FORMAT('/') 00571 0701 WRITE(1,32) 00572 0702 32 FORMAT('LIBR=SYSRES:RO') 00573 0703 WRITE(1,33) 00574 0704 33 FORMAT('//') 00575 0705 CLOSE(UNIT=1) 00576 0706 IF(.NOT.((TKBLEN-1).GT.80)) GO TO 32572 00577 0708 WRITE(5,35) 00578 0709 35 FORMAT(' Command too long') 00579 0710 CALL QEXIT 00580 0711 32572 GO TO I32704 00582 0712 END 00585 FORTRAN IV DIAGNOSTICS FOR PROGRAM UNIT FLECS IN LINE 0073, ERROR: SYNTAX ERROR IN LINE 0098, ERROR: SYNTAX ERROR IN LINE 0171, ERROR: SYNTAX ERROR IN LINE 0259, ERROR: SYNTAX ERROR IN LINE 0305, ERROR: SYNTAX ERROR IN LINE 0338, ERROR: SYNTAX ERROR IN LINE 0371, ERROR: SYNTAX ERROR IN LINE 0416, ERROR: SYNTAX ERROR IN LINE 0584, ERROR: SYNTAX ERROR IN LINE 0698, ERROR: SYNTAX ERROR FORTRAN IV STORAGE MAP FOR PROGRAM UNIT FLECS LOCAL VARIABLES, .PSECT $DATA, SIZE = 002140 ( 560. WORDS) NAME TYPE OFFSET NAME TYPE OFFSET NAME TYPE OFFSET ATS L*1 001454 COLON I*2 002014 COMLEN I*2 001700 CONTU I*2 001704 DOT I*2 001460 DOTF I*2 002024 DOTL I*2 002020 DOTO I*2 002036 DOTT I*2 002032 EROR I*2 001500 FILEN I*2 001456 FLELEN I*2 002046 FORLEN I*2 002052 FTFLAG I*2 001740 FTLEN I*2 001464 FTNQ I*2 001422 IERR I*2 001766 INDEX I*2 001716 INDIR I*2 001710 ISTAT I*2 002010 I32634 I*2 002050 I32655 I*2 002040 I32664 I*2 002034 I32673 I*2 002026 I32685 I*2 002022 I32690 I*2 002012 I32693 I*2 002006 I32696 I*2 002004 I32699 I*2 002002 I32702 I*2 002000 I32704 I*2 001776 I32706 I*2 001774 I32708 I*2 001772 I32710 I*2 001770 I32716 I*2 001762 I32720 I*2 001756 I32726 I*2 001750 I32730 I*2 001736 I32734 I*2 001732 I32738 I*2 001726 I32748 I*2 001712 I32753 I*2 001706 I32758 I*2 001676 J I*2 001714 K I*2 002060 KEEQ I*2 001432 KEFALG I*2 001754 KEFLAG I*2 001752 L I*2 002062 LIFLAG I*2 001734 LILEN I*2 001462 LISQ I*2 001416 LNFLAG I*2 001744 LNKQ I*2 001442 LPAR L*1 001452 LUN I*2 001702 NEXT I*2 002054 NLNQ I*2 001444 NOBQ I*2 001430 NOFQ I*2 001424 NOKQ I*2 001434 NOLQ I*2 001420 NORQ I*2 001450 NOSQ I*2 001440 OBFLAG I*2 001742 OBJQ I*2 001426 OBLEN I*2 001470 QUALIF I*2 001730 RPAR L*1 001453 RUFLAG I*2 001746 RUNQ I*2 001446 SEVR I*2 001502 SPOOL I*2 002016 START I*2 001720 STOP I*2 001722 SUCC I*2 001476 SWFLAG I*2 001760 SWIQ I*2 001436 SWLEN I*2 001472 TABLEN I*2 001466 TALEN I*2 002030 TKBLEN I*2 002064 WARN I*2 001474 X I*2 002042 XLEN I*2 001724 XRAY I*2 002056 Y I*2 002044 Z I*2 001764 LOCAL AND COMMON ARRAYS: NAME TYPE SECTION OFFSET ------SIZE----- DIMENSIONS CMD L*1 $DATA 001357 000003 ( 2.) (3) COMMND L*1 $DATA 000000 000240 ( 80.) (160) FFILE L*1 $DATA 000302 000042 ( 17.) (34) FILE L*1 $DATA 000240 000042 ( 17.) (34) FLE L*1 $DATA 001335 000003 ( 2.) (3) FLECOM L*1 $DATA 000512 000170 ( 60.) (120) FLL L*1 $DATA 001340 000003 ( 2.) (3) FOR L*1 $DATA 001351 000003 ( 2.) (3) FORCOM L*1 $DATA 000702 000170 ( 60.) (120) FTN L*1 $DATA 001332 000003 ( 2.) (3) IEXIT I*2 $DATA 001402 000014 ( 6.) (6) LFILE L*1 $DATA 000344 000042 ( 17.) (34) LST L*1 $DATA 001343 000003 ( 2.) (3) OBJ L*1 $DATA 001346 000003 ( 2.) (3) OFILE L*1 $DATA 000406 000042 ( 17.) (34) FORTRAN IV STORAGE MAP FOR PROGRAM UNIT FLECS SPL L*1 $DATA 001376 000004 ( 2.) (4) SWITCH L*1 $DATA 001262 000050 ( 20.) (40) TAS L*1 $DATA 001354 000003 ( 2.) (3) TFILE L*1 $DATA 000450 000042 ( 17.) (34) TKB L*1 $DATA 001362 000014 ( 6.) (12) TKBCOM L*1 $DATA 001072 000170 ( 60.) (120) SUBROUTINES, FUNCTIONS, STATEMENT AND PROCESSOR-DEFINED FUNCTIONS: NAME TYPE NAME TYPE NAME TYPE NAME TYPE NAME TYPE CHAIN I*2 CHKEVW I*2 DECTDB I*2 EXIT I*2 GETLIN I*2 PARSE I*2 QEXIT I*2 RDEVTS I*2 RUNTS I*2 SLASH I*2 SPACE I*2 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:48 PAGE 001 FLEFOR,FLEFOR=FLEFOR 0001 SUBROUTINE PARSE(ITYPE,COMMND,START,LEN,DEFAU,DEFLEN,TYPE,DOTP) 00586 0002 IMPLICIT INTEGER (A-Z) 00587 0003 BYTE TYPE(1) 00588 0004 BYTE COMMND(1),DEFAU(1) 00589 0005 RED=.FALSE. 00590 0006 IF(.NOT.(LEN.NE.0)) GO TO 32758 00591 0008 IF(.NOT.(ITYPE.EQ.1)) GO TO 32757 00592 0010 FOUND=.FALSE. 00594 0011 GO TO 32755 00595 0012 32756 IF(FOUND) GO TO 32754 00595 0014 32755 IF (COMMND(LEN).NE.' '.AND.COMMND(LEN).NE.0)FOUND=.TRUE. 00596 0016 IF (.NOT.FOUND)LEN=LEN-1 00597 0018 GO TO 32756 00598 0019 32754 J=LEN 00599 0020 ISPACE=0 00600 0021 GO TO 32752 00601 0022 32753 IF(J.EQ.0.OR.ISPACE.NE.0) GO TO 32751 00601 0024 32752 IF (COMMND(J).EQ.' ')ISPACE=J 00602 0026 J=J-1 00603 0027 IF (ISPACE.NE.0.AND.COMMND(ISPACE+1).EQ.'/')ISPACE=0 00604 0029 GO TO 32753 00605 0030 32751 IF(.NOT.(ISPACE.EQ.0)) GO TO 32750 00606 0032 WRITE(5,10) 00607 0033 10 FORMAT('$FILE?') 00608 0034 READ(5,11,END=12)DEFLEN,(DEFAU(J),J=1,DEFLEN) 00609 0035 11 FORMAT(Q,A1) 00610 ***** I ***** I 0036 IF(.NOT.(.TRUE.)) GO TO 32748 00611 0038 RED=.TRUE. 00612 0039 GO TO 32749 00613 0040 32748 CONTINUE 00615 0041 12 WRITE(5,13) 00615 0042 13 FORMAT(' Required parameter not specified',/, 00616 1' Command terminated') 00617 0043 CALL QEXIT 00618 0044 32749 CONTINUE 00620 0045 32750 CONTINUE 00621 0046 32757 IF (ITYPE.NE.1) ISPACE=START 00622 0048 IF(.NOT.(.NOT.RED)) GO TO 32747 00623 0050 DEFLEN=0 00624 0051 IF (ITYPE.EQ.1)COMMND(ISPACE)=0 00625 0053 ZEBRA=1 00626 0054 DO 32746 J=ISPACE+1,LEN 00627 0055 DEFLEN=DEFLEN+1 00628 0056 DEFAU(DEFLEN)=COMMND(J) 00629 0057 IF (ITYPE.EQ.1)COMMND(J)=0 00630 0059 ZEBRA=ZEBRA+1 00631 0060 32746 CONTINUE 00632 0061 IF (ITYPE.EQ.1)LEN=LEN-ZEBRA 00633 0063 32747 ASSIGN 32744 TO I32745 00635 0064 GO TO 32745 00635 0065 32744 IF(.NOT.(DOTP.EQ.0)) GO TO 32743 00636 0067 DOTP=DEFLEN+1 00637 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:48 PAGE 002 FLEFOR,FLEFOR=FLEFOR 0068 DEFAU(DEFLEN+1)='.' 00638 0069 DO 32742 J=1,3 00639 0070 DEFAU(J+DEFLEN+1)=TYPE(J) 00639 0071 32742 CONTINUE 00639 0072 DEFLEN=DEFLEN+4 00640 0073 32743 CONTINUE 00642 0074 32758 RETURN 00643 0075 32745 CONTINUE 00646 0076 DOTP=0 00647 0077 J=0 00648 0078 GO TO 32740 00649 0079 32741 IF(J.EQ.DEFLEN.OR.DOTP.NE.0) GO TO 32739 00649 0081 32740 J=J+1 00650 0082 IF (DEFAU(J).EQ.'.')DOTP=J 00651 0084 GO TO 32741 00652 0085 32739 GO TO I32745 00653 0086 END 00654 FORTRAN IV DIAGNOSTICS FOR PROGRAM UNIT PARSE IN LINE 0035, ERROR: SYNTAX ERROR FORTRAN IV STORAGE MAP FOR PROGRAM UNIT PARSE LOCAL VARIABLES, .PSECT $DATA, SIZE = 000043 ( 18. WORDS) NAME TYPE OFFSET NAME TYPE OFFSET NAME TYPE OFFSET DEFLEN I*2 @ 000012 DOTP I*2 @ 000016 FOUND I*2 000030 ISPACE I*2 000034 ITYPE I*2 @ 000000 I32745 I*2 000040 J I*2 000032 LEN I*2 @ 000006 RED I*2 000026 START I*2 @ 000004 ZEBRA I*2 000036 LOCAL AND COMMON ARRAYS: NAME TYPE SECTION OFFSET ------SIZE----- DIMENSIONS COMMND L*1 @ $DATA 000002 000001 ( 1.) (1) DEFAU L*1 @ $DATA 000010 000001 ( 1.) (1) TYPE L*1 @ $DATA 000014 000001 ( 1.) (1) SUBROUTINES, FUNCTIONS, STATEMENT AND PROCESSOR-DEFINED FUNCTIONS: NAME TYPE NAME TYPE NAME TYPE NAME TYPE NAME TYPE QEXIT I*2 FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:53 PAGE 001 FLEFOR,FLEFOR=FLEFOR 0001 SUBROUTINE SLASH(BUFFER,LEN,INDEX) 00655 0002 IMPLICIT INTEGER (A-Z) 00656 0003 BYTE BUFFER(1),LPAR,RPAR 00657 0004 DATA LPAR/1H(/ 00658 0005 DATA RPAR/1H)/ 00659 0006 IF(LEN.LE.0) GO TO 32758 00660 0008 J=INDEX 00661 0009 INDEX=0 00662 0010 GO TO 32756 00663 0011 32757 IF(INDEX.NE.0) GO TO 32755 00663 0013 32756 J=J+1 00664 0014 IF(.NOT.(BUFFER(J).EQ.LPAR)) GO TO 32754 00665 0016 FOUND=.FALSE. 00666 0017 GO TO 32752 00667 0018 32753 IF(J.GE.LEN.OR.FOUND) GO TO 32751 00667 0020 32752 J=J+1 00668 0021 IF (BUFFER(J).EQ.RPAR)FOUND=.TRUE. 00669 0023 GO TO 32753 00670 0024 32751 CONTINUE 00671 0025 32754 IF (BUFFER(J).EQ.'/'.OR.J.GE.LEN)INDEX=J 00672 0027 GO TO 32757 00673 0028 32755 CONTINUE 00674 0029 32758 RETURN 00675 0030 END 00676 FORTRAN IV STORAGE MAP FOR PROGRAM UNIT SLASH LOCAL VARIABLES, .PSECT $DATA, SIZE = 000014 ( 6. WORDS) NAME TYPE OFFSET NAME TYPE OFFSET NAME TYPE OFFSET FOUND I*2 000012 INDEX I*2 @ 000004 J I*2 000010 LEN I*2 @ 000002 LPAR L*1 000006 RPAR L*1 000007 LOCAL AND COMMON ARRAYS: NAME TYPE SECTION OFFSET ------SIZE----- DIMENSIONS BUFFER L*1 @ $DATA 000000 000001 ( 1.) (1) FORTRAN IV V02.2-5 MON 08-DEC-80 16:09:55 PAGE 001 FLEFOR,FLEFOR=FLEFOR 0001 SUBROUTINE SPACE(COMMND,COMLEN) 00677 0002 BYTE COMMND(1) 00678 0003 IF(COMLEN.LT.1) GO TO 32758 00679 0005 ZEBRA=0 00680 0006 DO 32757 J=2,COMLEN+1 00681 0007 IF(.NOT.(COMMND(J-1).EQ.' ')) GO TO 32756 00682 0009 DO 32755 K=J,COMLEN 00683 0010 COMMND(J-1)=COMMND(J) 00683 0011 32755 CONTINUE 00683 0012 ZEBRA=ZEBRA+1 00684 0013 32756 CONTINUE 00686 0014 32757 CONTINUE 00686 0015 COMLEN=COMLEN-ZEBRA 00687 0016 COMMND(COMLEN+1)=0 00688 0017 32758 RETURN 00690 0018 END 00691 FORTRAN IV DIAGNOSTICS FOR PROGRAM UNIT SPACE IN LINE 0006, ERROR: MODE OF EXPRESSION MUST BE INTEGER IN LINE 0009, ERROR: MODE OF EXPRESSION MUST BE INTEGER IN LINE 0011, ERROR: ILLEGAL DO TERMINATOR ORDERING AT LABEL "32755" IN LINE 0014, ERROR: ILLEGAL DO TERMINATOR ORDERING AT LABEL "32757" FORTRAN IV STORAGE MAP FOR PROGRAM UNIT SPACE LOCAL VARIABLES, .PSECT $DATA, SIZE = 000016 ( 7. WORDS) NAME TYPE OFFSET NAME TYPE OFFSET NAME TYPE OFFSET COMLEN R*4 @ 000002 J I*2 000010 K I*2 000012 ZEBRA R*4 000004 LOCAL AND COMMON ARRAYS: NAME TYPE SECTION OFFSET ------SIZE----- DIMENSIONS COMMND L*1 @ $DATA 000000 000001 ( 1.) (1)