![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM828.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM828.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: C***********************************************************************00010828
2: C DATE***82/08/02*18.33.46
3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
4: C AUDIT FCVS78 V2.0
5: C***** FORTRAN 77 00020828
6: C***** FM828 00030828
7: C***** YCFOR - (203) 00040828
8: C***** 00050828
9: C***********************************************************************00060828
10: C***** GENERAL PURPOSE ANS REF 00070828
11: C***** TEST COMPLEX TRIGONOMETRIC FORMULAE 15.3 00080828
12: C***** TABLE 5 00090828
13: CBB** ********************** BBCCOMNT **********************************00100828
14: C**** 00110828
15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120828
16: C**** VERSION 2.0 00130828
17: C**** 00140828
18: C**** 00150828
19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160828
20: C**** GENERAL SERVICES ADMINISTRATION 00170828
21: C**** FEDERAL SOFTWARE TESTING CENTER 00180828
22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190828
23: C**** FALLS CHURCH, VA. 22041 00200828
24: C**** 00210828
25: C**** (703) 756-6153 00220828
26: C**** 00230828
27: CBE** ********************** BBCCOMNT **********************************00240828
28: C***** 00250828
29: C***** S P E C I F I C A T I O N S SEGMENT 203 00260828
30: COMPLEX AVC, BVC, CVC, DVC, ZVCORR 00270828
31: REAL R2E(2) 00280828
32: EQUIVALENCE (AVC, R2E) 00290828
33: C***** 00300828
34: CBB** ********************** BBCINITA **********************************00310828
35: C**** SPECIFICATION STATEMENTS 00320828
36: C**** 00330828
37: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00340828
38: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00350828
39: CBE** ********************** BBCINITA **********************************00360828
40: CBB** ********************** BBCINITB **********************************00370828
41: C**** INITIALIZE SECTION 00380828
42: DATA ZVERS, ZVERSD, ZDATE 00390828
43: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00400828
44: DATA ZCOMPL, ZNAME, ZTAPE 00410828
45: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00420828
46: DATA ZPROJ, ZTAPED, ZPROG 00430828
47: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00440828
48: DATA REMRKS /' '/ 00450828
49: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460828
50: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00470828
51: C**** 00480828
52: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490828
53: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500828
54: CZ03 ZPROG = 'PROGRAM NAME' 00510828
55: ZDATE = '07-Nov-85 ' *RP
56: ZCOMPL = 'CCI 5.2 ' *RP
57: ZPROJ = 'TC-85- -410' *RP
58: ZNAME = ' ' *RP
59: ZTAPE = ' ' *RP
60: ZTAPED = '850703 ' *RP
61: C 00580828
62: IVPASS = 0 00590828
63: IVFAIL = 0 00600828
64: IVDELE = 0 00610828
65: IVINSP = 0 00620828
66: IVTOTL = 0 00630828
67: IVTOTN = 0 00640828
68: ICZERO = 0 00650828
69: C 00660828
70: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00670828
71: I01 = 05 00680828
72: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00690828
73: I02 = 06 00700828
74: C 00710828
75: I01 = 5 00720828
76: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00730828
77: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00740828
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00750828
79: C 00760828
80: I02 = 6 00770828
81: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00780828
82: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00790828
83: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00800828
84: C 00810828
85: CBE** ********************** BBCINITB **********************************00820828
86: NUVI = I02 00830828
87: IVTOTL = 9 00840828
88: ZPROG = 'FM828' 00850828
89: CBB** ********************** BBCHED0A **********************************00860828
90: C**** 00870828
91: C**** WRITE REPORT TITLE 00880828
92: C**** 00890828
93: WRITE (I02, 90002) 00900828
94: WRITE (I02, 90006) 00910828
95: WRITE (I02, 90007) 00920828
96: WRITE (I02, 90008) ZVERS, ZVERSD 00930828
97: WRITE (I02, 90009) ZPROG, ZPROG 00940828
98: WRITE (I02, 90010) ZDATE, ZCOMPL 00950828
99: CBE** ********************** BBCHED0A **********************************00960828
100: C***** 00970828
101: C***** HEADER FOR SEGMENT 203 00980828
102: WRITE(NUVI,20300) 00990828
103: 20300 FORMAT(1H , / 35H YCFOR - (203) INTRINSIC FUNCTIONS// 01000828
104: 1 32H COMPLEX TRIGONOMETRIC FORMULAE// 01010828
105: 2 17H ANS REF. - 15.3) 01020828
106: CBB** ********************** BBCHED0B **********************************01030828
107: C**** WRITE DETAIL REPORT HEADERS 01040828
108: C**** 01050828
109: WRITE (I02,90004) 01060828
110: WRITE (I02,90004) 01070828
111: WRITE (I02,90013) 01080828
112: WRITE (I02,90014) 01090828
113: WRITE (I02,90015) IVTOTL 01100828
114: CBE** ********************** BBCHED0B **********************************01110828
115: C***** 01120828
116: PIVS = 3.1415926535897932384626434 01130828
117: C***** 01140828
118: CT001* TEST 1 SQRT(Z)**2 = Z 01150828
119: IVTNUM = 1 01160828
120: BVC = (1.0, 0.0) + (0.0, -2.5) 01170828
121: AVC = CSQRT((1.0, -2.5)) ** 2 - BVC 01180828
122: IF (R2E(1) + 0.50000E-04) 20010, 40012, 40011 01190828
123: 40011 IF (R2E(1) - 0.50000E-04) 40012, 40012, 20010 01200828
124: 40012 IF (R2E(2) + 0.50000E-04) 20010, 10010, 40010 01210828
125: 40010 IF (R2E(2) - 0.50000E-04) 10010, 10010, 20010 01220828
126: 10010 IVPASS = IVPASS + 1 01230828
127: WRITE (NUVI, 80002) IVTNUM 01240828
128: GO TO 0011 01250828
129: 20010 IVFAIL = IVFAIL + 1 01260828
130: ZVCORR = (0.0000, 0.0000) 01270828
131: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01280828
132: 0011 CONTINUE 01290828
133: CT002* TEST 2 ANGLE SUBTENDED BY SQRT(Z) IS 1/2 ANGLE SUBTENDED BY Z 01300828
134: IVTNUM = 2 01310828
135: BVC = CSQRT((2.0, 3.25)) 01320828
136: CVS = AIMAG(BVC) 01330828
137: DVS = CABS((BVC + CONJG(BVC)) / (2.0, 0.0)) 01340828
138: AVS = ATAN2(3.0 + 0.25, 1.0 * 2.0) - 2.0 * ATAN2(CVS, DVS) 01350828
139: IF (AVS + 0.50000E-04) 20020, 10020, 40020 01360828
140: 40020 IF (AVS - 0.50000E-04) 10020, 10020, 20020 01370828
141: 10020 IVPASS = IVPASS + 1 01380828
142: WRITE (NUVI, 80002) IVTNUM 01390828
143: GO TO 0021 01400828
144: 20020 IVFAIL = IVFAIL + 1 01410828
145: RVCORR = 0.0000 01420828
146: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01430828
147: 0021 CONTINUE 01440828
148: CT003* TEST 3 EXP(LOG(Z)) = Z 01450828
149: IVTNUM = 3 01460828
150: BVC = (0.0, 0.0) - (1.5, 0.75) 01470828
151: AVC = CEXP(CLOG(BVC)) + (1.5, 0.75) 01480828
152: IF (R2E(1) + 0.50000E-04) 20030, 40032, 40031 01490828
153: 40031 IF (R2E(1) - 0.50000E-04) 40032, 40032, 20030 01500828
154: 40032 IF (R2E(2) + 0.50000E-04) 20030, 10030, 40030 01510828
155: 40030 IF (R2E(2) - 0.50000E-04) 10030, 10030, 20030 01520828
156: 10030 IVPASS = IVPASS + 1 01530828
157: WRITE (NUVI, 80002) IVTNUM 01540828
158: GO TO 0031 01550828
159: 20030 IVFAIL = IVFAIL + 1 01560828
160: ZVCORR = (0.0000, 0.0000) 01570828
161: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01580828
162: 0031 CONTINUE 01590828
163: CT004* TEST 4 ABS(EXP(Z)) = EXP(REAL(Z)) 01600828
164: IVTNUM = 4 01610828
165: AVS = CABS(CEXP((-2.5, 1.375))) - EXP(5.0 / (-2.0)) 01620828
166: IF (AVS + 0.50000E-04) 20040, 10040, 40040 01630828
167: 40040 IF (AVS - 0.50000E-04) 10040, 10040, 20040 01640828
168: 10040 IVPASS = IVPASS + 1 01650828
169: WRITE (NUVI, 80002) IVTNUM 01660828
170: GO TO 0041 01670828
171: 20040 IVFAIL = IVFAIL + 1 01680828
172: RVCORR = 0.0000 01690828
173: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01700828
174: 0041 CONTINUE 01710828
175: CT005* TEST 5 ANGLE SUBTENDED BY EXP(Z) IS IMAG(Z) MOD 2 PI 01720828
176: IVTNUM = 5 01730828
177: BVC = (0.0625, 0.0) 01740828
178: CVC = CEXP(BVC + (0.0, 1.125)) 01750828
179: DVS = ATAN2(AIMAG(CVC), CABS((CVC + CONJG(CVC)) / (2.0, 0.0))) 01760828
180: AVS = DVS - AMOD(AIMAG((0.0625, 1.125)), 2.0 * PIVS) 01770828
181: IF (AVS + 0.50000E-04) 20050, 10050, 40050 01780828
182: 40050 IF (AVS - 0.50000E-04) 10050, 10050, 20050 01790828
183: 10050 IVPASS = IVPASS + 1 01800828
184: WRITE (NUVI, 80002) IVTNUM 01810828
185: GO TO 0051 01820828
186: 20050 IVFAIL = IVFAIL + 1 01830828
187: RVCORR = 0.0000 01840828
188: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01850828
189: 0051 CONTINUE 01860828
190: CT006* TEST 6 EXP(IY) = COS(Y) + I SIN(Y) 01870828
191: IVTNUM = 6 01880828
192: AVC = CEXP(CMPLX(0.0, 37.5 / 10.0)) 01890828
193: 1 - CMPLX(COS(3.75), SIN(2.75 + 1.0)) 01900828
194: IF (R2E(1) + 0.50000E-04) 20060, 40062, 40061 01910828
195: 40061 IF (R2E(1) - 0.50000E-04) 40062, 40062, 20060 01920828
196: 40062 IF (R2E(2) + 0.50000E-04) 20060, 10060, 40060 01930828
197: 40060 IF (R2E(2) - 0.50000E-04) 10060, 10060, 20060 01940828
198: 10060 IVPASS = IVPASS + 1 01950828
199: WRITE (NUVI, 80002) IVTNUM 01960828
200: GO TO 0061 01970828
201: 20060 IVFAIL = IVFAIL + 1 01980828
202: ZVCORR = (0.0000, 0.0000) 01990828
203: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02000828
204: 0061 CONTINUE 02010828
205: CT007* TEST 7 COS(Z) = 0.5 * (EXP(I*Z) + EXP(-I*Z)) 02020828
206: IVTNUM = 7 02030828
207: BVC = CEXP((-1.5, -2.75)) 02040828
208: CVC = (BVC + 1 / BVC) / (2.0, 0.0) 02050828
209: DVC = (2.75, -1.5) 02060828
210: AVC = CVC - CCOS(DVC * (-1.0, 0.0)) 02070828
211: IF (R2E(1) + 0.50000E-04) 20070, 40072, 40071 02080828
212: 40071 IF (R2E(1) - 0.50000E-04) 40072, 40072, 20070 02090828
213: 40072 IF (R2E(2) + 0.50000E-04) 20070, 10070, 40070 02100828
214: 40070 IF (R2E(2) - 0.50000E-04) 10070, 10070, 20070 02110828
215: 10070 IVPASS = IVPASS + 1 02120828
216: WRITE (NUVI, 80002) IVTNUM 02130828
217: GO TO 0071 02140828
218: 20070 IVFAIL = IVFAIL + 1 02150828
219: ZVCORR = (0.0000, 0.0000) 02160828
220: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02170828
221: 0071 CONTINUE 02180828
222: CT008* TEST 8 ABS(EXP(IY)) = 1.0 02190828
223: IVTNUM = 8 02200828
224: BVC = (3.25, 3.25) 02210828
225: CVC = (3.25, 0.0) 02220828
226: AVC = CABS(CEXP(BVC - CVC)) - COS(0.0) 02230828
227: IF (R2E(1) + 0.50000E-04) 20080, 40082, 40081 02240828
228: 40081 IF (R2E(1) - 0.50000E-04) 40082, 40082, 20080 02250828
229: 40082 IF (R2E(2) + 0.50000E-04) 20080, 10080, 40080 02260828
230: 40080 IF (R2E(2) - 0.50000E-04) 10080, 10080, 20080 02270828
231: 10080 IVPASS = IVPASS + 1 02280828
232: WRITE (NUVI, 80002) IVTNUM 02290828
233: GO TO 0081 02300828
234: 20080 IVFAIL = IVFAIL + 1 02310828
235: ZVCORR = (0.0000, 0.0000) 02320828
236: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02330828
237: 0081 CONTINUE 02340828
238: CT009* TEST 9 DEMOIVRE THEOREM FOR N = 3 02350828
239: IVTNUM = 9 02360828
240: BVS = 3.0/2.0 02370828
241: BVC = CMPLX(COS(1.5), SIN(BVS)) ** 3 02380828
242: AVC = BVC - CMPLX(COS(4.5), -SIN(4.5 + PIVS)) 02390828
243: IF (R2E(1) + 0.50000E-04) 20090, 40092, 40091 02400828
244: 40091 IF (R2E(1) - 0.50000E-04) 40092, 40092, 20090 02410828
245: 40092 IF (R2E(2) + 0.50000E-04) 20090, 10090, 40090 02420828
246: 40090 IF (R2E(2) - 0.50000E-04) 10090, 10090, 20090 02430828
247: 10090 IVPASS = IVPASS + 1 02440828
248: WRITE (NUVI, 80002) IVTNUM 02450828
249: GO TO 0091 02460828
250: 20090 IVFAIL = IVFAIL + 1 02470828
251: ZVCORR = (0.0000, 0.0000) 02480828
252: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02490828
253: 0091 CONTINUE 02500828
254: C***** 02510828
255: CBB** ********************** BBCSUM0 **********************************02520828
256: C**** WRITE OUT TEST SUMMARY 02530828
257: C**** 02540828
258: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02550828
259: WRITE (I02, 90004) 02560828
260: WRITE (I02, 90014) 02570828
261: WRITE (I02, 90004) 02580828
262: WRITE (I02, 90020) IVPASS 02590828
263: WRITE (I02, 90022) IVFAIL 02600828
264: WRITE (I02, 90024) IVDELE 02610828
265: WRITE (I02, 90026) IVINSP 02620828
266: WRITE (I02, 90028) IVTOTN, IVTOTL 02630828
267: CBE** ********************** BBCSUM0 **********************************02640828
268: CBB** ********************** BBCFOOT0 **********************************02650828
269: C**** WRITE OUT REPORT FOOTINGS 02660828
270: C**** 02670828
271: WRITE (I02,90016) ZPROG, ZPROG 02680828
272: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02690828
273: WRITE (I02,90019) 02700828
274: CBE** ********************** BBCFOOT0 **********************************02710828
275: CBB** ********************** BBCFMT0A **********************************02720828
276: C**** FORMATS FOR TEST DETAIL LINES 02730828
277: C**** 02740828
278: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02750828
279: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02760828
280: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02770828
281: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02780828
282: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02790828
283: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02800828
284: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02810828
285: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02820828
286: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02830828
287: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02840828
288: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02850828
289: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02860828
290: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02870828
291: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02880828
292: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02890828
293: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02900828
294: 80050 FORMAT (1H ,48X,A31) 02910828
295: CBE** ********************** BBCFMT0A **********************************02920828
296: CBB** ********************** BBCFMAT1 **********************************02930828
297: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02940828
298: C**** 02950828
299: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02960828
300: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02970828
301: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02980828
302: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02990828
303: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03000828
304: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03010828
305: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03020828
306: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03030828
307: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03040828
308: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03050828
309: 21H(,F12.5,2H, ,F12.5,1H)) 03060828
310: CBE** ********************** BBCFMAT1 **********************************03070828
311: CBB** ********************** BBCFMT0B **********************************03080828
312: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03090828
313: C**** 03100828
314: 90002 FORMAT (1H1) 03110828
315: 90004 FORMAT (1H ) 03120828
316: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03130828
317: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03140828
318: 90008 FORMAT (1H ,21X,A13,A17) 03150828
319: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03160828
320: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03170828
321: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03180828
322: 1 7X,7HREMARKS,24X) 03190828
323: 90014 FORMAT (1H ,46H----------------------------------------------, 03200828
324: 1 33H---------------------------------) 03210828
325: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03220828
326: C**** 03230828
327: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03240828
328: C**** 03250828
329: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03260828
330: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03270828
331: 1 A13) 03280828
332: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03290828
333: C**** 03300828
334: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03310828
335: C**** 03320828
336: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03330828
337: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03340828
338: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03350828
339: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03360828
340: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03370828
341: CBE** ********************** BBCFMT0B **********************************03380828
342: C***** 03390828
343: C***** END OF TEST SEGMENT 203 03400828
344: STOP 03410828
345: END 03420828
346: 03430828
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.