![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM361.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 FM361.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***********************************************************************00010361
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 00020361
6: C***** FM361 XMAX - (165) 00030361
7: C***** 00040361
8: C***********************************************************************00050361
9: C***** GENERAL PURPOSE SUBSET REF00060361
10: C***** TEST OF INTRINSIC FUNCTIONS AMAX0,AMAX1,MAX0,MAX1 15.3 00070361
11: C***** CHOOSING LARGEST VALUE (TABLE 5)00080361
12: C***** 00090361
13: CBB** ********************** BBCCOMNT **********************************00100361
14: C**** 00110361
15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120361
16: C**** VERSION 2.0 00130361
17: C**** 00140361
18: C**** 00150361
19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160361
20: C**** GENERAL SERVICES ADMINISTRATION 00170361
21: C**** FEDERAL SOFTWARE TESTING CENTER 00180361
22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190361
23: C**** FALLS CHURCH, VA. 22041 00200361
24: C**** 00210361
25: C**** (703) 756-6153 00220361
26: C**** 00230361
27: CBE** ********************** BBCCOMNT **********************************00240361
28: CBB** ********************** BBCINITA **********************************00250361
29: C**** SPECIFICATION STATEMENTS 00260361
30: C**** 00270361
31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280361
32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290361
33: CBE** ********************** BBCINITA **********************************00300361
34: CBB** ********************** BBCINITB **********************************00310361
35: C**** INITIALIZE SECTION 00320361
36: DATA ZVERS, ZVERSD, ZDATE 00330361
37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340361
38: DATA ZCOMPL, ZNAME, ZTAPE 00350361
39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360361
40: DATA ZPROJ, ZTAPED, ZPROG 00370361
41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380361
42: DATA REMRKS /' '/ 00390361
43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400361
44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410361
45: C**** 00420361
46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430361
47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440361
48: CZ03 ZPROG = 'PROGRAM NAME' 00450361
49: ZDATE = '07-Nov-85 ' *RP
50: ZCOMPL = 'CCI 5.2 ' *RP
51: ZPROJ = 'TC-85- -410' *RP
52: ZNAME = ' ' *RP
53: ZTAPE = ' ' *RP
54: ZTAPED = '850703 ' *RP
55: C 00520361
56: IVPASS = 0 00530361
57: IVFAIL = 0 00540361
58: IVDELE = 0 00550361
59: IVINSP = 0 00560361
60: IVTOTL = 0 00570361
61: IVTOTN = 0 00580361
62: ICZERO = 0 00590361
63: C 00600361
64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610361
65: I01 = 05 00620361
66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630361
67: I02 = 06 00640361
68: C 00650361
69: I01 = 5 00660361
70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670361
71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680361
72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690361
73: C 00700361
74: I02 = 6 00710361
75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720361
76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730361
77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740361
78: C 00750361
79: CBE** ********************** BBCINITB **********************************00760361
80: NUVI = I02 00770361
81: IVTOTL = 48 00780361
82: ZPROG = 'FM361' 00790361
83: CBB** ********************** BBCHED0A **********************************00800361
84: C**** 00810361
85: C**** WRITE REPORT TITLE 00820361
86: C**** 00830361
87: WRITE (I02, 90002) 00840361
88: WRITE (I02, 90006) 00850361
89: WRITE (I02, 90007) 00860361
90: WRITE (I02, 90008) ZVERS, ZVERSD 00870361
91: WRITE (I02, 90009) ZPROG, ZPROG 00880361
92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890361
93: CBE** ********************** BBCHED0A **********************************00900361
94: C***** 00910361
95: C***** HEADER FOR SEGMENT 165 00920361
96: WRITE (NUVI,16501) 00930361
97: 16501 FORMAT (1H , // 2X,36HXMAX - (165) INTRINSIC FUNCTIONS-- //13X,00940361
98: 1 26HAMAX0, AMAX1, MAX0, MAX1 /13X, 00950361
99: 2 24H(CHOOSING LARGEST VALUE)//2X, 00960361
100: 3 18HSUBSET REF. - 15.3) 00970361
101: CBB** ********************** BBCHED0B **********************************00980361
102: C**** WRITE DETAIL REPORT HEADERS 00990361
103: C**** 01000361
104: WRITE (I02,90004) 01010361
105: WRITE (I02,90004) 01020361
106: WRITE (I02,90013) 01030361
107: WRITE (I02,90014) 01040361
108: WRITE (I02,90015) IVTOTL 01050361
109: CBE** ********************** BBCHED0B **********************************01060361
110: C***** 01070361
111: C***** TEST OF AMAX0 01080361
112: C***** 01090361
113: WRITE(NUVI, 16502) 01100361
114: 16502 FORMAT (/ 8X, 13HTEST OF AMAX0) 01110361
115: CT001* TEST 1 BOTH ZEROES 01120361
116: IVTNUM = 1 01130361
117: IHBVI = 0 01140361
118: IHDVI = 0 01150361
119: RHAVS = AMAX0(IHBVI,IHDVI) 01160361
120: IF (RHAVS + 0.00005) 20010, 10010, 40010 01170361
121: 40010 IF (RHAVS - 0.00005) 10010, 10010, 20010 01180361
122: 10010 IVPASS = IVPASS + 1 01190361
123: WRITE (NUVI, 80002) IVTNUM 01200361
124: GO TO 0011 01210361
125: 20010 IVFAIL = IVFAIL + 1 01220361
126: RVCORR = 0.0 01230361
127: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01240361
128: 0011 CONTINUE 01250361
129: CT002* TEST 2 ONE NON-ZERO, ONE ZERO 01260361
130: IVTNUM = 2 01270361
131: IHBVI = 6 01280361
132: IHDVI = 0 01290361
133: RHAVS = AMAX0(IHBVI,IHDVI) 01300361
134: IF (RHAVS - 5.9997) 20020, 10020, 40020 01310361
135: 40020 IF (RHAVS - 6.0003) 10020, 10020, 20020 01320361
136: 10020 IVPASS = IVPASS + 1 01330361
137: WRITE (NUVI, 80002) IVTNUM 01340361
138: GO TO 0021 01350361
139: 20020 IVFAIL = IVFAIL + 1 01360361
140: RVCORR = 6.0 01370361
141: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01380361
142: 0021 CONTINUE 01390361
143: CT003* TEST 3 BOTH VALUES EQUAL 01400361
144: IVTNUM = 3 01410361
145: IHBVI = 7 01420361
146: IHDVI = 7 01430361
147: RHAVS = AMAX0(IHBVI,IHDVI) 01440361
148: IF (RHAVS - 6.9996) 20030, 10030, 40030 01450361
149: 40030 IF (RHAVS - 7.0004) 10030, 10030, 20030 01460361
150: 10030 IVPASS = IVPASS + 1 01470361
151: WRITE (NUVI, 80002) IVTNUM 01480361
152: GO TO 0031 01490361
153: 20030 IVFAIL = IVFAIL + 1 01500361
154: RVCORR = 7.0 01510361
155: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01520361
156: 0031 CONTINUE 01530361
157: CT004* TEST 4 UNEQUAL VALUES, BOTH POSITIVE 01540361
158: IVTNUM = 4 01550361
159: IHBVI = 7 01560361
160: IHDVI = 5 01570361
161: RHAVS = AMAX0(IHBVI,IHDVI) 01580361
162: IF (RHAVS - 6.9996) 20040, 10040, 40040 01590361
163: 40040 IF (RHAVS - 7.0004) 10040, 10040, 20040 01600361
164: 10040 IVPASS = IVPASS + 1 01610361
165: WRITE (NUVI, 80002) IVTNUM 01620361
166: GO TO 0041 01630361
167: 20040 IVFAIL = IVFAIL + 1 01640361
168: RVCORR = 7.0 01650361
169: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01660361
170: 0041 CONTINUE 01670361
171: CT005* TEST 5 ONE NEGATIVE, ONE ZERO 01680361
172: IVTNUM = 5 01690361
173: IHBVI = -6 01700361
174: IHDVI = 0 01710361
175: RHAVS = AMAX0(IHBVI,IHDVI) 01720361
176: IF (RHAVS + 0.00005) 20050, 10050, 40050 01730361
177: 40050 IF (RHAVS - 0.00005) 10050, 10050, 20050 01740361
178: 10050 IVPASS = IVPASS + 1 01750361
179: WRITE (NUVI, 80002) IVTNUM 01760361
180: GO TO 0051 01770361
181: 20050 IVFAIL = IVFAIL + 1 01780361
182: RVCORR = 0.0 01790361
183: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01800361
184: 0051 CONTINUE 01810361
185: CT006* TEST 6 BOTH VALUES EQUAL, BOTH NEGATIVE 01820361
186: IVTNUM = 6 01830361
187: IHBVI = -7 01840361
188: IHDVI = -7 01850361
189: RHAVS = AMAX0(IHBVI,IHDVI) 01860361
190: IF (RHAVS + 7.0004) 20060, 10060, 40060 01870361
191: 40060 IF (RHAVS + 6.9996) 10060, 10060, 20060 01880361
192: 10060 IVPASS = IVPASS + 1 01890361
193: WRITE (NUVI, 80002) IVTNUM 01900361
194: GO TO 0061 01910361
195: 20060 IVFAIL = IVFAIL + 1 01920361
196: RVCORR = -7.0 01930361
197: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01940361
198: 0061 CONTINUE 01950361
199: CT007* TEST 7 BOTH VALUES NOT EQUAL, BOTH NEGATIVE 01960361
200: IVTNUM = 7 01970361
201: IHBVI = -7 01980361
202: IHDVI = -5 01990361
203: RHAVS = AMAX0(IHBVI,IHDVI) 02000361
204: IF (RHAVS + 5.0003) 20070, 10070, 40070 02010361
205: 40070 IF (RHAVS + 4.9997) 10070, 10070, 20070 02020361
206: 10070 IVPASS = IVPASS + 1 02030361
207: WRITE (NUVI, 80002) IVTNUM 02040361
208: GO TO 0071 02050361
209: 20070 IVFAIL = IVFAIL + 1 02060361
210: RVCORR = -5.0 02070361
211: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02080361
212: 0071 CONTINUE 02090361
213: CT008* TEST 8 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY A MINUS SIGN 02100361
214: IVTNUM = 8 02110361
215: IHDVI = 6 02120361
216: IHEVI = 0 02130361
217: RHAVS = AMAX0(IHDVI, -IHEVI) 02140361
218: IF (RHAVS - 5.9997) 20080, 10080, 40080 02150361
219: 40080 IF (RHAVS - 6.0003) 10080, 10080, 20080 02160361
220: 10080 IVPASS = IVPASS + 1 02170361
221: WRITE (NUVI, 80002) IVTNUM 02180361
222: GO TO 0081 02190361
223: 20080 IVFAIL = IVFAIL + 1 02200361
224: RVCORR = 6.0 02210361
225: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02220361
226: 0081 CONTINUE 02230361
227: CT009* TEST 9 EXPRESSIONS PRESENTED TO FUNCTION 02240361
228: IVTNUM = 9 02250361
229: IHDVI = 3 02260361
230: IHEVI = 4 02270361
231: RHAVS = AMAX0(IHDVI + IHEVI, -IHEVI - IHDVI) 02280361
232: IF (RHAVS - 6.9996) 20090, 10090, 40090 02290361
233: 40090 IF (RHAVS - 7.0004) 10090, 10090, 20090 02300361
234: 10090 IVPASS = IVPASS + 1 02310361
235: WRITE (NUVI, 80002) IVTNUM 02320361
236: GO TO 0091 02330361
237: 20090 IVFAIL = IVFAIL + 1 02340361
238: RVCORR = 7.0 02350361
239: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02360361
240: 0091 CONTINUE 02370361
241: CT010* TEST 10 3 ARGUMENTS 02380361
242: IVTNUM = 10 02390361
243: IHBVI = 0 02400361
244: IHCVI = 1 02410361
245: IHDVI = 3 02420361
246: RHAVS = AMAX0(IHBVI, IHCVI, IHDVI) 02430361
247: IF (RHAVS - 2.9998) 20100, 10100, 40100 02440361
248: 40100 IF (RHAVS - 3.0002) 10100, 10100, 20100 02450361
249: 10100 IVPASS = IVPASS + 1 02460361
250: WRITE (NUVI, 80002) IVTNUM 02470361
251: GO TO 0101 02480361
252: 20100 IVFAIL = IVFAIL + 1 02490361
253: RVCORR = 3.0 02500361
254: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02510361
255: 0101 CONTINUE 02520361
256: CT011* TEST 11 4 ARGUMENTS 02530361
257: IVTNUM = 11 02540361
258: IHBVI = 0 02550361
259: IHCVI = 1 02560361
260: IHDVI = 4 02570361
261: RHAVS = AMAX0(IHDVI, -IHBVI, IHCVI, IHBVI) 02580361
262: IF (RHAVS - 3.9998) 20110, 10110, 40110 02590361
263: 40110 IF (RHAVS - 4.0002) 10110, 10110, 20110 02600361
264: 10110 IVPASS = IVPASS + 1 02610361
265: WRITE (NUVI, 80002) IVTNUM 02620361
266: GO TO 0111 02630361
267: 20110 IVFAIL = IVFAIL + 1 02640361
268: RVCORR = 4.0 02650361
269: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02660361
270: 0111 CONTINUE 02670361
271: CT012* TEST 12 5 ARGUMENTS 02680361
272: IVTNUM = 12 02690361
273: IHDVI = 4.0 02700361
274: IHEVI = 5.0 02710361
275: RHAVS = AMAX0(IHDVI, -IHDVI, -IHEVI, +IHDVI, IHEVI) 02720361
276: IF (RHAVS - 4.9997) 20120, 10120, 40120 02730361
277: 40120 IF (RHAVS - 5.0003) 10120, 10120, 20120 02740361
278: 10120 IVPASS = IVPASS + 1 02750361
279: WRITE (NUVI, 80002) IVTNUM 02760361
280: GO TO 0121 02770361
281: 20120 IVFAIL = IVFAIL + 1 02780361
282: RVCORR = 5.0 02790361
283: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02800361
284: 0121 CONTINUE 02810361
285: C***** 02820361
286: WRITE (NUVI, 90002) 02830361
287: WRITE (NUVI, 90013) 02840361
288: WRITE (NUVI, 90014) 02850361
289: C***** TEST OF AMAX1 02860361
290: C***** 02870361
291: WRITE(NUVI, 16504) 02880361
292: 16504 FORMAT (/ 8X, 13HTEST OF AMAX1) 02890361
293: CT013* TEST 13 BOTH VALUES ZERO 02900361
294: IVTNUM = 13 02910361
295: RHBVS = 0.0 02920361
296: RHDVS = 0.0 02930361
297: RHAVS = AMAX1(RHBVS, RHDVS) 02940361
298: IF (RHAVS + 0.00005) 20130, 10130, 40130 02950361
299: 40130 IF (RHAVS - 0.00005) 10130, 10130, 20130 02960361
300: 10130 IVPASS = IVPASS + 1 02970361
301: WRITE (NUVI, 80002) IVTNUM 02980361
302: GO TO 0131 02990361
303: 20130 IVFAIL = IVFAIL + 1 03000361
304: RVCORR = 0.0 03010361
305: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03020361
306: 0131 CONTINUE 03030361
307: CT014* TEST 14 FIRST VALUE NON-ZERO, SECOND ZERO 03040361
308: IVTNUM = 14 03050361
309: RHBVS = 5.625 03060361
310: RHDVS = 0.0 03070361
311: RHAVS = AMAX1(RHBVS, RHDVS) 03080361
312: IF (RHAVS - 5.6247) 20140, 10140, 40140 03090361
313: 40140 IF (RHAVS - 5.6253) 10140, 10140, 20140 03100361
314: 10140 IVPASS = IVPASS + 1 03110361
315: WRITE (NUVI, 80002) IVTNUM 03120361
316: GO TO 0141 03130361
317: 20140 IVFAIL = IVFAIL + 1 03140361
318: RVCORR = 5.625 03150361
319: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03160361
320: 0141 CONTINUE 03170361
321: CT015* TEST 15 BOTH VALUES EQUAL 03180361
322: IVTNUM = 15 03190361
323: RHBVS = 6.5 03200361
324: RHDVS = 6.5 03210361
325: RHAVS = AMAX1(RHBVS, RHDVS) 03220361
326: IF (RHAVS - 6.4996) 20150, 10150, 40150 03230361
327: 40150 IF (RHAVS - 6.5004) 10150, 10150, 20150 03240361
328: 10150 IVPASS = IVPASS + 1 03250361
329: WRITE (NUVI, 80002) IVTNUM 03260361
330: GO TO 0151 03270361
331: 20150 IVFAIL = IVFAIL + 1 03280361
332: RVCORR = 6.5 03290361
333: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03300361
334: 0151 CONTINUE 03310361
335: CT016* TEST 16 VALUES NOT EQUAL 03320361
336: IVTNUM = 16 03330361
337: RHBVS = 7.125 03340361
338: RHDVS = 5.125 03350361
339: RHAVS = AMAX1(RHBVS, RHDVS) 03360361
340: IF (RHAVS - 7.1246) 20160, 10160, 40160 03370361
341: 40160 IF (RHAVS - 7.1254) 10160, 10160, 20160 03380361
342: 10160 IVPASS = IVPASS + 1 03390361
343: WRITE (NUVI, 80002) IVTNUM 03400361
344: GO TO 0161 03410361
345: 20160 IVFAIL = IVFAIL + 1 03420361
346: RVCORR = 7.125 03430361
347: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03440361
348: 0161 CONTINUE 03450361
349: CT017* TEST 17 FIRST VALUE NEGATIVE, SECOND ZERO 03460361
350: IVTNUM = 17 03470361
351: RHBVS = -5.625 03480361
352: RHDVS = 0.0 03490361
353: RHAVS = AMAX1(RHBVS, RHDVS) 03500361
354: IF (RHAVS + 0.00005) 20170, 10170, 40170 03510361
355: 40170 IF (RHAVS - 0.00005) 10170, 10170, 20170 03520361
356: 10170 IVPASS = IVPASS + 1 03530361
357: WRITE (NUVI, 80002) IVTNUM 03540361
358: GO TO 0171 03550361
359: 20170 IVFAIL = IVFAIL + 1 03560361
360: RVCORR = 0.0 03570361
361: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03580361
362: 0171 CONTINUE 03590361
363: CT018* TEST 18 BOTH VALUES EQUAL, BOTH NEGATIVE 03600361
364: IVTNUM = 18 03610361
365: RHBVS = -6.5 03620361
366: RHDVS = -6.5 03630361
367: RHAVS = AMAX1(RHBVS, RHDVS) 03640361
368: IF (RHAVS + 6.5004) 20180, 10180, 40180 03650361
369: 40180 IF (RHAVS + 6.4996) 10180, 10180, 20180 03660361
370: 10180 IVPASS = IVPASS + 1 03670361
371: WRITE (NUVI, 80002) IVTNUM 03680361
372: GO TO 0181 03690361
373: 20180 IVFAIL = IVFAIL + 1 03700361
374: RVCORR = -6.5 03710361
375: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03720361
376: 0181 CONTINUE 03730361
377: CT019* TEST 19 VALUES NOT EQUAL, BOTH NEGATIVE 03740361
378: IVTNUM = 19 03750361
379: RHBVS = -7.125 03760361
380: RHDVS = -5.125 03770361
381: RHAVS = AMAX1(RHBVS, RHDVS) 03780361
382: IF (RHAVS + 5.1253) 20190, 10190, 40190 03790361
383: 40190 IF (RHAVS + 5.1247) 10190, 10190, 20190 03800361
384: 10190 IVPASS = IVPASS + 1 03810361
385: WRITE (NUVI, 80002) IVTNUM 03820361
386: GO TO 0191 03830361
387: 20190 IVFAIL = IVFAIL + 1 03840361
388: RVCORR = -5.125 03850361
389: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03860361
390: 0191 CONTINUE 03870361
391: CT020* TEST 20 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 03880361
392: IVTNUM = 20 03890361
393: RHDVS = 5.625 03900361
394: RHEVS = 0.0 03910361
395: RHAVS = AMAX1(RHDVS, -RHEVS) 03920361
396: IF (RHAVS - 5.6247) 20200, 10200, 40200 03930361
397: 40200 IF (RHAVS - 5.6253) 10200, 10200, 20200 03940361
398: 10200 IVPASS = IVPASS + 1 03950361
399: WRITE (NUVI, 80002) IVTNUM 03960361
400: GO TO 0201 03970361
401: 20200 IVFAIL = IVFAIL + 1 03980361
402: RVCORR = 5.625 03990361
403: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04000361
404: 0201 CONTINUE 04010361
405: CT021* TEST 21 EXPRESSIONS PRESENTED TO FUNCTION 04020361
406: IVTNUM = 21 04030361
407: RHDVS = 3.5 04040361
408: RHEVS = 4.0 04050361
409: RHAVS = AMAX1(RHDVS + RHEVS, -RHEVS - RHDVS) 04060361
410: IF (RHAVS - 7.4996) 20210, 10210, 40210 04070361
411: 40210 IF (RHAVS - 7.5004) 10210, 10210, 20210 04080361
412: 10210 IVPASS = IVPASS + 1 04090361
413: WRITE (NUVI, 80002) IVTNUM 04100361
414: GO TO 0211 04110361
415: 20210 IVFAIL = IVFAIL + 1 04120361
416: RVCORR = 7.5 04130361
417: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04140361
418: 0211 CONTINUE 04150361
419: CT022* TEST 22 3 ARGUMENTS 04160361
420: IVTNUM = 22 04170361
421: RHBVS = 0.0 04180361
422: RHCVS = 1.0 04190361
423: RHDVS = 0.5 04200361
424: RHAVS = AMAX1(RHBVS, RHCVS, RHDVS) 04210361
425: IF (RHAVS - 0.99995) 20220, 10220, 40220 04220361
426: 40220 IF (RHAVS - 1.0001) 10220, 10220, 20220 04230361
427: 10220 IVPASS = IVPASS + 1 04240361
428: WRITE (NUVI, 80002) IVTNUM 04250361
429: GO TO 0221 04260361
430: 20220 IVFAIL = IVFAIL + 1 04270361
431: RVCORR = 1.0 04280361
432: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04290361
433: 0221 CONTINUE 04300361
434: CT023* TEST 23 4 ARGUMENTS 04310361
435: IVTNUM = 23 04320361
436: RHBVS = 1.5 04330361
437: RHCVS = 3.4 04340361
438: RHDVS = 3.5 04350361
439: RHAVS = AMAX1(-RHDVS, RHCVS, RHBVS, RHDVS) 04360361
440: IF (RHAVS - 3.4998) 20230, 10230, 40230 04370361
441: 40230 IF (RHAVS - 3.5002) 10230, 10230, 20230 04380361
442: 10230 IVPASS = IVPASS + 1 04390361
443: WRITE (NUVI, 80002) IVTNUM 04400361
444: GO TO 0231 04410361
445: 20230 IVFAIL = IVFAIL + 1 04420361
446: RVCORR = 3.5 04430361
447: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04440361
448: 0231 CONTINUE 04450361
449: CT024* TEST 24 5 ARGUMENTS 04460361
450: IVTNUM = 24 04470361
451: RHDVS = 3.5 04480361
452: RHEVS = 4.5 04490361
453: RHAVS = AMAX1(RHDVS, -RHDVS, -RHEVS, +RHDVS, RHEVS) 04500361
454: IF (RHAVS - 4.4997) 20240, 10240, 40240 04510361
455: 40240 IF (RHAVS - 4.5003) 10240, 10240, 20240 04520361
456: 10240 IVPASS = IVPASS + 1 04530361
457: WRITE (NUVI, 80002) IVTNUM 04540361
458: GO TO 0241 04550361
459: 20240 IVFAIL = IVFAIL + 1 04560361
460: RVCORR = 4.5 04570361
461: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04580361
462: 0241 CONTINUE 04590361
463: C***** 04600361
464: WRITE (NUVI, 90002) 04610361
465: WRITE (NUVI, 90013) 04620361
466: WRITE (NUVI, 90014) 04630361
467: C***** TEST OF MAX0 04640361
468: C***** 04650361
469: WRITE(NUVI, 16505) 04660361
470: 16505 FORMAT (/ 8X, 12HTEST OF MAX0) 04670361
471: C***** 04680361
472: CT025* TEST 25 BOTH VALUES ZERO 04690361
473: IVTNUM = 25 04700361
474: IHBVI = 0 04710361
475: IHDVI = 0 04720361
476: IHAVI = MAX0(IHBVI, IHDVI) 04730361
477: IF (IHAVI - 0) 20250, 10250, 20250 04740361
478: 10250 IVPASS = IVPASS + 1 04750361
479: WRITE (NUVI, 80002) IVTNUM 04760361
480: GO TO 0251 04770361
481: 20250 IVFAIL = IVFAIL + 1 04780361
482: IVCORR = 0 04790361
483: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 04800361
484: 0251 CONTINUE 04810361
485: CT026* TEST 26 FIRST VALUE NON-ZERO, SECOND ZERO 04820361
486: IVTNUM = 26 04830361
487: IHBVI = 6 04840361
488: IHDVI = 0 04850361
489: IHAVI = MAX0(IHBVI, IHDVI) 04860361
490: IF (IHAVI - 6) 20260, 10260, 20260 04870361
491: 10260 IVPASS = IVPASS + 1 04880361
492: WRITE (NUVI, 80002) IVTNUM 04890361
493: GO TO 0261 04900361
494: 20260 IVFAIL = IVFAIL + 1 04910361
495: IVCORR = 6 04920361
496: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 04930361
497: 0261 CONTINUE 04940361
498: CT027* TEST 27 BOTH VALUES EQUAL 04950361
499: IVTNUM = 27 04960361
500: IHBVI = 7 04970361
501: IHDVI = 7 04980361
502: IHAVI = MAX0(IHBVI, IHDVI) 04990361
503: IF (IHAVI - 7) 20270, 10270, 20270 05000361
504: 10270 IVPASS = IVPASS + 1 05010361
505: WRITE (NUVI, 80002) IVTNUM 05020361
506: GO TO 0271 05030361
507: 20270 IVFAIL = IVFAIL + 1 05040361
508: IVCORR = 7 05050361
509: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05060361
510: 0271 CONTINUE 05070361
511: CT028* TEST 28 VALUES NOT EQUAL 05080361
512: IVTNUM = 28 05090361
513: IHBVI = 7 05100361
514: IHDVI = 5 05110361
515: IHAVI = MAX0(IHBVI, IHDVI) 05120361
516: IF (IHAVI - 7) 20280, 10280, 20280 05130361
517: 10280 IVPASS = IVPASS + 1 05140361
518: WRITE (NUVI, 80002) IVTNUM 05150361
519: GO TO 0281 05160361
520: 20280 IVFAIL = IVFAIL + 1 05170361
521: IVCORR = 7 05180361
522: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05190361
523: 0281 CONTINUE 05200361
524: CT029* TEST 29 FIRST VALUE NEGATIVE, SECOND ZERO 05210361
525: IVTNUM = 29 05220361
526: IHBVI = -6 05230361
527: IHDVI = 0 05240361
528: IHAVI = MAX0(IHBVI, IHDVI) 05250361
529: IF (IHAVI - 0) 20290, 10290, 20290 05260361
530: 10290 IVPASS = IVPASS + 1 05270361
531: WRITE (NUVI, 80002) IVTNUM 05280361
532: GO TO 0291 05290361
533: 20290 IVFAIL = IVFAIL + 1 05300361
534: IVCORR = 0 05310361
535: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05320361
536: 0291 CONTINUE 05330361
537: CT030* TEST 30 BOTH VALUES EQUAL, BOTH NEGATIVE 05340361
538: IVTNUM = 30 05350361
539: IHBVI = -7 05360361
540: IHDVI = -7 05370361
541: IHAVI = MAX0(IHBVI, IHDVI) 05380361
542: IF (IHAVI + 7) 20300, 10300, 20300 05390361
543: 10300 IVPASS = IVPASS + 1 05400361
544: WRITE (NUVI, 80002) IVTNUM 05410361
545: GO TO 0301 05420361
546: 20300 IVFAIL = IVFAIL + 1 05430361
547: IVCORR = -7 05440361
548: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05450361
549: 0301 CONTINUE 05460361
550: CT031* TEST 31 VALUES NOT EQUAL, BOTH NEGATIVE 05470361
551: IVTNUM = 31 05480361
552: IHBVI = -7 05490361
553: IHDVI = -5 05500361
554: IHAVI = MAX0(IHBVI, IHDVI) 05510361
555: IF (IHAVI + 5) 20310, 10310, 20310 05520361
556: 10310 IVPASS = IVPASS + 1 05530361
557: WRITE (NUVI, 80002) IVTNUM 05540361
558: GO TO 0311 05550361
559: 20310 IVFAIL = IVFAIL + 1 05560361
560: IVCORR = -5 05570361
561: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05580361
562: 0311 CONTINUE 05590361
563: CT032* TEST 32 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 05600361
564: IVTNUM = 32 05610361
565: IHDVI = 6 05620361
566: IHEVI = 0 05630361
567: IHAVI = MAX0(IHDVI, -IHEVI) 05640361
568: IF (IHAVI - 6) 20320, 10320, 20320 05650361
569: 10320 IVPASS = IVPASS + 1 05660361
570: WRITE (NUVI, 80002) IVTNUM 05670361
571: GO TO 0321 05680361
572: 20320 IVFAIL = IVFAIL + 1 05690361
573: IVCORR = 6 05700361
574: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05710361
575: 0321 CONTINUE 05720361
576: CT033* TEST 33 EXPRESSIONS PRESENTED TO FUNCTION 05730361
577: IVTNUM = 33 05740361
578: IHDVI = 3 05750361
579: IHEVI = 4 05760361
580: IHAVI = MAX0(IHDVI + IHEVI, -IHEVI - IHDVI) 05770361
581: IF (IHAVI - 7) 20330, 10330, 20330 05780361
582: 10330 IVPASS = IVPASS + 1 05790361
583: WRITE (NUVI, 80002) IVTNUM 05800361
584: GO TO 0331 05810361
585: 20330 IVFAIL = IVFAIL + 1 05820361
586: IVCORR = 7 05830361
587: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05840361
588: 0331 CONTINUE 05850361
589: CT034* TEST 34 3 ARGUMENTS 05860361
590: IVTNUM = 34 05870361
591: IHBVI = 0 05880361
592: IHCVI = 3 05890361
593: IHDVI = -4 05900361
594: IHAVI = MAX0(IHDVI, IHBVI, IHCVI) 05910361
595: IF (IHAVI - 3) 20340, 10340, 20340 05920361
596: 10340 IVPASS = IVPASS + 1 05930361
597: WRITE (NUVI, 80002) IVTNUM 05940361
598: GO TO 0341 05950361
599: 20340 IVFAIL = IVFAIL + 1 05960361
600: IVCORR = 3 05970361
601: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05980361
602: 0341 CONTINUE 05990361
603: CT035* TEST 35 4 ARGUMENTS 06000361
604: IVTNUM = 35 06010361
605: IHBVI = -1 06020361
606: IHCVI = 0 06030361
607: IHDVI = 4 06040361
608: IHAVI = MAX0(IHDVI, IHCVI, IHBVI, IHDVI) 06050361
609: IF (IHAVI - 4) 20350, 10350, 20350 06060361
610: 10350 IVPASS = IVPASS + 1 06070361
611: WRITE (NUVI, 80002) IVTNUM 06080361
612: GO TO 0351 06090361
613: 20350 IVFAIL = IVFAIL + 1 06100361
614: IVCORR = 4 06110361
615: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06120361
616: 0351 CONTINUE 06130361
617: CT036* TEST 36 5 ARGUMENTS 06140361
618: IVTNUM = 36 06150361
619: IHDVI = 4 06160361
620: IHEVI = 5 06170361
621: IHAVI = MAX0(IHDVI, -IHDVI, -IHEVI, +IHDVI, IHEVI) 06180361
622: IF (IHAVI - 5) 20360, 10360, 20360 06190361
623: 10360 IVPASS = IVPASS + 1 06200361
624: WRITE (NUVI, 80002) IVTNUM 06210361
625: GO TO 0361 06220361
626: 20360 IVFAIL = IVFAIL + 1 06230361
627: IVCORR = 5 06240361
628: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06250361
629: 0361 CONTINUE 06260361
630: C***** 06270361
631: WRITE (NUVI, 90002) 06280361
632: WRITE (NUVI, 90013) 06290361
633: WRITE (NUVI, 90014) 06300361
634: C***** TEST OF MAX1 06310361
635: C***** 06320361
636: WRITE(NUVI, 16507) 06330361
637: 16507 FORMAT (/ 8X, 12HTEST OF MAX1) 06340361
638: CT037* TEST 37 BOTH VALUES EQUAL 06350361
639: IVTNUM = 37 06360361
640: RHBVS = 0.0 06370361
641: RHDVS = 0.0 06380361
642: IHAVI = MAX1(RHBVS, RHDVS) 06390361
643: IF (IHAVI - 0) 20370, 10370, 20370 06400361
644: 10370 IVPASS = IVPASS + 1 06410361
645: WRITE (NUVI, 80002) IVTNUM 06420361
646: GO TO 0371 06430361
647: 20370 IVFAIL = IVFAIL + 1 06440361
648: IVCORR = 0 06450361
649: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06460361
650: 0371 CONTINUE 06470361
651: CT038* TEST 38 FIRST VALUE NON-ZERO, SECOND ZERO 06480361
652: IVTNUM = 38 06490361
653: RHBVS = 5.625 06500361
654: RHDVS = 0.0 06510361
655: IHAVI = MAX1(RHBVS, RHDVS) 06520361
656: IF (IHAVI - 5) 20380, 10380, 20380 06530361
657: 10380 IVPASS = IVPASS + 1 06540361
658: WRITE (NUVI, 80002) IVTNUM 06550361
659: GO TO 0381 06560361
660: 20380 IVFAIL = IVFAIL + 1 06570361
661: IVCORR = 5 06580361
662: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06590361
663: 0381 CONTINUE 06600361
664: CT039* TEST 39 BOTH VALUES EQUAL 06610361
665: IVTNUM = 39 06620361
666: RHBVS = 6.5 06630361
667: RHDVS = 6.5 06640361
668: IHAVI = MAX1(RHBVS, RHDVS) 06650361
669: IF (IHAVI - 6) 20390, 10390, 20390 06660361
670: 10390 IVPASS = IVPASS + 1 06670361
671: WRITE (NUVI, 80002) IVTNUM 06680361
672: GO TO 0391 06690361
673: 20390 IVFAIL = IVFAIL + 1 06700361
674: IVCORR = 6 06710361
675: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06720361
676: 0391 CONTINUE 06730361
677: CT040* TEST 40 VALUES NOT EQUAL 06740361
678: IVTNUM = 40 06750361
679: RHBVS = 7.125 06760361
680: RHDVS = 5.125 06770361
681: IHAVI = MAX1(RHBVS, RHDVS) 06780361
682: IF (IHAVI - 7) 20400, 10400, 20400 06790361
683: 10400 IVPASS = IVPASS + 1 06800361
684: WRITE (NUVI, 80002) IVTNUM 06810361
685: GO TO 0401 06820361
686: 20400 IVFAIL = IVFAIL + 1 06830361
687: IVCORR = 7 06840361
688: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06850361
689: 0401 CONTINUE 06860361
690: CT041* TEST 41 FIRST VALUE NEGATIVE, SECOND ZERO 06870361
691: IVTNUM = 41 06880361
692: RHBVS = -5.625 06890361
693: RHDVS = 0.0 06900361
694: IHAVI = MAX1(RHBVS, RHDVS) 06910361
695: IF (IHAVI - 0) 20410, 10410, 20410 06920361
696: 10410 IVPASS = IVPASS + 1 06930361
697: WRITE (NUVI, 80002) IVTNUM 06940361
698: GO TO 0411 06950361
699: 20410 IVFAIL = IVFAIL + 1 06960361
700: IVCORR = 0 06970361
701: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06980361
702: 0411 CONTINUE 06990361
703: CT042* TEST 42 BOTH VALUES EQUAL, BOTH NEGATIVE 07000361
704: IVTNUM = 42 07010361
705: RHBVS = - 6.5 07020361
706: RHDVS = - 6.5 07030361
707: IHAVI = MAX1(RHBVS, RHDVS) 07040361
708: IF (IHAVI + 6) 20420, 10420, 20420 07050361
709: 10420 IVPASS = IVPASS + 1 07060361
710: WRITE (NUVI, 80002) IVTNUM 07070361
711: GO TO 0421 07080361
712: 20420 IVFAIL = IVFAIL + 1 07090361
713: IVCORR = -6 07100361
714: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07110361
715: 0421 CONTINUE 07120361
716: CT043* TEST 43 VALUES NOT EQUAL, BOTH NEGATIVE 07130361
717: IVTNUM = 43 07140361
718: RHBVS = -7.125 07150361
719: RHDVS = -5.125 07160361
720: IHAVI = MAX1(RHBVS, RHDVS) 07170361
721: IF (IHAVI + 5) 20430, 10430, 20430 07180361
722: 10430 IVPASS = IVPASS + 1 07190361
723: WRITE (NUVI, 80002) IVTNUM 07200361
724: GO TO 0431 07210361
725: 20430 IVFAIL = IVFAIL + 1 07220361
726: IVCORR = -5 07230361
727: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07240361
728: 0431 CONTINUE 07250361
729: CT044* TEST 44 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY A MINUS SIGN 07260361
730: IVTNUM = 44 07270361
731: RHDVS = 5.625 07280361
732: RHEVS = 0.0 07290361
733: IHAVI = MAX1(RHDVS, -RHEVS) 07300361
734: IF (IHAVI - 5) 20440, 10440, 20440 07310361
735: 10440 IVPASS = IVPASS + 1 07320361
736: WRITE (NUVI, 80002) IVTNUM 07330361
737: GO TO 0441 07340361
738: 20440 IVFAIL = IVFAIL + 1 07350361
739: IVCORR = 5 07360361
740: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07370361
741: 0441 CONTINUE 07380361
742: CT045* TEST 45 EXPRESSIONS PRESENTED TO FUNCTION 07390361
743: IVTNUM = 45 07400361
744: RHDVS = 3.5 07410361
745: RHEVS = 4.0 07420361
746: IHAVI = MAX1(RHDVS + RHEVS, -RHEVS - RHDVS) 07430361
747: IF (IHAVI - 7) 20450, 10450, 20450 07440361
748: 10450 IVPASS = IVPASS + 1 07450361
749: WRITE (NUVI, 80002) IVTNUM 07460361
750: GO TO 0451 07470361
751: 20450 IVFAIL = IVFAIL + 1 07480361
752: IVCORR = 7 07490361
753: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07500361
754: 0451 CONTINUE 07510361
755: CT046* TEST 46 3 ARGUMENTS 07520361
756: IVTNUM = 46 07530361
757: RHBVS = 0.0 07540361
758: RHCVS = 4.0 07550361
759: RHDVS = 0.0 07560361
760: IHAVI = MAX1(RHBVS, -RHCVS, RHDVS) 07570361
761: IF (IHAVI - 0) 20460, 10460, 20460 07580361
762: 10460 IVPASS = IVPASS + 1 07590361
763: WRITE (NUVI, 80002) IVTNUM 07600361
764: GO TO 0461 07610361
765: 20460 IVFAIL = IVFAIL + 1 07620361
766: IVCORR = 0 07630361
767: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07640361
768: 0461 CONTINUE 07650361
769: CT047* TEST 47 4 ARGUMENTS 07660361
770: IVTNUM = 47 07670361
771: RHBVS = 3.49 07680361
772: RHCVS = 0.0 07690361
773: RHDVS = 3.5 07700361
774: IHAVI = MAX1(RHDVS, RHBVS, -RHBVS, RHCVS) 07710361
775: IF (IHAVI - 3) 20470, 10470, 20470 07720361
776: 10470 IVPASS = IVPASS + 1 07730361
777: WRITE (NUVI, 80002) IVTNUM 07740361
778: GO TO 0471 07750361
779: 20470 IVFAIL = IVFAIL + 1 07760361
780: IVCORR = 3 07770361
781: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07780361
782: 0471 CONTINUE 07790361
783: CT048* TEST 48 5 ARGUMENTS 07800361
784: IVTNUM = 48 07810361
785: RHDVS = 3.5 07820361
786: RHEVS = 4.5 07830361
787: IHAVI = MAX1(RHDVS, -RHDVS, -RHEVS, +RHDVS, RHEVS) 07840361
788: IF (IHAVI - 4) 20480, 10480, 20480 07850361
789: 10480 IVPASS = IVPASS + 1 07860361
790: WRITE (NUVI, 80002) IVTNUM 07870361
791: GO TO 0481 07880361
792: 20480 IVFAIL = IVFAIL + 1 07890361
793: IVCORR = 4 07900361
794: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07910361
795: 0481 CONTINUE 07920361
796: C***** 07930361
797: CBB** ********************** BBCSUM0 **********************************07940361
798: C**** WRITE OUT TEST SUMMARY 07950361
799: C**** 07960361
800: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07970361
801: WRITE (I02, 90004) 07980361
802: WRITE (I02, 90014) 07990361
803: WRITE (I02, 90004) 08000361
804: WRITE (I02, 90020) IVPASS 08010361
805: WRITE (I02, 90022) IVFAIL 08020361
806: WRITE (I02, 90024) IVDELE 08030361
807: WRITE (I02, 90026) IVINSP 08040361
808: WRITE (I02, 90028) IVTOTN, IVTOTL 08050361
809: CBE** ********************** BBCSUM0 **********************************08060361
810: CBB** ********************** BBCFOOT0 **********************************08070361
811: C**** WRITE OUT REPORT FOOTINGS 08080361
812: C**** 08090361
813: WRITE (I02,90016) ZPROG, ZPROG 08100361
814: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 08110361
815: WRITE (I02,90019) 08120361
816: CBE** ********************** BBCFOOT0 **********************************08130361
817: CBB** ********************** BBCFMT0A **********************************08140361
818: C**** FORMATS FOR TEST DETAIL LINES 08150361
819: C**** 08160361
820: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 08170361
821: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 08180361
822: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 08190361
823: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 08200361
824: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 08210361
825: 1I6,/,1H ,15X,10HCORRECT= ,I6) 08220361
826: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08230361
827: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 08240361
828: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08250361
829: 1A21,/,1H ,16X,10HCORRECT= ,A21) 08260361
830: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 08270361
831: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 08280361
832: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 08290361
833: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 08300361
834: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 08310361
835: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 08320361
836: 80050 FORMAT (1H ,48X,A31) 08330361
837: CBE** ********************** BBCFMT0A **********************************08340361
838: CBB** ********************** BBCFMT0B **********************************08350361
839: C**** FORMAT STATEMENTS FOR PAGE HEADERS 08360361
840: C**** 08370361
841: 90002 FORMAT (1H1) 08380361
842: 90004 FORMAT (1H ) 08390361
843: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 08400361
844: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08410361
845: 90008 FORMAT (1H ,21X,A13,A17) 08420361
846: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 08430361
847: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 08440361
848: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 08450361
849: 1 7X,7HREMARKS,24X) 08460361
850: 90014 FORMAT (1H ,46H----------------------------------------------, 08470361
851: 1 33H---------------------------------) 08480361
852: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 08490361
853: C**** 08500361
854: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08510361
855: C**** 08520361
856: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08530361
857: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08540361
858: 1 A13) 08550361
859: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08560361
860: C**** 08570361
861: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08580361
862: C**** 08590361
863: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08600361
864: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08610361
865: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08620361
866: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08630361
867: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08640361
868: CBE** ********************** BBCFMT0B **********************************08650361
869: C***** 08660361
870: C***** END OF TEST SEGMENT 165 08670361
871: STOP 08680361
872: END 08690361
873: 08700361
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.