| PROGRAM FM908 |
| |
| C***********************************************************************00010908 |
| C***** FORTRAN 77 00020908 |
| C***** FM908 00030908 |
| C***** INTER3 - (392) 00040908 |
| C***** 00050908 |
| C***********************************************************************00060908 |
| C***** TESTING OF INTERNAL FILES - ANS. REF 00070908 |
| C***** USING READ 12.2.5 00080908 |
| C***** 00090908 |
| CBB** ********************** BBCCOMNT **********************************00100908 |
| C**** 00110908 |
| C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120908 |
| C**** VERSION 2.1 00130908 |
| C**** 00140908 |
| C**** 00150908 |
| C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160908 |
| C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170908 |
| C**** SOFTWARE STANDARDS VALIDATION GROUP 00180908 |
| C**** BUILDING 225 RM A266 00190908 |
| C**** GAITHERSBURG, MD 20899 00200908 |
| C**** 00210908 |
| C**** 00220908 |
| C**** 00230908 |
| CBE** ********************** BBCCOMNT **********************************00240908 |
| C***** 00250908 |
| C***** S P E C I F I C A T I O N S SEGMENT 392 00260908 |
| C***** 00270908 |
| DOUBLE PRECISION AVD, BVD, CVD, DVD, EVD, DVCORR 00280908 |
| LOGICAL AVB 00290908 |
| CHARACTER*43 A43VK, D43VK, F43VK, G43VK, K43VK, N43VK 00300908 |
| CHARACTER A8VK*8, E51VK*51, L53VK*53, I82VK*82 00310908 |
| CHARACTER J97VK*97, C431K(2)*43, CVCORR*30 00320908 |
| CHARACTER*29 B291K(5), M291K(5), H131K(2)*13 00330908 |
| COMPLEX AVC, BVC, CVC, DVC, ZVCORR 00340908 |
| REAL R2E(8) 00350908 |
| EQUIVALENCE (R2E(1),AVC),(R2E(3),BVC),(R2E(5),CVC),(R2E(7),DVC) 00360908 |
| C***** 00370908 |
| CBB** ********************** BBCINITA **********************************00380908 |
| C**** SPECIFICATION STATEMENTS 00390908 |
| C**** 00400908 |
| CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00410908 |
| 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00420908 |
| CBE** ********************** BBCINITA **********************************00430908 |
| CBB** ********************** BBCINITB **********************************00440908 |
| C**** INITIALIZE SECTION 00450908 |
| DATA ZVERS, ZVERSD, ZDATE 00460908 |
| 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00470908 |
| DATA ZCOMPL, ZNAME, ZTAPE 00480908 |
| 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00490908 |
| DATA ZPROJ, ZTAPED, ZPROG 00500908 |
| 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00510908 |
| DATA REMRKS /' '/ 00520908 |
| C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00530908 |
| C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00540908 |
| C**** 00550908 |
| CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00560908 |
| CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00570908 |
| CZ03 ZPROG = 'PROGRAM NAME' 00580908 |
| CZ04 ZDATE = 'DATE OF TEST' 00590908 |
| CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00600908 |
| CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00610908 |
| CZ07 ZNAME = 'NAME OF USER' 00620908 |
| CZ08 ZTAPE = 'TAPE OWNER/ID' 00630908 |
| CZ09 ZTAPED = 'DATE TAPE COPIED' 00640908 |
| C 00650908 |
| IVPASS = 0 00660908 |
| IVFAIL = 0 00670908 |
| IVDELE = 0 00680908 |
| IVINSP = 0 00690908 |
| IVTOTL = 0 00700908 |
| IVTOTN = 0 00710908 |
| ICZERO = 0 00720908 |
| C 00730908 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00740908 |
| I01 = 05 00750908 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00760908 |
| I02 = 06 00770908 |
| C 00780908 |
| CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00790908 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00800908 |
| CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00810908 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00820908 |
| C 00830908 |
| CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00840908 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00850908 |
| CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00860908 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00870908 |
| C 00880908 |
| CBE** ********************** BBCINITB **********************************00890908 |
| NUVI = I02 00900908 |
| IVTOTL = 54 00910908 |
| ZPROG = 'FM908' 00920908 |
| CBB** ********************** BBCHED0A **********************************00930908 |
| C**** 00940908 |
| C**** WRITE REPORT TITLE 00950908 |
| C**** 00960908 |
| WRITE (I02, 90002) 00970908 |
| WRITE (I02, 90006) 00980908 |
| WRITE (I02, 90007) 00990908 |
| WRITE (I02, 90008) ZVERS, ZVERSD 01000908 |
| WRITE (I02, 90009) ZPROG, ZPROG 01010908 |
| WRITE (I02, 90010) ZDATE, ZCOMPL 01020908 |
| CBE** ********************** BBCHED0A **********************************01030908 |
| C***** 01040908 |
| C***** HEADER FOR SEGMENT 392 01050908 |
| C***** 01060908 |
| WRITE(NUVI,39200) 01070908 |
| 39200 FORMAT(" ",/ " INTER3 - (392) INTERNAL FILES -- USING READ" 01080908 |
| 1 //" ANS. REF. - 12.2.5" ) 01090908 |
| CBB** ********************** BBCHED0B **********************************01100908 |
| C**** WRITE DETAIL REPORT HEADERS 01110908 |
| C**** 01120908 |
| WRITE (I02,90004) 01130908 |
| WRITE (I02,90004) 01140908 |
| WRITE (I02,90013) 01150908 |
| WRITE (I02,90014) 01160908 |
| WRITE (I02,90015) IVTOTL 01170908 |
| CBE** ********************** BBCHED0B **********************************01180908 |
| A43VK = ' 2.1000000D1 23.45600D3 23.450000000D2' 01190908 |
| D43VK = '34.58673D2 3458.67300 34.58673D2 3458.673 ' 01200908 |
| F43VK = 'T 10.98THISISIT 3.4945D2 3 ' 01210908 |
| G43VK = ' 2.343 34.394 ' 01220908 |
| K43VK = ' 0.934, 34.567 34.65 0.63540D1 ' 01230908 |
| N43VK = '34 34.98395.83000D2 F.FALSE.13.45300E+2 ' 01240908 |
| E51VK = ' 348 3.4783E1384.3847D1 T 3.48570 KDFJ D/.' 01250908 |
| L53VK = ' 0.345 ,3.4345E01,F, 34.85900D-1, 10.000012345678' 01260908 |
| I82VK = ' 2.34 , 2.456 2.34 , 2.456 0.234E01, 2.456E0001270908 |
| 1 0.234E+001, 2.456E-000' 01280908 |
| J97VK = ' 5.67980, 0.9876 5.67980, 0.9876 05.6798E001290908 |
| 10, 9.8760E-1 5.67980E0000,0.09876E+001' 01300908 |
| B291K(1) = '34.38457D1 34.38457D1 ' 01310908 |
| B291K(2) = '34.38457D1 ' 01320908 |
| B291K(3) = '34.38457D1 34.38457D1 ' 01330908 |
| B291K(4) = ' ' 01340908 |
| B291K(5) = '34.38457D1 ' 01350908 |
| M291K(1) = ' 98 ' 01360908 |
| M291K(2) = '8.40485D02 ' 01370908 |
| M291K(3) = ' ' 01380908 |
| M291K(4) = ' .TRUE. 340.435E-1, 3.494E+1' 01390908 |
| M291K(5) = '87654321 ' 01400908 |
| C431K(1) = ' 2.1000000D1 23.45600D3 23.450000000D2' 01410908 |
| C431K(2) = ' ' 01420908 |
| H131K(1) = '34.84' 01430908 |
| H131K(2) = '349.887' 01440908 |
| CT001* TEST 1 DOUBLE PRECISION FROM VARIABLE 01450908 |
| IVTNUM = 1 01460908 |
| READ(UNIT=A43VK,FMT=39201) AVD 01470908 |
| 39201 FORMAT(13X,D10.5) 01480908 |
| IF (AVD - 0.2345599998D+05) 20010, 10010, 40010 01490908 |
| 40010 IF (AVD - 0.2345600002D+05) 10010, 10010, 20010 01500908 |
| 10010 IVPASS = IVPASS + 1 01510908 |
| WRITE (NUVI, 80002) IVTNUM 01520908 |
| GO TO 0011 01530908 |
| 20010 IVFAIL = IVFAIL + 1 01540908 |
| DVCORR = 23.456D3 01550908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01560908 |
| 0011 CONTINUE 01570908 |
| CT002* TEST 2 FROM ELEMENT 01580908 |
| IVTNUM = 2 01590908 |
| READ(UNIT=C431K(1),FMT=39204) AVD 01600908 |
| 39204 FORMAT(D12.7) 01610908 |
| IF (AVD - 0.2099999999D+02) 20020, 10020, 40020 01620908 |
| 40020 IF (AVD - 0.2100000001D+02) 10020, 10020, 20020 01630908 |
| 10020 IVPASS = IVPASS + 1 01640908 |
| WRITE (NUVI, 80002) IVTNUM 01650908 |
| GO TO 0021 01660908 |
| 20020 IVFAIL = IVFAIL + 1 01670908 |
| DVCORR = 2.1D1 01680908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01690908 |
| 0021 CONTINUE 01700908 |
| CT003* TEST 3 FROM SUBSTRING 01710908 |
| IVTNUM = 3 01720908 |
| READ(UNIT=A43VK(19:),FMT=39206) AVD 01730908 |
| 39206 FORMAT(11X,D14.9) 01740908 |
| IF (AVD - 0.2344999998D+04) 20030, 10030, 40030 01750908 |
| 40030 IF (AVD - 0.2345000002D+04) 10030, 10030, 20030 01760908 |
| 10030 IVPASS = IVPASS + 1 01770908 |
| WRITE (NUVI, 80002) IVTNUM 01780908 |
| GO TO 0031 01790908 |
| 20030 IVFAIL = IVFAIL + 1 01800908 |
| DVCORR = 23.45D2 01810908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01820908 |
| 0031 CONTINUE 01830908 |
| CT004* TEST 4 FROM ARRAY 01840908 |
| IVTNUM = 4 01850908 |
| READ(UNIT=C431K,FMT=39208) CVD 01860908 |
| 39208 FORMAT(25X,D18.10) 01870908 |
| IF (CVD - 0.2344999998D+04) 20040, 10040, 40040 01880908 |
| 40040 IF (CVD - 0.2345000002D+04) 10040, 10040, 20040 01890908 |
| 10040 IVPASS = IVPASS + 1 01900908 |
| WRITE (NUVI, 80002) IVTNUM 01910908 |
| GO TO 0041 01920908 |
| 20040 IVFAIL = IVFAIL + 1 01930908 |
| DVCORR = 23.45D2 01940908 |
| WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 01950908 |
| 0041 CONTINUE 01960908 |
| C***** 01970908 |
| C***** TESTS 5 THRU 9 - LIST FROM ARRAY 01980908 |
| C***** 01990908 |
| CT005* TEST 5 02000908 |
| IVTNUM = 5 02010908 |
| READ(UNIT=B291K,FMT=39210) AVD, BVD, CVD, DVD, EVD 02020908 |
| 39210 FORMAT(D10.5,1X,D10.5,/,D10.5,/,D10.5,//,D10.5) 02030908 |
| IF (AVD - 0.3438456998D+03) 20050, 10050, 40050 02040908 |
| 40050 IF (AVD - 0.3438457002D+03) 10050, 10050, 20050 02050908 |
| 10050 IVPASS = IVPASS + 1 02060908 |
| WRITE (NUVI, 80002) IVTNUM 02070908 |
| GO TO 0051 02080908 |
| 20050 IVFAIL = IVFAIL + 1 02090908 |
| DVCORR = 34.38457D1 02100908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02110908 |
| 0051 CONTINUE 02120908 |
| CT006* TEST 6 02130908 |
| IVTNUM = 6 02140908 |
| IF (BVD - 0.3438456998D+03) 20060, 10060, 40060 02150908 |
| 40060 IF (BVD - 0.3438457002D+03) 10060, 10060, 20060 02160908 |
| 10060 IVPASS = IVPASS + 1 02170908 |
| WRITE (NUVI, 80002) IVTNUM 02180908 |
| GO TO 0061 02190908 |
| 20060 IVFAIL = IVFAIL + 1 02200908 |
| DVCORR = 34.38457D1 02210908 |
| WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02220908 |
| 0061 CONTINUE 02230908 |
| CT007* TEST 7 02240908 |
| IVTNUM = 7 02250908 |
| IF (CVD - 0.3438456998D+03) 20070, 10070, 40070 02260908 |
| 40070 IF (CVD - 0.3438457002D+03) 10070, 10070, 20070 02270908 |
| 10070 IVPASS = IVPASS + 1 02280908 |
| WRITE (NUVI, 80002) IVTNUM 02290908 |
| GO TO 0071 02300908 |
| 20070 IVFAIL = IVFAIL + 1 02310908 |
| DVCORR = 34.38457D1 02320908 |
| WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 02330908 |
| 0071 CONTINUE 02340908 |
| CT008* TEST 8 02350908 |
| IVTNUM = 8 02360908 |
| IF (DVD - 0.3438456998D+03) 20080, 10080, 40080 02370908 |
| 40080 IF (DVD - 0.3438457002D+03) 10080, 10080, 20080 02380908 |
| 10080 IVPASS = IVPASS + 1 02390908 |
| WRITE (NUVI, 80002) IVTNUM 02400908 |
| GO TO 0081 02410908 |
| 20080 IVFAIL = IVFAIL + 1 02420908 |
| DVCORR = 34.38457D1 02430908 |
| WRITE (NUVI, 80031) IVTNUM, DVD, DVCORR 02440908 |
| 0081 CONTINUE 02450908 |
| CT009* TEST 9 02460908 |
| IVTNUM = 9 02470908 |
| IF (EVD - 0.3438456998D+03) 20090, 10090, 40090 02480908 |
| 40090 IF (EVD - 0.3438457002D+03) 10090, 10090, 20090 02490908 |
| 10090 IVPASS = IVPASS + 1 02500908 |
| WRITE (NUVI, 80002) IVTNUM 02510908 |
| GO TO 0091 02520908 |
| 20090 IVFAIL = IVFAIL + 1 02530908 |
| DVCORR = 34.38457D1 02540908 |
| WRITE (NUVI, 80031) IVTNUM, EVD, DVCORR 02550908 |
| 0091 CONTINUE 02560908 |
| C***** 02570908 |
| C***** TESTS 10 THRU 13 - LIST FROM VARIABLE WITH DIFFERENT FORMATS 02580908 |
| C***** 02590908 |
| CT010* TEST 10 02600908 |
| IVTNUM = 10 02610908 |
| READ(UNIT=D43VK,FMT=39212) AVD, BVD, CVD, DVD 02620908 |
| 39212 FORMAT(D10.5,1X,F10.5,D11.5,G11.5) 02630908 |
| IF (AVD - 0.3458672998D+04) 20100, 10100, 40100 02640908 |
| 40100 IF (AVD - 0.3458673002D+04) 10100, 10100, 20100 02650908 |
| 10100 IVPASS = IVPASS + 1 02660908 |
| WRITE (NUVI, 80002) IVTNUM 02670908 |
| GO TO 0101 02680908 |
| 20100 IVFAIL = IVFAIL + 1 02690908 |
| DVCORR = 34.58673D2 02700908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02710908 |
| 0101 CONTINUE 02720908 |
| CT011* TEST 11 02730908 |
| IVTNUM = 11 02740908 |
| IF (BVD - 0.3458672998D+04) 20110, 10110, 40110 02750908 |
| 40110 IF (BVD - 0.3458673002D+04) 10110, 10110, 20110 02760908 |
| 10110 IVPASS = IVPASS + 1 02770908 |
| WRITE (NUVI, 80002) IVTNUM 02780908 |
| GO TO 0111 02790908 |
| 20110 IVFAIL = IVFAIL + 1 02800908 |
| DVCORR = 34.58673D2 02810908 |
| WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02820908 |
| 0111 CONTINUE 02830908 |
| CT012* TEST 12 02840908 |
| IVTNUM = 12 02850908 |
| IF (CVD - 0.3458672998D+04) 20120, 10120, 40120 02860908 |
| 40120 IF (CVD - 0.3458673002D+04) 10120, 10120, 20120 02870908 |
| 10120 IVPASS = IVPASS + 1 02880908 |
| WRITE (NUVI, 80002) IVTNUM 02890908 |
| GO TO 0121 02900908 |
| 20120 IVFAIL = IVFAIL + 1 02910908 |
| DVCORR = 34.58673D2 02920908 |
| WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 02930908 |
| 0121 CONTINUE 02940908 |
| CT013* TEST 13 02950908 |
| IVTNUM = 13 02960908 |
| IF (DVD - 0.3458672998D+04) 20130, 10130, 40130 02970908 |
| 40130 IF (DVD - 0.3458673002D+04) 10130, 10130, 20130 02980908 |
| 10130 IVPASS = IVPASS + 1 02990908 |
| WRITE (NUVI, 80002) IVTNUM 03000908 |
| GO TO 0131 03010908 |
| 20130 IVFAIL = IVFAIL + 1 03020908 |
| DVCORR = 34.58673D2 03030908 |
| WRITE (NUVI, 80031) IVTNUM, DVD, DVCORR 03040908 |
| 0131 CONTINUE 03050908 |
| C***** 03060908 |
| WRITE (NUVI, 90002) 03070908 |
| WRITE (NUVI, 90013) 03080908 |
| WRITE (NUVI, 90014) 03090908 |
| C***** 03100908 |
| C***** TESTS 14 THRU 19 - MIXED TYPES 03110908 |
| C***** 03120908 |
| CT014* TEST 14 03130908 |
| IVTNUM = 14 03140908 |
| READ(UNIT=E51VK,FMT=39214) KVI, AVS, AVD, AVB, BVS, A8VK 03150908 |
| 39214 FORMAT(I4,1X,E9.4,D10.4,1X,L4,1X,F12.5,1X,A8) 03160908 |
| IF (KVI - 348) 20140, 10140, 20140 03170908 |
| 10140 IVPASS = IVPASS + 1 03180908 |
| WRITE (NUVI, 80002) IVTNUM 03190908 |
| GO TO 0141 03200908 |
| 20140 IVFAIL = IVFAIL + 1 03210908 |
| IVCORR = 348 03220908 |
| WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 03230908 |
| 0141 CONTINUE 03240908 |
| CT015* TEST 15 03250908 |
| IVTNUM = 15 03260908 |
| IF (AVS - 0.34781E+02) 20150, 10150, 40150 03270908 |
| 40150 IF (AVS - 0.34785E+02) 10150, 10150, 20150 03280908 |
| 10150 IVPASS = IVPASS + 1 03290908 |
| WRITE (NUVI, 80002) IVTNUM 03300908 |
| GO TO 0151 03310908 |
| 20150 IVFAIL = IVFAIL + 1 03320908 |
| RVCORR = 34.783 03330908 |
| WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03340908 |
| 0151 CONTINUE 03350908 |
| CT016* TEST 16 03360908 |
| IVTNUM = 16 03370908 |
| IF (AVD - 0.3843846998D+04) 20160, 10160, 40160 03380908 |
| 40160 IF (AVD - 0.3843847002D+04) 10160, 10160, 20160 03390908 |
| 10160 IVPASS = IVPASS + 1 03400908 |
| WRITE (NUVI, 80002) IVTNUM 03410908 |
| GO TO 0161 03420908 |
| 20160 IVFAIL = IVFAIL + 1 03430908 |
| DVCORR = 384.3847D1 03440908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03450908 |
| 0161 CONTINUE 03460908 |
| CT017* TEST 17 03470908 |
| IVTNUM = 17 03480908 |
| IVCOMP = 0 03490908 |
| IF (AVB) IVCOMP = 1 03500908 |
| IF (IVCOMP - 1) 20170, 10170, 20170 03510908 |
| 10170 IVPASS = IVPASS + 1 03520908 |
| WRITE (NUVI, 80002) IVTNUM 03530908 |
| GO TO 0171 03540908 |
| 20170 IVFAIL = IVFAIL + 1 03550908 |
| LVCORR = 1 03560908 |
| REMRKS = '1 = TRUE ; 0 = FALSE' 03570908 |
| WRITE (NUVI, 80008) IVTNUM, REMRKS 03580908 |
| WRITE (NUVI, 80024) IVCOMP 03590908 |
| WRITE (NUVI, 80026) LVCORR 03600908 |
| 0171 CONTINUE 03610908 |
| CT018* TEST 18 03620908 |
| IVTNUM = 18 03630908 |
| IF (BVS - 0.34855E+01) 20180, 10180, 40180 03640908 |
| 40180 IF (BVS - 0.34859E+01) 10180, 10180, 20180 03650908 |
| 10180 IVPASS = IVPASS + 1 03660908 |
| WRITE (NUVI, 80002) IVTNUM 03670908 |
| GO TO 0181 03680908 |
| 20180 IVFAIL = IVFAIL + 1 03690908 |
| RVCORR = 3.4857 03700908 |
| WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 03710908 |
| 0181 CONTINUE 03720908 |
| CT019* TEST 19 03730908 |
| IVTNUM = 19 03740908 |
| IVCOMP = 0 03750908 |
| IF (A8VK.EQ.'KDFJ D/.') IVCOMP = 1 03760908 |
| IF (IVCOMP - 1) 20190, 10190, 20190 03770908 |
| 10190 IVPASS = IVPASS + 1 03780908 |
| WRITE (NUVI, 80002) IVTNUM 03790908 |
| GO TO 0191 03800908 |
| 20190 IVFAIL = IVFAIL + 1 03810908 |
| CVCORR = 'KDFJ D/.' 03820908 |
| WRITE (NUVI, 80018) IVTNUM, A8VK, CVCORR 03830908 |
| 0191 CONTINUE 03840908 |
| C***** 03850908 |
| C***** TESTS 20 THRU 25 - MIXED TYPES WITH TC, TLC, TRC, AND NX 03860908 |
| C***** 03870908 |
| CT020* TEST 20 03880908 |
| IVTNUM = 20 03890908 |
| READ(UNIT=F43VK,FMT=39216) AVB, AVS, A8VK, AVD, BVS, KVI 03900908 |
| 39216 FORMAT(L1,T5,F5.2,A8,TR2,D8.4,TL8,F6.4,4X,I1) 03910908 |
| IVCOMP = 0 03920908 |
| IF (AVB) IVCOMP = 1 03930908 |
| IF (IVCOMP - 1) 20200, 10200, 20200 03940908 |
| 10200 IVPASS = IVPASS + 1 03950908 |
| WRITE (NUVI, 80002) IVTNUM 03960908 |
| GO TO 0201 03970908 |
| 20200 IVFAIL = IVFAIL + 1 03980908 |
| LVCORR = 1 03990908 |
| REMRKS = '1 = TRUE ; 0 = FALSE' 04000908 |
| WRITE (NUVI, 80008) IVTNUM, REMRKS 04010908 |
| WRITE (NUVI, 80024) IVCOMP 04020908 |
| WRITE (NUVI, 80026) LVCORR 04030908 |
| 0201 CONTINUE 04040908 |
| CT021* TEST 21 04050908 |
| IVTNUM = 21 04060908 |
| IF (AVS - 0.10979E+02) 20210, 10210, 40210 04070908 |
| 40210 IF (AVS - 0.10981E+02) 10210, 10210, 20210 04080908 |
| 10210 IVPASS = IVPASS + 1 04090908 |
| WRITE (NUVI, 80002) IVTNUM 04100908 |
| GO TO 0211 04110908 |
| 20210 IVFAIL = IVFAIL + 1 04120908 |
| RVCORR = 10.98 04130908 |
| WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 04140908 |
| 0211 CONTINUE 04150908 |
| CT022* TEST 22 04160908 |
| IVTNUM = 22 04170908 |
| IVCOMP = 0 04180908 |
| IF (A8VK.EQ.'THISISIT') IVCOMP = 1 04190908 |
| IF (IVCOMP - 1) 20220, 10220, 20220 04200908 |
| 10220 IVPASS = IVPASS + 1 04210908 |
| WRITE (NUVI, 80002) IVTNUM 04220908 |
| GO TO 0221 04230908 |
| 20220 IVFAIL = IVFAIL + 1 04240908 |
| CVCORR = 'THISISIT' 04250908 |
| WRITE (NUVI, 80018) IVTNUM, A8VK, CVCORR 04260908 |
| 0221 CONTINUE 04270908 |
| CT023* TEST 23 04280908 |
| IVTNUM = 23 04290908 |
| IF (AVD - 0.3494499998D+03) 20230, 10230, 40230 04300908 |
| 40230 IF (AVD - 0.3494500002D+03) 10230, 10230, 20230 04310908 |
| 10230 IVPASS = IVPASS + 1 04320908 |
| WRITE (NUVI, 80002) IVTNUM 04330908 |
| GO TO 0231 04340908 |
| 20230 IVFAIL = IVFAIL + 1 04350908 |
| DVCORR = 3.4945D2 04360908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 04370908 |
| 0231 CONTINUE 04380908 |
| CT024* TEST 24 04390908 |
| IVTNUM = 24 04400908 |
| IF (BVS - 0.34943E+01) 20240, 10240, 40240 04410908 |
| 40240 IF (BVS - 0.34947E+01) 10240, 10240, 20240 04420908 |
| 10240 IVPASS = IVPASS + 1 04430908 |
| WRITE (NUVI, 80002) IVTNUM 04440908 |
| GO TO 0241 04450908 |
| 20240 IVFAIL = IVFAIL + 1 04460908 |
| RVCORR = 3.4945 04470908 |
| WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 04480908 |
| 0241 CONTINUE 04490908 |
| CT025* TEST 25 04500908 |
| IVTNUM = 25 04510908 |
| IF (KVI - 3) 20250, 10250, 20250 04520908 |
| 10250 IVPASS = IVPASS + 1 04530908 |
| WRITE (NUVI, 80002) IVTNUM 04540908 |
| GO TO 0251 04550908 |
| 20250 IVFAIL = IVFAIL + 1 04560908 |
| IVCORR = 3 04570908 |
| WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 04580908 |
| 0251 CONTINUE 04590908 |
| CT026* TEST 26 COMPLEX FROM VARIABLE 04600908 |
| IVTNUM = 26 04610908 |
| READ(UNIT=G43VK,FMT=39218) AVC 04620908 |
| 39218 FORMAT(F10.5,1X,F10.5) 04630908 |
| IF (R2E(1) - 0.23428E+01) 20260, 40262, 40261 04640908 |
| 40261 IF (R2E(1) - 0.23432E+01) 40262, 40262, 20260 04650908 |
| 40262 IF (R2E(2) - 0.34392E+02) 20260, 10260, 40260 04660908 |
| 40260 IF (R2E(2) - 0.34396E+02) 10260, 10260, 20260 04670908 |
| 10260 IVPASS = IVPASS + 1 04680908 |
| WRITE (NUVI, 80002) IVTNUM 04690908 |
| GO TO 0261 04700908 |
| 20260 IVFAIL = IVFAIL + 1 04710908 |
| ZVCORR = (2.343, 34.394) 04720908 |
| WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 04730908 |
| 0261 CONTINUE 04740908 |
| CT027* TEST 27 COMPLEX FROM ARRAY 04750908 |
| IVTNUM = 27 04760908 |
| READ(UNIT=H131K,FMT=39220) AVC 04770908 |
| 39220 FORMAT(E12.5,/,E12.5) 04780908 |
| IF (R2E(1) - 0.34838E+02) 20270, 40272, 40271 04790908 |
| 40271 IF (R2E(1) - 0.34842E+02) 40272, 40272, 20270 04800908 |
| 40272 IF (R2E(2) - 0.34987E+03) 20270, 10270, 40270 04810908 |
| 40270 IF (R2E(2) - 0.34991E+03) 10270, 10270, 20270 04820908 |
| 10270 IVPASS = IVPASS + 1 04830908 |
| WRITE (NUVI, 80002) IVTNUM 04840908 |
| GO TO 0271 04850908 |
| 20270 IVFAIL = IVFAIL + 1 04860908 |
| ZVCORR = (34.84, 349.887) 04870908 |
| WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 04880908 |
| 0271 CONTINUE 04890908 |
| C***** 04900908 |
| WRITE (NUVI, 90002) 04910908 |
| WRITE (NUVI, 90013) 04920908 |
| WRITE (NUVI, 90014) 04930908 |
| C***** 04940908 |
| C***** TESTS 28 THRU 31 - COMPLEX LIST FROM VARIABLE POSITION 1X BEYOND04950908 |
| C***** VARIABLE LENGTH 04960908 |
| CT028* TEST 28 04970908 |
| IVTNUM = 28 04980908 |
| READ(UNIT=I82VK,FMT=39222) AVC, BVC, CVC, DVC 04990908 |
| 39222 FORMAT(2(2(G7.5,1X),2X),2(G10.4E2,1X),1X,2(G11.7E4,1X)) 05000908 |
| IF (R2E(1) - 0.23398E+01) 20280, 40282, 40281 05010908 |
| 40281 IF (R2E(1) - 0.23402E+01) 40282, 40282, 20280 05020908 |
| 40282 IF (R2E(2) - 0.24558E+01) 20280, 10280, 40280 05030908 |
| 40280 IF (R2E(2) - 0.24562E+01) 10280, 10280, 20280 05040908 |
| 10280 IVPASS = IVPASS + 1 05050908 |
| WRITE (NUVI, 80002) IVTNUM 05060908 |
| GO TO 0281 05070908 |
| 20280 IVFAIL = IVFAIL + 1 05080908 |
| ZVCORR = (2.34, 2.456) 05090908 |
| WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 05100908 |
| 0281 CONTINUE 05110908 |
| CT029* TEST 29 05120908 |
| IVTNUM = 29 05130908 |
| IF (R2E(3) - 0.23398E+01) 20290, 40292, 40291 05140908 |
| 40291 IF (R2E(3) - 0.23402E+01) 40292, 40292, 20290 05150908 |
| 40292 IF (R2E(4) - 0.24558E+01) 20290, 10290, 40290 05160908 |
| 40290 IF (R2E(4) - 0.24562E+01) 10290, 10290, 20290 05170908 |
| 10290 IVPASS = IVPASS + 1 05180908 |
| WRITE (NUVI, 80002) IVTNUM 05190908 |
| GO TO 0291 05200908 |
| 20290 IVFAIL = IVFAIL + 1 05210908 |
| ZVCORR = (2.34, 2.456) 05220908 |
| WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 05230908 |
| 0291 CONTINUE 05240908 |
| CT030* TEST 30 05250908 |
| IVTNUM = 30 05260908 |
| IF (R2E(5) - 0.23398E+01) 20300, 40302, 40301 05270908 |
| 40301 IF (R2E(5) - 0.23402E+01) 40302, 40302, 20300 05280908 |
| 40302 IF (R2E(6) - 0.24558E+01) 20300, 10300, 40300 05290908 |
| 40300 IF (R2E(6) - 0.24562E+01) 10300, 10300, 20300 05300908 |
| 10300 IVPASS = IVPASS + 1 05310908 |
| WRITE (NUVI, 80002) IVTNUM 05320908 |
| GO TO 0301 05330908 |
| 20300 IVFAIL = IVFAIL + 1 05340908 |
| ZVCORR = (2.34, 2.456) 05350908 |
| WRITE (NUVI, 80045) IVTNUM, CVC, ZVCORR 05360908 |
| 0301 CONTINUE 05370908 |
| CT031* TEST 31 05380908 |
| IVTNUM = 31 05390908 |
| IF (R2E(7) - 0.23398E+01) 20310, 40312, 40311 05400908 |
| 40311 IF (R2E(7) - 0.23402E+01) 40312, 40312, 20310 05410908 |
| 40312 IF (R2E(8) - 0.24558E+01) 20310, 10310, 40310 05420908 |
| 40310 IF (R2E(8) - 0.24562E+01) 10310, 10310, 20310 05430908 |
| 10310 IVPASS = IVPASS + 1 05440908 |
| WRITE (NUVI, 80002) IVTNUM 05450908 |
| GO TO 0311 05460908 |
| 20310 IVFAIL = IVFAIL + 1 05470908 |
| ZVCORR = (2.34, 2.456) 05480908 |
| WRITE (NUVI, 80045) IVTNUM, DVC, ZVCORR 05490908 |
| 0311 CONTINUE 05500908 |
| C***** 05510908 |
| C***** TESTS 32 THRU 35 - COMPLEX LIST USING EW.D AND EW.DEN 05520908 |
| C***** 05530908 |
| CT032* TEST 32 05540908 |
| IVTNUM = 32 05550908 |
| READ(UNIT=J97VK(1:),FMT=39224) AVC, BVC, CVC, DVC 05560908 |
| 39224 FORMAT(2(2(E10.5,1X),2X),2(E10.4E2,1X),1X,2(E12.5E4,1X)) 05570908 |
| IF (R2E(1) - 0.56795E+01) 20320, 40322, 40321 05580908 |
| 40321 IF (R2E(1) - 0.56801E+01) 40322, 40322, 20320 05590908 |
| 40322 IF (R2E(2) - 0.98755E+00) 20320, 10320, 40320 05600908 |
| 40320 IF (R2E(2) - 0.98765E+00) 10320, 10320, 20320 05610908 |
| 10320 IVPASS = IVPASS + 1 05620908 |
| WRITE (NUVI, 80002) IVTNUM 05630908 |
| GO TO 0321 05640908 |
| 20320 IVFAIL = IVFAIL + 1 05650908 |
| ZVCORR = (5.6798, 0.9876) 05660908 |
| WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 05670908 |
| 0321 CONTINUE 05680908 |
| CT033* TEST 33 05690908 |
| IVTNUM = 33 05700908 |
| IF (R2E(3) - 0.56795E+01) 20330, 40332, 40331 05710908 |
| 40331 IF (R2E(3) - 0.56801E+01) 40332, 40332, 20330 05720908 |
| 40332 IF (R2E(4) - 0.98755E+00) 20330, 10330, 40330 05730908 |
| 40330 IF (R2E(4) - 0.98765E+00) 10330, 10330, 20330 05740908 |
| 10330 IVPASS = IVPASS + 1 05750908 |
| WRITE (NUVI, 80002) IVTNUM 05760908 |
| GO TO 0331 05770908 |
| 20330 IVFAIL = IVFAIL + 1 05780908 |
| ZVCORR = (5.6798, 0.9876) 05790908 |
| WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 05800908 |
| 0331 CONTINUE 05810908 |
| CT034* TEST 34 05820908 |
| IVTNUM = 34 05830908 |
| IF (R2E(5) - 0.56795E+01) 20340, 40342, 40341 05840908 |
| 40341 IF (R2E(5) - 0.56801E+01) 40342, 40342, 20340 05850908 |
| 40342 IF (R2E(6) - 0.98755E+00) 20340, 10340, 40340 05860908 |
| 40340 IF (R2E(6) - 0.98765E+00) 10340, 10340, 20340 05870908 |
| 10340 IVPASS = IVPASS + 1 05880908 |
| WRITE (NUVI, 80002) IVTNUM 05890908 |
| GO TO 0341 05900908 |
| 20340 IVFAIL = IVFAIL + 1 05910908 |
| ZVCORR = (5.6798, 0.9876) 05920908 |
| WRITE (NUVI, 80045) IVTNUM, CVC, ZVCORR 05930908 |
| 0341 CONTINUE 05940908 |
| CT035* TEST 35 05950908 |
| IVTNUM = 35 05960908 |
| IF (R2E(7) - 0.56795E+01) 20350, 40352, 40351 05970908 |
| 40351 IF (R2E(7) - 0.56801E+01) 40352, 40352, 20350 05980908 |
| 40352 IF (R2E(8) - 0.98755E+00) 20350, 10350, 40350 05990908 |
| 40350 IF (R2E(8) - 0.98765E+00) 10350, 10350, 20350 06000908 |
| 10350 IVPASS = IVPASS + 1 06010908 |
| WRITE (NUVI, 80002) IVTNUM 06020908 |
| GO TO 0351 06030908 |
| 20350 IVFAIL = IVFAIL + 1 06040908 |
| ZVCORR = (5.6798, 0.9876) 06050908 |
| WRITE (NUVI, 80045) IVTNUM, DVC, ZVCORR 06060908 |
| 0351 CONTINUE 06070908 |
| C***** 06080908 |
| C***** TESTS 36 THRU 38 - MIXED TYPES FROM VARIABLE 06090908 |
| C***** 06100908 |
| CT036* TEST 36 06110908 |
| IVTNUM = 36 06120908 |
| READ(UNIT=K43VK,FMT=39226) AVC, AVS, AVD 06130908 |
| 39226 FORMAT(F7.3,1X,F7.3,1X,F10.5,1X,D13.5) 06140908 |
| IF (R2E(1) - 0.93395E+00) 20360, 40362, 40361 06150908 |
| 40361 IF (R2E(1) - 0.93405E+00) 40362, 40362, 20360 06160908 |
| 40362 IF (R2E(2) - 0.34565E+02) 20360, 10360, 40360 06170908 |
| 40360 IF (R2E(2) - 0.34569E+02) 10360, 10360, 20360 06180908 |
| 10360 IVPASS = IVPASS + 1 06190908 |
| WRITE (NUVI, 80002) IVTNUM 06200908 |
| GO TO 0361 06210908 |
| 20360 IVFAIL = IVFAIL + 1 06220908 |
| ZVCORR = (0.934, 34.567) 06230908 |
| WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 06240908 |
| 0361 CONTINUE 06250908 |
| CT037* TEST 37 06260908 |
| IVTNUM = 37 06270908 |
| IF (AVS - 0.34648E+02) 20370, 10370, 40370 06280908 |
| 40370 IF (AVS - 0.34652E+02) 10370, 10370, 20370 06290908 |
| 10370 IVPASS = IVPASS + 1 06300908 |
| WRITE (NUVI, 80002) IVTNUM 06310908 |
| GO TO 0371 06320908 |
| 20370 IVFAIL = IVFAIL + 1 06330908 |
| RVCORR = 34.65 06340908 |
| WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 06350908 |
| 0371 CONTINUE 06360908 |
| CT038* TEST 38 06370908 |
| IVTNUM = 38 06380908 |
| IF (AVD - 0.6353999996D+01) 20380, 10380, 40380 06390908 |
| 40380 IF (AVD - 0.6354000004D+01) 10380, 10380, 20380 06400908 |
| 10380 IVPASS = IVPASS + 1 06410908 |
| WRITE (NUVI, 80002) IVTNUM 06420908 |
| GO TO 0381 06430908 |
| 20380 IVFAIL = IVFAIL + 1 06440908 |
| DVCORR = 0.6354D1 06450908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 06460908 |
| 0381 CONTINUE 06470908 |
| C***** 06480908 |
| C***** TESTS 39 THRU 43 - MIXED TYPES FROM ARRAY 06490908 |
| C***** 06500908 |
| CT039* TEST 39 06510908 |
| IVTNUM = 39 06520908 |
| READ(UNIT=L53VK,FMT=39228) AVC, AVB, AVD, AVS, A8VK 06530908 |
| 39228 FORMAT(F9.4,1X,E9.4,1X,L1,1X,D12.5,1X,G9.4,A8) 06540908 |
| IF (R2E(1) - 0.34498E+00) 20390, 40392, 40391 06550908 |
| 40391 IF (R2E(1) - 0.34502E+00) 40392, 40392, 20390 06560908 |
| 40392 IF (R2E(2) - 0.34343E+02) 20390, 10390, 40390 06570908 |
| 40390 IF (R2E(2) - 0.34347E+02) 10390, 10390, 20390 06580908 |
| 10390 IVPASS = IVPASS + 1 06590908 |
| WRITE (NUVI, 80002) IVTNUM 06600908 |
| GO TO 0391 06610908 |
| 20390 IVFAIL = IVFAIL + 1 06620908 |
| ZVCORR = (0.345, 34.345) 06630908 |
| WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 06640908 |
| 0391 CONTINUE 06650908 |
| CT040* TEST 40 06660908 |
| IVTNUM = 40 06670908 |
| IVCOMP = 0 06680908 |
| IF (AVB) IVCOMP = 1 06690908 |
| IF (IVCOMP - 0) 20400, 10400, 20400 06700908 |
| 10400 IVPASS = IVPASS + 1 06710908 |
| WRITE (NUVI, 80002) IVTNUM 06720908 |
| GO TO 0401 06730908 |
| 20400 IVFAIL = IVFAIL + 1 06740908 |
| LVCORR = 0 06750908 |
| REMRKS = '1 = TRUE ; 0 = FALSE' 06760908 |
| WRITE (NUVI, 80008) IVTNUM, REMRKS 06770908 |
| WRITE (NUVI, 80024) IVCOMP 06780908 |
| WRITE (NUVI, 80026) LVCORR 06790908 |
| 0401 CONTINUE 06800908 |
| CT041* TEST 41 06810908 |
| IVTNUM = 41 06820908 |
| IF (AVD - 0.3485899998D+01) 20410, 10410, 40410 06830908 |
| 40410 IF (AVD - 0.3485900002D+01) 10410, 10410, 20410 06840908 |
| 10410 IVPASS = IVPASS + 1 06850908 |
| WRITE (NUVI, 80002) IVTNUM 06860908 |
| GO TO 0411 06870908 |
| 20410 IVFAIL = IVFAIL + 1 06880908 |
| DVCORR = 34.859D-1 06890908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 06900908 |
| 0411 CONTINUE 06910908 |
| CT042* TEST 42 06920908 |
| IVTNUM = 42 06930908 |
| IF (AVS - 0.99995E+01) 20420, 10420, 40420 06940908 |
| 40420 IF (AVS - 0.10001E+02) 10420, 10420, 20420 06950908 |
| 10420 IVPASS = IVPASS + 1 06960908 |
| WRITE (NUVI, 80002) IVTNUM 06970908 |
| GO TO 0421 06980908 |
| 20420 IVFAIL = IVFAIL + 1 06990908 |
| RVCORR = 10.0 07000908 |
| WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 07010908 |
| 0421 CONTINUE 07020908 |
| CT043* TEST 43 07030908 |
| IVTNUM = 43 07040908 |
| IVCOMP = 0 07050908 |
| IF (A8VK.EQ.'12345678') IVCOMP = 1 07060908 |
| IF (IVCOMP - 1) 20430, 10430, 20430 07070908 |
| 10430 IVPASS = IVPASS + 1 07080908 |
| WRITE (NUVI, 80002) IVTNUM 07090908 |
| GO TO 0431 07100908 |
| 20430 IVFAIL = IVFAIL + 1 07110908 |
| CVCORR = '12345678' 07120908 |
| WRITE (NUVI, 80018) IVTNUM, A8VK, CVCORR 07130908 |
| 0431 CONTINUE 07140908 |
| C***** 07150908 |
| WRITE (NUVI, 90002) 07160908 |
| WRITE (NUVI, 90013) 07170908 |
| WRITE (NUVI, 90014) 07180908 |
| C***** 07190908 |
| C***** TESTS 44 THRU 48 - READ 5 RECORD FROM ARRAY POSITION 1X BEYOND 07200908 |
| C***** ARRAY ELEMENT 07210908 |
| C***** 07220908 |
| CT044* TEST 44 07230908 |
| IVTNUM = 44 07240908 |
| READ(UNIT=M291K,FMT=39230) KVI, AVD, AVB, AVC, A8VK 07250908 |
| 39230 FORMAT(I5,/,D10.5,//,1X,L6,1X,2(E10.3,1X),/,A8) 07260908 |
| IF (KVI - 98) 20440, 10440, 20440 07270908 |
| 10440 IVPASS = IVPASS + 1 07280908 |
| WRITE (NUVI, 80002) IVTNUM 07290908 |
| GO TO 0441 07300908 |
| 20440 IVFAIL = IVFAIL + 1 07310908 |
| IVCORR = 98 07320908 |
| WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 07330908 |
| 0441 CONTINUE 07340908 |
| CT045* TEST 45 07350908 |
| IVTNUM = 45 07360908 |
| IF (AVD - 0.8404849995D+03) 20450, 10450, 40450 07370908 |
| 40450 IF (AVD - 0.8404850004D+03) 10450, 10450, 20450 07380908 |
| 10450 IVPASS = IVPASS + 1 07390908 |
| WRITE (NUVI, 80002) IVTNUM 07400908 |
| GO TO 0451 07410908 |
| 20450 IVFAIL = IVFAIL + 1 07420908 |
| DVCORR = 84.0485D1 07430908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 07440908 |
| 0451 CONTINUE 07450908 |
| CT046* TEST 46 07460908 |
| IVTNUM = 46 07470908 |
| IVCOMP = 0 07480908 |
| IF (AVB) IVCOMP = 1 07490908 |
| IF (IVCOMP - 1) 20460, 10460, 20460 07500908 |
| 10460 IVPASS = IVPASS + 1 07510908 |
| WRITE (NUVI, 80002) IVTNUM 07520908 |
| GO TO 0461 07530908 |
| 20460 IVFAIL = IVFAIL + 1 07540908 |
| LVCORR = 1 07550908 |
| REMRKS = '1 = TRUE ; 0 = FALSE' 07560908 |
| WRITE (NUVI, 80008) IVTNUM, REMRKS 07570908 |
| WRITE (NUVI, 80024) IVCOMP 07580908 |
| WRITE (NUVI, 80026) LVCORR 07590908 |
| 0461 CONTINUE 07600908 |
| CT047* TEST 47 07610908 |
| IVTNUM = 47 07620908 |
| IF (R2E(1) - 0.34041E+02) 20470, 40472, 40471 07630908 |
| 40471 IF (R2E(1) - 0.34046E+02) 40472, 40472, 20470 07640908 |
| 40472 IF (R2E(2) - 0.34938E+02) 20470, 10470, 40470 07650908 |
| 40470 IF (R2E(2) - 0.34942E+02) 10470, 10470, 20470 07660908 |
| 10470 IVPASS = IVPASS + 1 07670908 |
| WRITE (NUVI, 80002) IVTNUM 07680908 |
| GO TO 0471 07690908 |
| 20470 IVFAIL = IVFAIL + 1 07700908 |
| ZVCORR = (34.0435, 34.94) 07710908 |
| WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 07720908 |
| 0471 CONTINUE 07730908 |
| CT048* TEST 48 07740908 |
| IVTNUM = 48 07750908 |
| IVCOMP = 0 07760908 |
| IF (A8VK.EQ.'87654321') IVCOMP = 1 07770908 |
| IF (IVCOMP - 1) 20480, 10480, 20480 07780908 |
| 10480 IVPASS = IVPASS + 1 07790908 |
| WRITE (NUVI, 80002) IVTNUM 07800908 |
| GO TO 0481 07810908 |
| 20480 IVFAIL = IVFAIL + 1 07820908 |
| CVCORR = '87654321' 07830908 |
| WRITE (NUVI, 80018) IVTNUM, A8VK, CVCORR 07840908 |
| 0481 CONTINUE 07850908 |
| C***** 07860908 |
| C***** TESTS 49 THRU 54 - MIXED TYPES, NX, AND : 07870908 |
| C***** 07880908 |
| CT049* TEST 49 07890908 |
| IVTNUM = 49 07900908 |
| READ(UNIT=N43VK,FMT=39232)JVI,AVS,AVD,AVB,A8VK,BVS 07910908 |
| 39232 FORMAT(I2,1X,F6.3,D10.5,L2,A8,E10.5,:,I5,2X,F10.4) 07920908 |
| IF (JVI - 34) 20490, 10490, 20490 07930908 |
| 10490 IVPASS = IVPASS + 1 07940908 |
| WRITE (NUVI, 80002) IVTNUM 07950908 |
| GO TO 0491 07960908 |
| 20490 IVFAIL = IVFAIL + 1 07970908 |
| IVCORR = 34 07980908 |
| WRITE (NUVI, 80010) IVTNUM, JVI, IVCORR 07990908 |
| 0491 CONTINUE 08000908 |
| CT050* TEST 50 08010908 |
| IVTNUM = 50 08020908 |
| IF (AVS - 0.34981E+02) 20500, 10500, 40500 08030908 |
| 40500 IF (AVS - 0.34985E+02) 10500, 10500, 20500 08040908 |
| 10500 IVPASS = IVPASS + 1 08050908 |
| WRITE (NUVI, 80002) IVTNUM 08060908 |
| GO TO 0501 08070908 |
| 20500 IVFAIL = IVFAIL + 1 08080908 |
| RVCORR = 34.983 08090908 |
| WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 08100908 |
| 0501 CONTINUE 08110908 |
| CT051* TEST 51 08120908 |
| IVTNUM = 51 08130908 |
| IF (AVD - 0.9582999995D+04) 20510, 10510, 40510 08140908 |
| 40510 IF (AVD - 0.9583000005D+04) 10510, 10510, 20510 08150908 |
| 10510 IVPASS = IVPASS + 1 08160908 |
| WRITE (NUVI, 80002) IVTNUM 08170908 |
| GO TO 0511 08180908 |
| 20510 IVFAIL = IVFAIL + 1 08190908 |
| DVCORR = 95.83D2 08200908 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 08210908 |
| 0511 CONTINUE 08220908 |
| CT052* TEST 52 08230908 |
| IVTNUM = 52 08240908 |
| IVCOMP = 0 08250908 |
| IF (AVB) IVCOMP = 1 08260908 |
| IF (IVCOMP - 0) 20520, 10520, 20520 08270908 |
| 10520 IVPASS = IVPASS + 1 08280908 |
| WRITE (NUVI, 80002) IVTNUM 08290908 |
| GO TO 0521 08300908 |
| 20520 IVFAIL = IVFAIL + 1 08310908 |
| LVCORR = 0 08320908 |
| REMRKS = '1 = TRUE ; 0 = FALSE' 08330908 |
| WRITE (NUVI, 80008) IVTNUM, REMRKS 08340908 |
| WRITE (NUVI, 80024) IVCOMP 08350908 |
| WRITE (NUVI, 80026) LVCORR 08360908 |
| 0521 CONTINUE 08370908 |
| CT053* TEST 53 08380908 |
| IVTNUM = 53 08390908 |
| IVCOMP = 0 08400908 |
| IF (A8VK.EQ.'.FALSE.1') IVCOMP = 1 08410908 |
| IF (IVCOMP - 1) 20530, 10530, 20530 08420908 |
| 10530 IVPASS = IVPASS + 1 08430908 |
| WRITE (NUVI, 80002) IVTNUM 08440908 |
| GO TO 0531 08450908 |
| 20530 IVFAIL = IVFAIL + 1 08460908 |
| CVCORR = '.FALSE.1' 08470908 |
| WRITE (NUVI, 80018) IVTNUM, A8VK, CVCORR 08480908 |
| 0531 CONTINUE 08490908 |
| CT054* TEST 54 08500908 |
| IVTNUM = 54 08510908 |
| IF (BVS - 0.34528E+03) 20540, 10540, 40540 08520908 |
| 40540 IF (BVS - 0.34532E+03) 10540, 10540, 20540 08530908 |
| 10540 IVPASS = IVPASS + 1 08540908 |
| WRITE (NUVI, 80002) IVTNUM 08550908 |
| GO TO 0541 08560908 |
| 20540 IVFAIL = IVFAIL + 1 08570908 |
| RVCORR = 345.3 08580908 |
| WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 08590908 |
| 0541 CONTINUE 08600908 |
| C***** 08610908 |
| CBB** ********************** BBCSUM0 **********************************08620908 |
| C**** WRITE OUT TEST SUMMARY 08630908 |
| C**** 08640908 |
| IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 08650908 |
| WRITE (I02, 90004) 08660908 |
| WRITE (I02, 90014) 08670908 |
| WRITE (I02, 90004) 08680908 |
| WRITE (I02, 90020) IVPASS 08690908 |
| WRITE (I02, 90022) IVFAIL 08700908 |
| WRITE (I02, 90024) IVDELE 08710908 |
| WRITE (I02, 90026) IVINSP 08720908 |
| WRITE (I02, 90028) IVTOTN, IVTOTL 08730908 |
| CBE** ********************** BBCSUM0 **********************************08740908 |
| CBB** ********************** BBCFOOT0 **********************************08750908 |
| C**** WRITE OUT REPORT FOOTINGS 08760908 |
| C**** 08770908 |
| WRITE (I02,90016) ZPROG, ZPROG 08780908 |
| WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 08790908 |
| WRITE (I02,90019) 08800908 |
| CBE** ********************** BBCFOOT0 **********************************08810908 |
| CBB** ********************** BBCFMT0A **********************************08820908 |
| C**** FORMATS FOR TEST DETAIL LINES 08830908 |
| C**** 08840908 |
| 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 08850908 |
| 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 08860908 |
| 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 08870908 |
| 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 08880908 |
| 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 08890908 |
| 1I6,/," ",15X,"CORRECT= " ,I6) 08900908 |
| 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 08910908 |
| 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 08920908 |
| 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 08930908 |
| 1A21,/," ",16X,"CORRECT= " ,A21) 08940908 |
| 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 08950908 |
| 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 08960908 |
| 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 08970908 |
| 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 08980908 |
| 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 08990908 |
| 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 09000908 |
| 80050 FORMAT (" ",48X,A31) 09010908 |
| CBE** ********************** BBCFMT0A **********************************09020908 |
| CBB** ********************** BBCFMAT1 **********************************09030908 |
| C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 09040908 |
| C**** 09050908 |
| 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 09060908 |
| 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 09070908 |
| 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 09080908 |
| 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 09090908 |
| 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 09100908 |
| 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 09110908 |
| 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 09120908 |
| 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 09130908 |
| 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 09140908 |
| 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 09150908 |
| 2"(",F12.5,", ",F12.5,")") 09160908 |
| CBE** ********************** BBCFMAT1 **********************************09170908 |
| CBB** ********************** BBCFMT0B **********************************09180908 |
| C**** FORMAT STATEMENTS FOR PAGE HEADERS 09190908 |
| C**** 09200908 |
| 90002 FORMAT ("1") 09210908 |
| 90004 FORMAT (" ") 09220908 |
| 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )09230908 |
| 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 09240908 |
| 90008 FORMAT (" ",21X,A13,A17) 09250908 |
| 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 09260908 |
| 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 09270908 |
| 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 09280908 |
| 1 7X,"REMARKS",24X) 09290908 |
| 90014 FORMAT (" ","----------------------------------------------" , 09300908 |
| 1 "---------------------------------" ) 09310908 |
| 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 09320908 |
| C**** 09330908 |
| C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 09340908 |
| C**** 09350908 |
| 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 09360908 |
| 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 09370908 |
| 1 A13) 09380908 |
| 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 09390908 |
| C**** 09400908 |
| C**** FORMAT STATEMENTS FOR RUN SUMMARY 09410908 |
| C**** 09420908 |
| 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 09430908 |
| 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 09440908 |
| 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 09450908 |
| 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 09460908 |
| 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 09470908 |
| CBE** ********************** BBCFMT0B **********************************09480908 |
| C***** 09490908 |
| C***** END OF TEST SEGMENT 392 09500908 |
| STOP 09510908 |
| END 09520908 |