PROGRAM FM369 C***********************************************************************00010369 C***** FORTRAN 77 00020369 C***** FM369 00030369 C***** XEXP - (178) 00040369 C***** 00050369 C***********************************************************************00060369 C***** GENERAL PURPOSE SUBSET REF 00070369 C***** TEST INTRINSIC FUNCTION EXP 15.3 00080369 C***** TABLE 5 00090369 C***** 00100369 CBB** ********************** BBCCOMNT **********************************00110369 C**** 00120369 C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130369 C**** VERSION 2.1 00140369 C**** 00150369 C**** 00160369 C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170369 C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180369 C**** SOFTWARE STANDARDS VALIDATION GROUP 00190369 C**** BUILDING 225 RM A266 00200369 C**** GAITHERSBURG, MD 20899 00210369 C**** 00220369 C**** 00230369 C**** 00240369 CBE** ********************** BBCCOMNT **********************************00250369 CBB** ********************** BBCINITA **********************************00260369 C**** SPECIFICATION STATEMENTS 00270369 C**** 00280369 CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290369 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300369 CBE** ********************** BBCINITA **********************************00310369 CBB** ********************** BBCINITB **********************************00320369 C**** INITIALIZE SECTION 00330369 DATA ZVERS, ZVERSD, ZDATE 00340369 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00350369 DATA ZCOMPL, ZNAME, ZTAPE 00360369 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370369 DATA ZPROJ, ZTAPED, ZPROG 00380369 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390369 DATA REMRKS /' '/ 00400369 C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410369 C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420369 C**** 00430369 CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440369 CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450369 CZ03 ZPROG = 'PROGRAM NAME' 00460369 CZ04 ZDATE = 'DATE OF TEST' 00470369 CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480369 CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490369 CZ07 ZNAME = 'NAME OF USER' 00500369 CZ08 ZTAPE = 'TAPE OWNER/ID' 00510369 CZ09 ZTAPED = 'DATE TAPE COPIED' 00520369 C 00530369 IVPASS = 0 00540369 IVFAIL = 0 00550369 IVDELE = 0 00560369 IVINSP = 0 00570369 IVTOTL = 0 00580369 IVTOTN = 0 00590369 ICZERO = 0 00600369 C 00610369 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620369 I01 = 05 00630369 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640369 I02 = 06 00650369 C 00660369 CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00670369 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680369 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690369 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700369 C 00710369 CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00720369 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730369 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740369 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750369 C 00760369 CBE** ********************** BBCINITB **********************************00770369 NUVI = I02 00780369 IVTOTL = 19 00790369 ZPROG = 'FM369' 00800369 CBB** ********************** BBCHED0A **********************************00810369 C**** 00820369 C**** WRITE REPORT TITLE 00830369 C**** 00840369 WRITE (I02, 90002) 00850369 WRITE (I02, 90006) 00860369 WRITE (I02, 90007) 00870369 WRITE (I02, 90008) ZVERS, ZVERSD 00880369 WRITE (I02, 90009) ZPROG, ZPROG 00890369 WRITE (I02, 90010) ZDATE, ZCOMPL 00900369 CBE** ********************** BBCHED0A **********************************00910369 C***** 00920369 C***** HEADER FOR SEGMENT 178 00930369 WRITE(NUVI,17800) 00940369 17800 FORMAT(" ", / " XEXP - (178) INTRINSIC FUNCTIONS" // 00950369 1 " EXP (EXPONENTIAL)" // 00960369 2 " SUBSET REF. - 15.3" ) 00970369 CBB** ********************** BBCHED0B **********************************00980369 C**** WRITE DETAIL REPORT HEADERS 00990369 C**** 01000369 WRITE (I02,90004) 01010369 WRITE (I02,90004) 01020369 WRITE (I02,90013) 01030369 WRITE (I02,90014) 01040369 WRITE (I02,90015) IVTOTL 01050369 CBE** ********************** BBCHED0B **********************************01060369 C***** 01070369 CT001* TEST 1 ZERO SINCE EXP(0.0) = 1 01080369 IVTNUM = 1 01090369 BVS = 0.0 01100369 AVS = EXP(BVS) 01110369 IF (AVS - 0.99995E+00) 20010, 10010, 40010 01120369 40010 IF (AVS - 0.10001E+01) 10010, 10010, 20010 01130369 10010 IVPASS = IVPASS + 1 01140369 WRITE (NUVI, 80002) IVTNUM 01150369 GO TO 0011 01160369 20010 IVFAIL = IVFAIL + 1 01170369 RVCORR = 0.10000000000000E+01 01180369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01190369 0011 CONTINUE 01200369 CT002* TEST 2 ONE SINCE EXP(1.0) = E 01210369 IVTNUM = 2 01220369 AVS = EXP(1.0) 01230369 IF (AVS - 0.27181E+01) 20020, 10020, 40020 01240369 40020 IF (AVS - 0.27185E+01) 10020, 10020, 20020 01250369 10020 IVPASS = IVPASS + 1 01260369 WRITE (NUVI, 80002) IVTNUM 01270369 GO TO 0021 01280369 20020 IVFAIL = IVFAIL + 1 01290369 RVCORR = 0.27182818284590E+01 01300369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01310369 0021 CONTINUE 01320369 C***** TESTS 3 THRU 5 - POSITIVE VALUES 01330369 CT003* TEST 3 01340369 IVTNUM = 3 01350369 AVS = EXP(2.0) 01360369 IF (AVS - 0.73886E+01) 20030, 10030, 40030 01370369 40030 IF (AVS - 0.73895E+01) 10030, 10030, 20030 01380369 10030 IVPASS = IVPASS + 1 01390369 WRITE (NUVI, 80002) IVTNUM 01400369 GO TO 0031 01410369 20030 IVFAIL = IVFAIL + 1 01420369 RVCORR = 0.73890560989307E+01 01430369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01440369 0031 CONTINUE 01450369 CT004* TEST 4 01460369 IVTNUM = 4 01470369 AVS = EXP(5.125) 01480369 IF (AVS - 0.16816E+03) 20040, 10040, 40040 01490369 40040 IF (AVS - 0.16819E+03) 10040, 10040, 20040 01500369 10040 IVPASS = IVPASS + 1 01510369 WRITE (NUVI, 80002) IVTNUM 01520369 GO TO 0041 01530369 20040 IVFAIL = IVFAIL + 1 01540369 RVCORR = 0.16817414165185E+03 01550369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01560369 0041 CONTINUE 01570369 CT005* TEST 5 01580369 IVTNUM = 5 01590369 AVS = EXP(15.0) 01600369 IF (AVS - 0.32688E+07) 20050, 10050, 40050 01610369 40050 IF (AVS - 0.32692E+07) 10050, 10050, 20050 01620369 10050 IVPASS = IVPASS + 1 01630369 WRITE (NUVI, 80002) IVTNUM 01640369 GO TO 0051 01650369 20050 IVFAIL = IVFAIL + 1 01660369 RVCORR = 0.32690173724721E+07 01670369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01680369 0051 CONTINUE 01690369 CT006* TEST 6 01700369 IVTNUM = 6 01710369 BVS = 20.5 01720369 AVS = EXP(BVS) 01730369 IF (AVS - 0.79986E+09) 20060, 10060, 40060 01740369 40060 IF (AVS - 0.79995E+09) 10060, 10060, 20060 01750369 10060 IVPASS = IVPASS + 1 01760369 WRITE (NUVI, 80002) IVTNUM 01770369 GO TO 0061 01780369 20060 IVFAIL = IVFAIL + 1 01790369 RVCORR = 0.79990217747551E+09 01800369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01810369 0061 CONTINUE 01820369 C***** TESTS 7 THRU 10 - EXPRESSION PRESENTED TO EXP 01830369 CT007* TEST 7 01840369 IVTNUM = 7 01850369 BVS = 4.5 01860369 AVS = EXP(BVS - 7.5) 01870369 IF (AVS - 0.49784E-01) 20070, 10070, 40070 01880369 40070 IF (AVS - 0.49790E-01) 10070, 10070, 20070 01890369 10070 IVPASS = IVPASS + 1 01900369 WRITE (NUVI, 80002) IVTNUM 01910369 GO TO 0071 01920369 20070 IVFAIL = IVFAIL + 1 01930369 RVCORR = 0.49787068367864E-01 01940369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01950369 0071 CONTINUE 01960369 CT008* TEST 8 01970369 IVTNUM = 8 01980369 BVS = 0.25 01990369 AVS = EXP(BVS - 5.0) 02000369 IF (AVS - 0.86512E-02) 20080, 10080, 40080 02010369 40080 IF (AVS - 0.86522E-02) 10080, 10080, 20080 02020369 10080 IVPASS = IVPASS + 1 02030369 WRITE (NUVI, 80002) IVTNUM 02040369 GO TO 0081 02050369 20080 IVFAIL = IVFAIL + 1 02060369 RVCORR = 0.86516952031206E-02 02070369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02080369 0081 CONTINUE 02090369 CT009* TEST 9 02100369 IVTNUM = 9 02110369 AVS = EXP(0.5 * (-20.0)) 02120369 IF (AVS - 0.45397E-04) 20090, 10090, 40090 02130369 40090 IF (AVS - 0.45403E-04) 10090, 10090, 20090 02140369 10090 IVPASS = IVPASS + 1 02150369 WRITE (NUVI, 80002) IVTNUM 02160369 GO TO 0091 02170369 20090 IVFAIL = IVFAIL + 1 02180369 RVCORR = 0.45399929762485E-04 02190369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02200369 0091 CONTINUE 02210369 CT010* TEST 10 02220369 IVTNUM = 10 02230369 BVS = 30.5 02240369 AVS = EXP(BVS * (-0.5)) 02250369 IF (AVS - 0.23822E-06) 20100, 10100, 40100 02260369 40100 IF (AVS - 0.23825E-06) 10100, 10100, 20100 02270369 10100 IVPASS = IVPASS + 1 02280369 WRITE (NUVI, 80002) IVTNUM 02290369 GO TO 0101 02300369 20100 IVFAIL = IVFAIL + 1 02310369 RVCORR = 0.23823696675018E-06 02320369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02330369 0101 CONTINUE 02340369 C***** TESTS 11 THRU 14 - VALUES CLOSE TO ONE 02350369 CT011* TEST 11 02360369 IVTNUM = 11 02370369 AVS = EXP(0.9921875) 02380369 IF (AVS - 0.26970E+01) 20110, 10110, 40110 02390369 40110 IF (AVS - 0.26973E+01) 10110, 10110, 20110 02400369 10110 IVPASS = IVPASS + 1 02410369 WRITE (NUVI, 80002) IVTNUM 02420369 GO TO 0111 02430369 20110 IVFAIL = IVFAIL + 1 02440369 RVCORR = 0.26971279914439E+01 02450369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02460369 0111 CONTINUE 02470369 CT012* TEST 12 02480369 IVTNUM = 12 02490369 BVS = 0.9990234375 02500369 AVS = EXP(BVS) 02510369 IF (AVS - 0.27155E+01) 20120, 10120, 40120 02520369 40120 IF (AVS - 0.27158E+01) 10120, 10120, 20120 02530369 10120 IVPASS = IVPASS + 1 02540369 WRITE (NUVI, 80002) IVTNUM 02550369 GO TO 0121 02560369 20120 IVFAIL = IVFAIL + 1 02570369 RVCORR = 0.27156285521169E+01 02580369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02590369 0121 CONTINUE 02600369 C***** 02610369 C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02620369 WRITE (NUVI, 90002) 02630369 WRITE (NUVI, 90013) 02640369 WRITE (NUVI, 90014) 02650369 C***** 02660369 CT013* TEST 13 02670369 IVTNUM = 13 02680369 AVS = EXP(1.00390625) 02690369 IF (AVS - 0.27287E+01) 20130, 10130, 40130 02700369 40130 IF (AVS - 0.27291E+01) 10130, 10130, 20130 02710369 10130 IVPASS = IVPASS + 1 02720369 WRITE (NUVI, 80002) IVTNUM 02730369 GO TO 0131 02740369 20130 IVFAIL = IVFAIL + 1 02750369 RVCORR = 0.27289208827261E+01 02760369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02770369 0131 CONTINUE 02780369 CT014* TEST 14 02790369 IVTNUM = 14 02800369 BVS = 1.001953125 02810369 AVS = EXP(BVS) 02820369 IF (AVS - 0.27234E+01) 20140, 10140, 40140 02830369 40140 IF (AVS - 0.27238E+01) 10140, 10140, 20140 02840369 10140 IVPASS = IVPASS + 1 02850369 WRITE (NUVI, 80002) IVTNUM 02860369 GO TO 0141 02870369 20140 IVFAIL = IVFAIL + 1 02880369 RVCORR = 0.27235961607435E+01 02890369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02900369 0141 CONTINUE 02910369 C***** TESTS 15 THRU 19 - VALUES CLOSE TO 1/E 02920369 CT015* TEST 15 02930369 IVTNUM = 15 02940369 BVS = 128.0 02950369 AVS = EXP(44. / BVS) 02960369 IF (AVS - 0.14101E+01) 20150, 10150, 40150 02970369 40150 IF (AVS - 0.14103E+01) 10150, 10150, 20150 02980369 10150 IVPASS = IVPASS + 1 02990369 WRITE (NUVI, 80002) IVTNUM 03000369 GO TO 0151 03010369 20150 IVFAIL = IVFAIL + 1 03020369 RVCORR = 0.14102260349257E+01 03030369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03040369 0151 CONTINUE 03050369 CT016* TEST 16 03060369 IVTNUM = 16 03070369 BVS = 128. 03080369 AVS = EXP(45. / BVS) 03090369 IF (AVS - 0.14212E+01) 20160, 10160, 40160 03100369 40160 IF (AVS - 0.14214E+01) 10160, 10160, 20160 03110369 10160 IVPASS = IVPASS + 1 03120369 WRITE (NUVI, 80002) IVTNUM 03130369 GO TO 0161 03140369 20160 IVFAIL = IVFAIL + 1 03150369 RVCORR = 0.14212865748007E+01 03160369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03170369 0161 CONTINUE 03180369 CT017* TEST 17 03190369 IVTNUM = 17 03200369 BVS = 128. 03210369 AVS = EXP(46. / BVS) 03220369 IF (AVS - 0.14323E+01) 20170, 10170, 40170 03230369 40170 IF (AVS - 0.14325E+01) 10170, 10170, 20170 03240369 10170 IVPASS = IVPASS + 1 03250369 WRITE (NUVI, 80002) IVTNUM 03260369 GO TO 0171 03270369 20170 IVFAIL = IVFAIL + 1 03280369 RVCORR = 0.14324338635651E+01 03290369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03300369 0171 CONTINUE 03310369 CT018* TEST 18 03320369 IVTNUM = 18 03330369 BVS = 128. 03340369 AVS = EXP(47. / BVS) 03350369 IF (AVS - 0.14436E+01) 20180, 10180, 40180 03360369 40180 IF (AVS - 0.14438E+01) 10180, 10180, 20180 03370369 10180 IVPASS = IVPASS + 1 03380369 WRITE (NUVI, 80002) IVTNUM 03390369 GO TO 0181 03400369 20180 IVFAIL = IVFAIL + 1 03410369 RVCORR = 0.14436685815988E+01 03420369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03430369 0181 CONTINUE 03440369 CT019* TEST 19 03450369 IVTNUM = 19 03460369 BVS = 128. 03470369 AVS = EXP(48. / BVS) 03480369 IF (AVS - 0.14549E+01) 20190, 10190, 40190 03490369 40190 IF (AVS - 0.14551E+01) 10190, 10190, 20190 03500369 10190 IVPASS = IVPASS + 1 03510369 WRITE (NUVI, 80002) IVTNUM 03520369 GO TO 0191 03530369 20190 IVFAIL = IVFAIL + 1 03540369 RVCORR = 0.14549914146182E+01 03550369 WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03560369 0191 CONTINUE 03570369 CBB** ********************** BBCSUM0 **********************************03580369 C**** WRITE OUT TEST SUMMARY 03590369 C**** 03600369 IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03610369 WRITE (I02, 90004) 03620369 WRITE (I02, 90014) 03630369 WRITE (I02, 90004) 03640369 WRITE (I02, 90020) IVPASS 03650369 WRITE (I02, 90022) IVFAIL 03660369 WRITE (I02, 90024) IVDELE 03670369 WRITE (I02, 90026) IVINSP 03680369 WRITE (I02, 90028) IVTOTN, IVTOTL 03690369 CBE** ********************** BBCSUM0 **********************************03700369 CBB** ********************** BBCFOOT0 **********************************03710369 C**** WRITE OUT REPORT FOOTINGS 03720369 C**** 03730369 WRITE (I02,90016) ZPROG, ZPROG 03740369 WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03750369 WRITE (I02,90019) 03760369 CBE** ********************** BBCFOOT0 **********************************03770369 CBB** ********************** BBCFMT0A **********************************03780369 C**** FORMATS FOR TEST DETAIL LINES 03790369 C**** 03800369 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 03810369 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 03820369 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 03830369 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 03840369 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 03850369 1I6,/," ",15X,"CORRECT= " ,I6) 03860369 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03870369 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 03880369 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03890369 1A21,/," ",16X,"CORRECT= " ,A21) 03900369 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 03910369 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 03920369 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 03930369 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 03940369 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 03950369 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 03960369 80050 FORMAT (" ",48X,A31) 03970369 CBE** ********************** BBCFMT0A **********************************03980369 CBB** ********************** BBCFMT0B **********************************03990369 C**** FORMAT STATEMENTS FOR PAGE HEADERS 04000369 C**** 04010369 90002 FORMAT ("1") 04020369 90004 FORMAT (" ") 04030369 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )04040369 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04050369 90008 FORMAT (" ",21X,A13,A17) 04060369 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 04070369 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 04080369 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 04090369 1 7X,"REMARKS",24X) 04100369 90014 FORMAT (" ","----------------------------------------------" , 04110369 1 "---------------------------------" ) 04120369 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 04130369 C**** 04140369 C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04150369 C**** 04160369 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 04170369 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 04180369 1 A13) 04190369 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 04200369 C**** 04210369 C**** FORMAT STATEMENTS FOR RUN SUMMARY 04220369 C**** 04230369 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04240369 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04250369 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04260369 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04270369 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04280369 CBE** ********************** BBCFMT0B **********************************04290369 C***** 04300369 C***** END OF TEST SEGMENT 178 04310369 STOP 04320369 END 04330369