C***** PART4 *****************************************************H0001200 C***** H0001205 C***** ANSI FORTRAN (X3.9-1966) TEST PROGRAMS H0001210 C***** H0001215 C***** PREPARED BY THE NATIONAL BUREAU OF STANDARDS VERSION 3 H0001220 C***** H0001225 C***** JUNE 1973 H0001230 C***** H0001235 C***** PART 4 OF 14 PARTS H0001240 C***** H0001245 C***** SEGMENTS INCLUDED H0001250 C***** H0001255 C***** ARFAS - 035 ADDITION AND SUBTRACTION OF DP VALUES H0001260 C***** H0001265 C***** ARBMI - 036 MULTIPLICATION OF INTEGER VALUES H0001270 C***** H0001275 C***** ARBMR - 037 MULTIPLICATION OF REAL VALUES H0001280 C***** H0001285 C***** ARFMD - 038 MULTIPLICATION OF DOUBLE PRECISION VALUES H0001290 C***** H0001295 C***** ARBDV - 039 DIVISION OF INTEGER AND REAL VALUES H0001300 C***** H0001305 C***** ARFDV - 040 DIVISION OF DOUBLE PRECISION VALUES H0001310 C***** H0001315 C***** ARBEX - 041 EXPONENTIATION OF INTEGER AND REAL VALUES H0001320 C***** H0001325 C***** ARFEX - 042 EXPONENTIATION OF DOUBLE PRECISION VALUES H0001330 C***** H0001335 C***** ARBHI - 043 HIERARCHY OF OPERATORS AND PARENTHESES H0001340 C***** H0001345 C***** SBB67 - 050 SUBSCRIPTS OF INTEGER AND REAL ARRAYS V, K H0001350 C***** H0001355 C***** SBB45 - 051 SUBSCRIPTS OF INT., REAL ARRAYS V+K, V-K H0001360 C***** H0001365 C***** SBB13 - 052 SUBSCRIPTS OF INT, REAL ARRAYS C*V, C*V+K, C*V-KH0001370 C***** H0001375 C***** SBF17 - 053 SUBSCRIPTS OF DP ARRAYS V, K, C*V, C*V+K, C*V-K H0001380 C***** V+K, V-K H0001385 C***** H0011200 C***** THE FOLLOWING SPECIFICATIONS ARE TO BE USED ONLY WHEN SEGMENTS H0011205 C***** 035, 036, 037, 038, 039, 040, 041, 042, 043, 050, 051, 052, 053 H0011210 C***** ARE RUN AS ONE MAIN PROGRAM. H0011215 C***** H0011220 INTEGER MCA3I(2,3,3) H0011225 DOUBLE PRECISION ACVD, BCVD, CCVD, DCVD, CCDVD, DDDVD H0011230 1 , EEDVD, FFDVD, GGDVD, HHDVD, AC1D(10), BC2D(7,4), CC3D(7,2,2) H0011235 2 , EP1D(43), VTAVD, WTAVD, AADVD H0011240 DIMENSION A2S(2,2), A3S(3,3,3), AC1S(25), AC2S(5,6) H0011245 1 , IAC1I(5), IAC2I(2,7) H0011250 C***** H0011255 C***** END OF SPECIFICATIONS FOR SEGMENTS H0011260 C***** 035, 036, 037, 038, 039, 040, 041, 042, 043, 050, 051, 052, 053 H0011265 C***********************************************************************H0350010 C***** H0350020 C***** ARFAS - (035) H0350030 C***** H0350040 C***********************************************************************H0350050 C***** GENERAL PURPOSE ASA REF H0350060 C***** TEST THAT EXPRESSIONS INVOLVING THE ADDITION AND 6.1 H0350070 C***** SUBTRACTION (COMBINED) OF DOUBLE PRECISION VALUES H0350080 C***** MAY BE FORMED H0350090 C***** GENERAL COMMENTS H0350100 C***** VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A H0350110 C***** VARIETY OF COMBINATIONS H0350120 C***** H0350130 C***** S P E C I F I C A T I O N S SEGMENT 035 H0350140 C***** H0011270 C***** WHEN EXECUTING ONLY SEGMENT 035, REMOVE THE PRECEDING H0011275 C***** SPECIFICATIONS. THE FOLLOWING SPECIFICATIONS WHICH APPEAR AS H0011280 C***** COMMENTS MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0011285 C***** H0011290 C= DOUBLE PRECISION ACVD,BCVD,CCVD,DCVD,FFDVD,GGDVD,HHDVD H0011295 C= 1,AC1D(10),BC2D(7,4),CC3D(7,2,2) H0011300 C***** H0011305 C***** I N P U T - O U T P U T T A P E ASSIGNMENT STATEMENTS. H0350150 IRVI = 5 H0071200 NUVI = 6 H0071205 C***** IDENTIFY THE SOURCE OF THE TEST PROGRAMS H0071210 WRITE(NUVI,0071) H0071215 0071 FORMAT (41H1 F O R T R A N T E S T P R O G R A M S// H0071220 1 42H PREPARED BY NATIONAL BUREAU OF STANDARDS// H0071225 3 37H FOR USE ON LARGE FORTRAN PROCESSORS // H0071230 4 42H IN ACCORDANCE WITH ASA FORTRAN X3.9-1966// H0071235 5 23H VERSION 3 PART 4 ///) H0071240 C***** 3 OF 6 INPUT CARDS IDENTIFY THE USERS SYSTEM AND COMPILER H0071245 C PREPARED BY USER H0071250 C READ, NO LIST H0071255 C PREPARED BY USER H0071260 C READ, NO LIST H0071265 C PREPARED BY USER H0071270 C READ, NO LIST H0071275 C READ(IRVI,0070) H0071280 C READ(IRVI,0072) H0071285 C READ(IRVI,0073) H0071290 0070 FORMAT(40H BASED ON ASA FORTRAN X3.9-1966 /) H0071295 0072 FORMAT(40H TEST PROGRAMS /) H0071300 0073 FORMAT(40H FORTRAN COMPILER /) H0071305 WRITE(NUVI,0070) H0071310 WRITE(NUVI,0072) H0071315 WRITE(NUVI,0073) H0071320 WRITE (NUVI,350) H0350160 350 FORMAT (1H1,1X,32HARFAS - (035) D.P. ADD AND SUBTR//2X, H0350170 -14HASA REF. - 6.1//2X,7HRESULTS) H0350180 C***** HEADER FOR SEGMENT 035 WRITTEN H0350190 ACVD = 5.0D0 H0350200 BCVD = 10.0D-1 H0350210 CCVD = 10.0D0 H0350220 DCVD = -0.2D1 H0350230 AC1D(1)= 300.0D-2 H0350240 BC2D(6,3) = 400.D-2 H0350250 AC1D(2) = .24816326424816D5 H0350260 BC2D(5,3) = -.12408163212408D5 H0350270 HHDVD = ACVD + BCVD - CCVD + DCVD + 9.0D0 - AC1D(1) H0350280 GGDVD = (ACVD + 1.0E0) - 11.0E0 -(DCVD - AC1D(1)) H0350290 FFDVD = (6.0D0+(BCVD-(CCVD+DCVD))) + 10.0D-1 H0350300 CC3D(6,1,1) = CCVD-DCVD+BC2D(6,3)-ACVD-11.0D0 H0350310 CC3D(5,1,2) = AC1D(2) + BC2D(5,3) - 12408.163212408D0 H0350320 WRITE (NUVI,351) HHDVD, GGDVD, FFDVD, CC3D(6,1,1), CC3D(5,1,2) H0350330 351 FORMAT (//5(D22.10/)//35H THE ANSWERS ABOVE SHOULD BE 0 FOR/ H0350340 1 32H THIS SEGMENT TO BE SUCCESSFUL./36H VALUES WITH EXPONENTS LEH0350350 2SS THAN /31H 10**(-14) ARE CONSIDERED ZERO) H0350360 C***** END OF TEST SEGMENT 035 H0350370 C***** H0350380 C***** WHEN EXECUTING ONLY SEGMENT 035, THE STOP AND END H0350390 C***** CARDS, WHICH APPEAR AS COMMENTS, MUST HAVE THE C= H0350400 C***** IN COL 1 AND 2 REMOVED. H0350410 C= STOP H0350420 C= END H0350430 C***********************************************************************H0360010 C***** H0360020 C***** ARBMI - (036) H0360030 C***** H0360040 C***********************************************************************H0360050 C***** GENERAL PURPOSE ASA REF H0360060 C***** TEST THAT EXPRESSIONS INVOLVING MULTIPLICATION OF 6.1 H0360070 C***** INTEGER VALUES MAY BE FORMED. H0360080 C***** GENERAL COMMENTS H0360090 C***** INTEGER SUBTRACTION ASSUMED WORKING H0360100 C***** * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED H0360110 C***** IN A VARIETY OF COMBINATIONS. H0360120 C***** H0360130 C***** S P E C I F I C A T I O N S SEGMENT 036 H0360140 C***** H0011310 C***** WHEN EXECUTING ONLY SEGMENT 036, THE SPECIFICATION STATEMENTS H0011315 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011320 C***** 1 AND 2 REMOVED. H0011325 C***** H0011330 C= DIMENSION IAC1I(5), IAC2I(2,7) H0011335 C***** H0011340 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0360150 C***** H0071325 C***** WHEN EXECUTING ONLY SEGMENT 036, THE FOLLOWING STATEMENT H0071330 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071335 C***** H0071340 C= NUVI = 6 H0071345 C***** H0071350 WRITE (NUVI,360) H0360160 360 FORMAT (1H1, 1X,36HARBMI - (036) INTEGER MULTIPLICATION// H0360170 116H ASA REF. - 6.1//2X,7HRESULTS) H0360180 C***** HEADER FOR SEGMENT 036 WRITTEN H0360190 JACVI=1 H0360200 KBCVI=2 H0360210 LCCVI=0 H0360220 MDCVI=-5 H0360230 IAC1I(2) = -10 H0360240 IAC2I(1,2) = 3 H0360250 IHDVI=JACVI*KBCVI H0360260 IGDVI=KBCVI*MDCVI*LCCVI H0360270 IFDVI = MDCVI*JACVI*IAC1I(2)*3 H0360280 IEDVI=-3*JACVI*(-MDCVI)*JACVI*KBCVI H0360290 IDDVI=KBCVI*KBCVI*KBCVI*KBCVI*KBCVI*JACVI H0360300 ICDVI = (-IAC1I(2))*JACVI*KBCVI*JACVI*KBCVI*JACVI*1 H0360310 IAC2I(1,1)=IAC2I(1,2)*MDCVI*IAC1I(2)*2 H0360320 IHDVI = IHDVI - 2 H0360330 IFDVI = IFDVI - 150 H0360340 IEDVI = IEDVI + 30 H0360350 IDDVI = IDDVI - 32 H0360360 ICDVI = ICDVI - 40 H0360370 IAC2I(1,1) = IAC2I(1,1) - 300 H0360380 WRITE (NUVI,361) IHDVI, IGDVI, IFDVI, IEDVI, IDDVI, ICDVI, H0360390 1 IAC2I(1,1) H0360400 361 FORMAT (//7(I10/)//35H ALL ABOVE ANSWERS SHOULD BE 0 FOR/ H0360410 1 31H THIS SEGMENT TO BE SUCCESSFUL) H0360420 C***** END OF TEST SEGMENT 036 H0360430 C***** H0360440 C***** WHEN EXECUTING ONLY SEGMENT 036, THE STOP AND END H0360450 C***** CARDS, WHICH APPEAR AS COMMENTS, MUST HAVE THE C= H0360460 C***** IN COL 1 AND 2 REMOVED. H0360470 C= STOP H0360480 C= END H0360490 C***********************************************************************H0370010 C***** H0370020 C***** ARBMR - (037) H0370030 C***** H0370040 C***********************************************************************H0370050 C***** GENERAL PURPOSE ASA REF H0370060 C***** TEST THAT EXPRESSIONS INVOLVING MULTIPLICATION OF 6.1 H0370070 C***** REAL VALUES MAY BE FORMED H0370080 C***** GENERAL COMMENTS H0370090 C***** REAL SUBTRACTION ASSUMED WORKING H0370100 C***** * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A H0370110 C***** VARIETY OF COMBINATIONS. H0370120 C***** H0370130 C***** S P E C I F I C A T I O N S SEGMENT 037 H0370140 C***** H0011345 C***** WHEN EXECUTING ONLY SEGMENT 037, THE SPECIFICATION STATEMENTS H0011350 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011355 C***** 1 AND 2 REMOVED. H0011360 C***** H0011365 C= DIMENSION A2S(2,2),AC1S(25) H0011370 C***** H0011375 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0370150 C***** H0071355 C***** WHEN EXECUTING ONLY SEGMENT 037, THE FOLLOWING STATEMENT H0071360 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071365 C***** H0071370 C= NUVI = 6 H0071375 C***** H0071380 WRITE (NUVI,370) H0370160 370 FORMAT (1H1,1X,33HARBMR - (037) REAL MULTIPLICATION//2X, H0370170 114HASA REF. - 6.1//2X,7HRESULTS) H0370180 C***** HEADER FOR SEGMENT 037 WRITTEN H0370190 ACVS = 1.0 H0370200 BCVS = 0.2E2 H0370210 CCVS = -1.0 H0370220 DCVS = 0.0 H0370230 AC1S(1) = .5E+1 H0370240 HHDVS=ACVS*BCVS H0370250 GGDVS=BCVS*BCVS*1.0 H0370260 FFDVS=2.0*AC1S(1)*ACVS*ACVS H0370270 EEDVS=ACVS*BCVS*CCVS*DCVS*AC1S(1) H0370280 DDDVS=AC1S(1)*ACVS*BCVS*1.0E1*ACVS*ACVS H0370290 CCDVS=CCVS*CCVS*CCVS*3.E0*ACVS*ACVS*ACVS H0370300 A2S(1,1) = ACVS*CCVS*2. H0370310 HHDVS = HHDVS - 20.0 H0370320 GGDVS = GGDVS - 400.0 H0370330 FFDVS = FFDVS - 10.0 H0370340 DDDVS = DDDVS - 1000.0 H0370350 CCDVS = CCDVS + 3.0 H0370360 A2S(1,1) = A2S(1,1) + 2. H0370370 WRITE (NUVI,371) HHDVS, GGDVS, FFDVS, EEDVS, DDDVS, CCDVS, H0370380 1 A2S(1,1) H0370390 371 FORMAT (//7(F11.1/)//35H ALL ABOVE ANSWERS SHOULD BE 0 FOR/ H0370400 1 31H THIS SEGMENT TO BE SUCCESSFUL) H0370410 C***** END OF TEST SEGMENT 037 H0370420 C***** WHEN EXECUTING ONLY SEGMENT 037, THE STOP AND END CARDS H0370430 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0370440 C***** 1 AND 2 REMOVED. H0370450 C= STOP H0370460 C= END H0370470 C***********************************************************************H0380010 C***** H0380020 C***** ARFMD - (038) H0380030 C***** H0380040 C***********************************************************************H0380050 C***** GENERAL PURPOSE ASA REF H0380060 C***** TEST THAT EXPRESSIONS INVOLVING THE MULTIPLICATION 6.1 H0380070 C***** OF DOUBLE PRECISION VALUES MAY BE FORMED H0380080 C***** GENERAL COMMENTS H0380090 C***** * DP ADDITION AND SUBTRACTION ASSUMED WORKING. H0380100 C***** * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A H0380110 C***** VARIETY OF COMBINATIONS. H0380120 C***** H0380130 C***** S P E C I F I C A T I O N S SEGMENT 038 H0380140 C***** H0011380 C***** WHEN EXECUTING ONLY SEGMENT 038, THE SPECIFICATION STATEMENTS H0011385 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011390 C***** 1 AND 2 REMOVED. H0011395 C***** H0011400 C= DOUBLE PRECISION ACVD,BCVD,CCVD,DCVD,EEDVD,DDDVD,CCDVD H0011405 C= 1,FFDVD, GGDVD,HHDVD,AC1D(10),BC2D(7,4), CC3D(7,2,2) H0011410 C***** H0011415 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0380150 C***** H0071385 C***** WHEN EXECUTING ONLY SEGMENT 038, THE FOLLOWING STATEMENT H0071390 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071395 C***** H0071400 C= NUVI = 6 H0071405 C***** H0071410 WRITE (NUVI,380) H0380160 380 FORMAT (1H1,1X,33HARFMD - (038) D.P. MULTIPLICATION// 2X, H0380170 -15H ASA REF. - 6.1//2X,7HRESULTS) H0380180 C***** HEADER FOR SEGMENT 038 WRITTEN H0380190 ACVD=1.0D0 H0380200 BCVD=2.0 H0380210 CCVD=-30.0D-1 H0380220 DCVD=1.0D1 H0380230 AC1D(1) = 1.1D1 H0380240 CC3D(3,1,2) = .262144D6 H0380250 CC3D(6,1,2) = -2000.D-3 H0380260 CC3D(3,2,2) = 409.6D1 H0380270 HHDVD=ACVD*BCVD H0380280 GGDVD=ACVD*0.0D0*CCVD H0380290 FFDVD = AC1D(1)*ACVD*ACVD*ACVD H0380300 EEDVD=CCVD*CCVD*ACVD*1.0D0*BCVD H0380310 DDDVD=ACVD*2.0D1*ACVD*DCVD*1.0E0*CCVD H0380320 CCDVD=ACVD*BCVD*CCVD*CCVD*CCVD*BCVD*ACVD H0380330 BC2D(3,4) = DCVD*(400.D-2)*CC3D(6,1,2) H0380340 BC2D(2,3) = CC3D(3,1,2) * CC3D(3,2,2) H0380350 HHDVD = HHDVD - 2.0D0 H0380360 FFDVD = FFDVD - 11.0D0 H0380370 EEDVD = EEDVD - 18.0D0 H0380380 DDDVD = DDDVD + 600.0D0 H0380390 CCDVD = CCDVD + 108.0D0 H0380400 BC2D(3,4) = BC2D(3,4) -(-80.D0) H0380410 BC2D(2,3) = BC2D(2,3) - 1.073741824D9 H0380420 WRITE (NUVI,381) HHDVD, GGDVD, FFDVD, EEDVD, DDDVD, CCDVD, H0380430 1 BC2D(3,4) , BC2D(2,3) H0380440 381 FORMAT (//8(D22.10/)//35H THE ANSWERS ABOVE SHOULD BE 0 FOR/ H0380450 1 31H THIS SEGMENT TO BE SUCCESSFUL) H0380460 C***** END OF TEST SEGMENT 038 H0380470 C***** WHEN EXECUTING ONLY SEGMENT 038, THE STOP AND END CARDS H0380480 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0380490 C***** 1 AND 2 REMOVED. H0380500 C= STOP H0380510 C= END H0380520 C***********************************************************************H0390010 C***** H0390020 C***** ARBDV - (039) H0390030 C***** H0390040 C***********************************************************************H0390050 C***** H0390060 C***** GENERAL PURPOSE ASA REF H0390070 C***** TEST BASIC DIVISION, 6.1 H0390080 C***** INTEGER AND REAL (SP) TYPES ONLY H0390090 C***** H0390100 C***** S P E C I F I C A T I O N S SEGMENT 039 H0390110 C***** H0011420 C***** WHEN EXECUTING ONLY SEGMENT 039, THE SPECIFICATION STATEMENTS H0011425 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011430 C***** 1 AND 2 REMOVED. H0011435 C***** H0011440 C= DIMENSION A2S(2,2),IAC1I(5),IAC2I(2,7),AC1S(25) H0011445 C***** H0011450 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0390120 C***** H0071415 C***** WHEN EXECUTING ONLY SEGMENT 039, THE FOLLOWING STATEMENT H0071420 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071425 C***** H0071430 C= NUVI = 6 H0071435 C***** H0071440 WRITE (NUVI,390) H0390130 390 FORMAT (1H1,1X,30HARBDV - (039) INTEGER AND REAL/15X, H0390140 -9H DIVISION//2X,14HASA REF. - 6.1/ /2X,7HRESULTS) H0390150 C***** HEADER FOR SEGMENT 039 WRITTEN H0390160 WRITE (NUVI,391) H0390170 391 FORMAT (//2X,22HTEST1 INTEGER DIVISION) H0390180 JACVI=1 H0390190 KBCVI=2 H0390200 LCCVI=0 H0390210 MDCVI=10 H0390220 IAC1I(2) = 1 H0390230 IAC2I(1,4) = -8 H0390240 IHDVI=KBCVI/JACVI H0390250 IGDVI=MDCVI/KBCVI/JACVI H0390260 IFDVI=LCCVI/JACVI/JACVI/1 H0390270 IEDVI = MDCVI/KBCVI/IAC1I(2)/IAC1I(2)/JACVI H0390280 IAC2I(1,2)=IAC2I(1,4)/4/KBCVI H0390290 IHDVI = IHDVI - 2 H0390300 IGDVI = IGDVI - 5 H0390310 IEDVI = IEDVI - 5 H0390320 IAC2I(1,2) = IAC2I(1,2) + 1 H0390330 WRITE (NUVI,392) IHDVI, IGDVI, IFDVI, IEDVI, IAC2I(1,2) H0390340 392 FORMAT (//5(I10/)) H0390350 WRITE (NUVI, 393) H0390360 393 FORMAT (//2X,19HTEST2 REAL DIVISION) H0390370 ACVS=1.0 H0390380 BCVS=0.0 H0390390 CCVS=1.0E1 H0390400 DCVS=20.0E-1 H0390410 AC1S(1)=100.0E-2 H0390420 A2S(1,1) = -200.E-2 H0390430 HHDVS= ACVS/ACVS H0390440 GGDVS = CCVS/ACVS/(-ACVS) H0390450 FFDVS= BCVS/CCVS/DCVS/ACVS H0390460 EEDVS= CCVS/AC1S(1)/DCVS/(-1.0)/ACVS H0390470 A2S(1,2) = A2S(1,1)/AC1S(1)/ACVS/(-2.0E0) H0390480 HHDVS = HHDVS - 1.0 H0390490 GGDVS = GGDVS + 10.0 H0390500 EEDVS = EEDVS + 5.0 H0390510 A2S(1,2) = A2S(1,2) - 1. H0390520 WRITE (NUVI,394) HHDVS , GGDVS, FFDVS, EEDVS, A2S(1,2) H0390530 394 FORMAT (//5(F11.1/)//35H ALL ABOVE ANSWERS SHOULD BE 0 FOR/ H0390540 12X,29HTHIS SEGMENT TO BE SUCCESSFUL) H0390550 C***** END OF TEST SEGMENT 039 H0390560 C***** WHEN EXECUTING ONLY SEGMENT 039, THE STOP AND END CARDS H0390570 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0390580 C***** 1 AND 2 REMOVED. H0390590 C= STOP H0390600 C= END H0390610 C***********************************************************************H0400010 C***** H0400020 C***** ARFDV - (040) H0400030 C***** H0400040 C***********************************************************************H0400050 C***** GENERAL PURPOSE ASA REFH0400060 C***** TEST THAT EXPRESSIONS INVOLVING DIVISION OF DOUBLE 6.1 H0400070 C***** PRECISION VALUES MAY BE FORMED H0400080 C***** GENERAL COMMENTS H0400090 C***** * DP SUBTRACTION ASSUMED WORKING. H0400100 C***** * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A H0400110 C***** VARIETY OF COMBINATIONS. H0400120 C***** H0400130 C***** S P E C I F I C A T I O N S SEGMENT 040 H0400140 C***** H0011455 C***** WHEN EXECUTING ONLY SEGMENT 040, THE SPECIFICATION STATEMENTS H0011460 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011465 C***** 1 AND 2 REMOVED. H0011470 C***** H0011475 C= DOUBLE PRECISION ACVD,BCVD,CCVD,DCVD,EEDVD,FFDVD,GGDVD,HHDVD H0011480 C= 1,AC1D(10),BC2D(7,4),CC3D(7,2,2) H0011485 C***** H0011490 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0400150 C***** H0071445 C***** WHEN EXECUTING ONLY SEGMENT 040, THE FOLLOWING STATEMENT H0071450 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071455 C***** H0071460 C= NUVI = 6 H0071465 C***** H0071470 WRITE (NUVI,400) H0400160 400 FORMAT (1H1,1X,27HARFDV - (040) D.P. DIVISION// H0400170 -16H ASA REF. - 6.1//2X,7HRESULTS) H0400180 C***** HEADER FOR SEGMENT 040 WRITTEN H0400190 ACVD = 1.0D0 H0400200 BCVD = 20.0D-1 H0400210 CCVD = .1D2 H0400220 DCVD = -10.0 H0400230 AC1D(1)= 0.0 H0400240 CC3D(1,2,2) = -.004D3 H0400250 CC3D(1,1,2) = .244140625D-3 H0400260 HHDVD = BCVD/ACVD H0400270 CC3D(3,1,2) = .125D0 H0400280 GGDVD = DCVD/DCVD/ACVD H0400290 FFDVD = AC1D(1)/BCVD/ACVD/1.D0/1.D0 H0400300 EEDVD = DCVD/BCVD/(-5.0E0)/ACVD/ACVD H0400310 BC2D(4,4) = CC3D(1,2,2)/BCVD/DCVD/.002D2 H0400320 BC2D(4,3) = CC3D(1,1,2) / CC3D(3,1,2) H0400330 HHDVD = HHDVD - 2.0D0 H0400340 GGDVD = GGDVD - 1.0D0 H0400350 EEDVD = EEDVD - 1.0D0 H0400360 BC2D(4,4) = BC2D(4,4) - 1.0D0 H0400370 BC2D(4,3) = BC2D(4,3) - 195.3125D-5 H0400380 WRITE (NUVI,401) HHDVD,GGDVD,FFDVD,EEDVD,BC2D(4,4) , BC2D(4,3) H0400390 401 FORMAT (//6(D22.10/)//35H THE ANSWERS ABOVE SHOULD BE 0 FOR/ H0400400 1 31H THIS SEGMENT TO BE SUCCESSFUL) H0400410 C***** END OF TEST SEGMENT 040 H0400420 C***** WHEN EXECUTING ONLY SEGMENT 040, THE STOP AND END CARDS H0400430 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0400440 C***** 1 AND 2 REMOVED. H0400450 C= STOP H0400460 C= END H0400470 C***********************************************************************H0410010 C***** H0410020 C***** ARBEX - (041) H0410030 C***** H0410040 C***********************************************************************H0410050 C***** H0410060 C***** GENERAL PURPOSE ASA REF H0410070 C***** TEST THAT EXPRESSIONS INVOLVING INTEGER AND REAL 6.1 H0410080 C***** EXPONENTIATION MAY BE FORMED H0410090 C***** GENERAL COMMENTS H0410100 C***** THE FOLLOWING TESTS ARE MADE - H0410110 C***** INTEGER BY INTEGER GIVING INTEGER 6.1 H0410120 C***** REAL (SP) BY INTEGER GIVING REAL (SP) H0410130 C***** REAL (SP) BY REAL (SP) GIVING REAL (SP) H0410140 C***** RESTRICTIONS OBSERVED H0410150 C***** H0410160 C***** S P E C I F I C A T I O N S SEGMENT 041 H0410170 C***** H0011495 C***** WHEN EXECUTING ONLY SEGMENT 041, THE SPECIFICATION STATEMENTS H0011500 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011505 C***** 1 AND 2 REMOVED. H0011510 C***** H0011515 C= DIMENSION A2S(2,2),IAC1I(5),IAC2I(2,7),AC1S(25) H0011520 C***** H0011525 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0410180 C***** H0071475 C***** WHEN EXECUTING ONLY SEGMENT 041, THE FOLLOWING STATEMENT H0071480 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071485 C***** H0071490 C= NUVI = 6 H0071495 C***** H0071500 WRITE (NUVI,410) H0410190 410 FORMAT (1H1,1X,34HARBEX - (041) BASIC EXPONENTIATION// H0410200 - 2X,15HASA REFS. - 6.1//2X, 7HRESULTS) H0410210 C***** HEADER FOR SEGMENT 041 WRITTEN H0410220 WRITE (NUVI,411) H0410230 411 FORMAT (//2X,18HINTEGER BY INTEGER) H0410240 JACVI=1 H0410250 KBCVI=0 H0410260 LCCVI=2 H0410270 MDCVI=-1 H0410280 IAC1I(2) = 3 H0410290 IAC2I(1,4) = 3 H0410300 IHDVI = LCCVI**IAC1I(2) H0410310 IGDVI=KBCVI**JACVI H0410320 IFDVI=JACVI**KBCVI H0410330 IEDVI = MDCVI**IAC1I(2) H0410340 IDDVI=(LCCVI**LCCVI)**(JACVI**MDCVI) H0410350 IAC2I(1,2) = (LCCVI**IAC2I(1,4))**JACVI H0410360 IHDVI = IHDVI - 8 H0410370 IFDVI = IFDVI - 1 H0410380 IEDVI = IEDVI + 1 H0410390 IDDVI = IDDVI- 4 H0410400 IAC2I(1,2) = IAC2I(1,2) - 8 H0410410 WRITE (NUVI, 412) IHDVI, IGDVI, IFDVI, IEDVI, IAC2I(1,2) H0410420 412 FORMAT (//6(I10/)) H0410430 WRITE (NUVI, 413) H0410440 413 FORMAT (//2X,25HREAL BY INT, REAL BY REAL) H0410450 ACVS=1.0 H0410460 BCVS=0.0 H0410470 CCVS=0.5E0 H0410480 DCVS = 20.0E-1 H0410490 AC1S(1)=1.21E0 H0410500 A2S(1,1) = 300.E-2 H0410510 HHDVS=ACVS**JACVI H0410520 GGDVS=BCVS**JACVI H0410530 FFDVS=DCVS**IAC1I(2) H0410540 EEDVS=ACVS**ACVS H0410550 DDDVS=AC1S(1)**CCVS H0410560 CCDVS=(DCVS**1)**(2.0**ACVS) H0410570 A2S(2,1) = (A2S(1,1)**DCVS)**BCVS H0410580 HHDVS = HHDVS - 1.0 H0410590 FFDVS = FFDVS - 8.0 H0410600 EEDVS = EEDVS - 1.0 H0410610 DDDVS = DDDVS - 1.1 H0410620 CCDVS = CCDVS - 4.0 H0410630 A2S(2,1) = A2S(2,1) - 1.0 H0410640 WRITE (NUVI,414) HHDVS, GGDVS, FFDVS, EEDVS, DDDVS, CCDVS,A2S(2,1)H0410650 414 FORMAT (//7(F11.1/)//35H ALL ABOVE ANSWERS SHOULD BE 0 FOR/ H0410660 12X, 29HTHIS SEGMENT TO BE SUCCESSFUL) H0410670 C***** END OF TEST SEGMENT 041 H0410680 C***** WHEN EXECUTING ONLY SEGMENT 041, THE STOP AND END CARDS H0410690 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0410700 C***** 1 AND 2 REMOVED. H0410710 C= STOP H0410720 C= END H0410730 C***********************************************************************H0420010 C***** H0420020 C***** ARFEX - (042) H0420030 C***** H0420040 C***********************************************************************H0420050 C***** GENERAL PURPOSE ASA REFH0420060 C***** TEST EXPONENTIATION OF DOUBLE PRECISION ITEMS 6.1 H0420070 C***** THE FOLLOWING TYPES OF DP EXPONENTIATION ARE TESTED - H0420080 C***** DP BY REAL GIVING DP H0420090 C***** REAL BY DP GIVING DP H0420100 C***** DP BY DP GIVING DP H0420110 C***** GENERAL COMMENTS H0420120 C***** * DP ADDITION AND SUBTRACTION ASSUMED WORKING. H0420130 C***** * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A H0420140 C***** VARIETY OF COMBINATIONS. H0420150 C***** RESTRICTION OBSERVED H0420160 C***** NEGATIVE VALUED ITEMS ARE NEVER RAISED TO A REAL OR 6.4/12H0420170 C***** DP EXPONENT H0420180 C***** H0420190 C***** S P E C I F I C A T I O N S SEGMENT 042 H0420200 C***** H0011530 C***** WHEN EXECUTING ONLY SEGMENT 042, THE SPECIFICATION STATEMENTS H0011535 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011540 C***** 1 AND 2 REMOVED. H0011545 C***** H0011550 C= DOUBLE PRECISION ACVD,BCVD,CCVD,EEDVD,FFDVD,GGDVD,HHDVD H0011555 C= DOUBLE PRECISION AC1D(10),BC2D(7,4),CC3D(7,2,2) H0011560 C***** H0011565 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0420210 C***** H0071505 C***** WHEN EXECUTING ONLY SEGMENT 042, THE FOLLOWING STATEMENT H0071510 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071515 C***** H0071520 C= NUVI = 6 H0071525 C***** H0071530 WRITE (NUVI,420) H0420220 420 FORMAT (1H1,1X,28HARFEX - (042) EXPONENTIATION// H0420230 -16H ASA REF. - 6.1//2X,7HRESULTS) H0420240 C***** HEADER FOR SEGMENT 042 WRITTEN H0420250 C***** DEFINE VARIABLES AND ARRAY ELEMENTS H0420260 ACVS=1.0 H0420270 BCVS=0.0 H0420280 CCVS=0.5 H0420290 DCVS=20.0E-1 H0420300 ACVD = 1.0D0 H0420310 BCVD = 80.0D-1 H0420320 CCVD = 0.0 H0420330 AC1D(1) = 1.0 H0420340 BC2D(2,4) = 3000.D-3 H0420350 HHDVD = ACVD**BCVS H0420360 GGDVD = ACVS**ACVD H0420370 FFDVD = AC1D(1)**BCVD H0420380 EEDVD = (DCVS**ACVD)** (2.0D0**ACVS) H0420390 CC3D(5,1,2) = BC2D(2,4)**(DCVS**BCVS) H0420400 HHDVD = HHDVD - 1.0D0 H0420410 GGDVD = GGDVD - 1.0D0 H0420420 FFDVD = FFDVD - 1.0D0 H0420430 EEDVD = EEDVD - 4.0D0 H0420440 CC3D(5,1,2) = CC3D(5,1,2) - 3.0D0 H0420450 WRITE (NUVI,421) HHDVD, GGDVD, FFDVD, EEDVD, CC3D(5,1,2) H0420460 421 FORMAT (//5(D22.10/)//35H THE ANSWERS ABOVE SHOULD BE 0 FOR/ H0420470 1 32H THIS SEGMENT TO BE SUCCESSFUL./36H VALUES WITH EXPONENTS LEH0420480 2SS THAN /31H 10**(-14) ARE CONSIDERED ZERO) H0420490 C***** END OF TEST SEGMENT 042 H0420500 C***** WHEN EXECUTING ONLY SEGMENT 042, THE STOP AND END CARDS H0420510 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0420520 C***** 1 AND 2 REMOVED. H0420530 C= STOP H0420540 C= END H0420550 C***********************************************************************H0430010 C***** H0430020 C***** ARBHI - (043) H0430030 C***** H0430040 C***********************************************************************H0430050 C***** GENERAL PURPOSE ASA REF H0430060 C***** TESTS THAT HIERARCHY OF OPERATORS AND PARENTHESES 6.1/07H0430070 C***** ARE HANDLED CORRECTLY. OPERATORS SHOULD FOLLOW H0430080 C***** THIS ORDER - ** (EXPONENTIATION) 6.4/41H0430090 C***** * AND / (MULTIPLICATION,DIVISION) H0430100 C***** + AND - (ADDITION,SUBTRACTION) H0430110 C***** GENERAL COMMENTS H0430120 C***** * ONLY INTEGER EXPRESSIONS ARE USED SINCE THIS TEST IS H0430130 C***** CONCENTRATING ON OPERATORS AND PARENTHESES H0430140 C***** * ADDITION, SUBTRACTION, MULTIPLICATION, DIVISION, 6.4/49H0430150 C***** EXPONENTIATION ASSUMED TO FOLLOW LAWS OF H0430160 C***** ASSOCIATION AND COMMUTATION UNLESS PARENTHESES H0430170 C***** REGROUP EXPRESSIONS H0430180 C***** * INTEGER DIVISION MUST BE EVALUATED FROM LEFT TO 6.4/56H0430190 C***** RIGHT H0430200 C***** RESTRICTIONS OBSERVED H0430210 C***** * ALL ELEMENTS EVALUATED ARE MATHEMATICALLY DEFINED 6.4/16H0430220 C***** * NO NEGATIVE VALUES ARE RAISED TO A REAL 6.4/12H0430230 C***** EXPONENT H0430240 C***** * NO ZERO VALUED PRIMARY IS RAISED TO A ZERO 6.4/14H0430250 C***** VALUED EXPONENT H0430260 C***** H0430270 C***** S P E C I F I C A T I O N S SEGMENT 043 H0430280 C***** H0011570 C***** WHEN EXECUTING ONLY SEGMENT 043, THE SPECIFICATION STATEMENTS H0011575 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011580 C***** 1 AND 2 REMOVED. H0011585 C***** H0011590 C= DIMENSION IAC1I(5),IAC2I(2,7) H0011595 C***** H0011600 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0430290 C***** H0071535 C***** WHEN EXECUTING ONLY SEGMENT 043, THE FOLLOWING STATEMENT H0071540 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071545 C***** H0071550 C= NUVI = 6 H0071555 C***** H0071560 WRITE (NUVI,430) H0430300 430 FORMAT (1H1,1X,36HARBHI - (043) HIERARCHY, PARENTHESES//2X, H0430310 1 23HASA REFS. - 6.1 AND 6.4// H0430320 2 2X, 7HRESULTS) H0430330 JACVI = 1 H0430340 KBCVI = 2 H0430350 LCCVI = -5 H0430360 MDCVI = 0 H0430370 NECVI = 36 H0430380 IAC1I(2) = 10 H0430390 C***** TEST THAT ADDITION IS COMMUTATIVE (TEST 1) H0430400 MRRVI = 1 H0430410 IHDVI = JACVI + KBCVI H0430420 IGDVI = KBCVI + JACVI H0430430 IFDVI = IHDVI - IGDVI H0430440 WRITE (NUVI,431) MRRVI, IFDVI H0430450 C***** TEST THAT MULTIPLICATION IS COMMUTATIVE (TEST 2) H0430460 MRRVI = 2 H0430470 IHDVI = JACVI * KBCVI H0430480 IGDVI = KBCVI * JACVI H0430490 IFDVI = IHDVI - IGDVI H0430500 WRITE (NUVI,431) MRRVI, IFDVI H0430510 C***** TEST THAT SUBTRACTION IS COMMUTATIVE (TEST 3) H0430520 MRRVI = 3 H0430530 IHDVI = KBCVI - JACVI H0430540 IGDVI = -JACVI + KBCVI H0430550 IFDVI = IHDVI - IGDVI H0430560 WRITE (NUVI,431) MRRVI, IFDVI H0430570 C***** TEST THAT ADDITION IS ASSOCIATIVE (TEST 4) H0430580 MRRVI = 4 H0430590 IHDVI = (IAC1I(2) + JACVI) + KBCVI H0430600 IGDVI = IAC1I(2) + (JACVI + KBCVI) H0430610 IFDVI = IHDVI - IGDVI H0430620 WRITE (NUVI,431) MRRVI, IFDVI H0430630 C***** TEST THAT MULTIPLICATION IS ASSOCIATIVE (TEST 5) H0430640 MRRVI = 5 H0430650 IHDVI = (IAC1I(2) * LCCVI) * KBCVI H0430660 IGDVI = IAC1I(2) * (LCCVI * KBCVI) H0430670 IFDVI = IHDVI - IGDVI H0430680 WRITE (NUVI,431) MRRVI, IFDVI H0430690 C***** TEST THAT MULTIPLICATION IS DONE BEFORE ADDITION H0430700 C***** OR SUBTRACTION (TEST 6). ANSWER SHOULD BE ZERO H0430710 MRRVI = 6 H0430720 IHDVI = JACVI + KBCVI * LCCVI - 1 + IAC1I(2) H0430730 WRITE (NUVI,431) MRRVI, IHDVI H0430740 C***** REGROUP TEST 6 EXPRESSION (SLIGHTLY CHANGED) WITH H0430750 C***** PARENTHESES. ANSWERS SHOULD BE NON-ZERO (TEST7). H0430760 MRRVI = 7 H0430770 IGDVI = (JACVI + KBCVI) * LCCVI + 9 H0430780 IFDVI = JACVI + KBCVI * (LCCVI + 9) H0430790 IEDVI = (JACVI + KBCVI) * (LCCVI + 9) H0430800 IAC1I(1) = IGDVI + 6 H0430810 IAC1I(3) = IFDVI - 9 H0430820 IAC1I(4) = IEDVI - 12 H0430830 WRITE (NUVI,432) MRRVI, IAC1I(1), IAC1I(3), IAC1I(4) H0430840 C***** TEST THAT DIVISION IS DONE BEFORE ADDITION H0430850 C***** AND SUBTRACTION (TEST 8). ANSWER SHOULD BE ZERO. H0430860 MRRVI = 8 H0430870 LCCVI = - 6 H0430880 IAC1I(2) = 12 H0430890 IHDVI = LCCVI + IAC1I(2) / KBCVI - LCCVI - 6 H0430900 WRITE (NUVI,431) MRRVI, IHDVI H0430910 C***** REGROUP TEST 8 EXPRESSION WITH PARENTHESES (TEST 9). SECOND H0430920 C***** ANSWER SHOULD BE ZERO, OTHERS NON-ZERO. H0430930 MRRVI = 9 H0430940 IGDVI = (LCCVI + IAC1I(2)) / KBCVI - LCCVI - 6 H0430950 IFDVI = LCCVI + IAC1I(2) / (KBCVI - LCCVI - 6) H0430960 IEDVI = (LCCVI + IAC1I(2)) / (KBCVI - LCCVI - 6) H0430970 IAC1I(1) = IGDVI - 3 H0430980 IAC1I(4) = IEDVI - 3 H0430990 WRITE (NUVI,432) MRRVI, IAC1I(1), IAC1I(3), IAC1I(4) H0431000 C***** TEST THAT EXPONENTIATION IS DONE BEFORE H0431010 C***** ANY OTHER OPERATION (TEST 10). ANSWERS SHOULD H0431020 C***** BE ZERO. H0431030 MRRVI = 10 H0431040 IHDVI = KBCVI + 3 ** 2 - 11 H0431050 IGDVI = IAC1I(2) * KBCVI ** 3 - 96 H0431060 IFDVI = NECVI / LCCVI ** KBCVI - 1 H0431070 WRITE (NUVI,432) MRRVI, IHDVI, IGDVI, IFDVI H0431080 C***** REGROUP TEST 10 EXPRESSIONS WITH PARENTHESES (TEST 11) H0431090 C***** ANSWERS SHOULD BE NON-ZERO H0431100 MRRVI = 11 H0431110 IHDVI = (KBCVI + 3) ** 2 - 11 H0431120 IGDVI = (IAC1I(2) * KBCVI) ** 3 - 80 H0431130 IFDVI = (NECVI / LCCVI) ** KBCVI - 1 H0431140 IAC1I(1) = IHDVI - 14 H0431150 IAC1I(3) = IGDVI - 13744 H0431160 IAC1I(4) = IFDVI - 35 H0431170 WRITE (NUVI,432) MRRVI, IAC1I(1), IAC1I(3), IAC1I(4) H0431180 C***** THE FOLLOWING STATEMENTS INCLUDE AN ADDITIONAL TEST H0431190 C***** OF OPERATOR HIERARCHY. A VARIETY OF OPERATORS IS USED H0431200 C***** BOTH VARIABLES AND ARRAY ELEMENTS ARE USED. ALL H0431210 C***** ANSWERS SHOULD BE ZERO (TEST 12). H0431220 MRRVI = 12 H0431230 LCCVI = -5 H0431240 IAC1I(2) = 10 H0431250 IEDVI = JACVI+KBCVI*LCCVI-IAC1I(2)/2-IAC1I(2)/2/5+15 H0431260 IDDVI = KBCVI**3*4 + 162/(3**(KBCVI*2)) + MDCVI-34 H0431270 IHDVI = KBCVI*(JACVI+KBCVI*(IAC1I(2)-KBCVI)) - 34 H0431280 IGDVI = IAC1I(2)/KBCVI+70/(LCCVI*(KBCVI**2+3))-3 H0431290 IFDVI = KBCVI*(KBCVI+IAC1I(2)*(KBCVI+3*(JACVI+KBCVI)))-224 H0431300 IAC1I(1) = KBCVI*(KBCVI+KBCVI*(KBCVI+KBCVI*(KBCVI+KBCVI* H0431310 -(KBCVI+KBCVI)))) - 92 H0431320 IAC2I(1,4) = IAC1I(2)+LCCVI+JACVI+KBCVI+KBCVI-JACVI-9 H0431330 IAC2I(1,2) = IAC1I(2)/(LCCVI+JACVI+KBCVI)*(KBCVI** H0431340 1(KBCVI-JACVI))+10 H0431350 WRITE (NUVI,433) MRRVI, IEDVI, IDDVI, IHDVI, IGDVI, IFDVI, H0431360 1 IAC1I(1),IAC2I(1,4),IAC2I(1,2) H0431370 C***** EVALUATION MAY PROCEED ACCORDING TO ANY VALID FORMATION SEQUENCEH0431380 C***** EVALUATION OF INTEGER TERM CONTAINING DIVISION H0431390 MRRVI = 13 H0431400 NECVI = 7 H0431410 KBCVI = 2 H0431420 LCCVI = 4 H0431430 IGDVI = NECVI/KBCVI * LCCVI H0431440 IFDVI = LCCVI * NECVI / KBCVI H0431450 IAC1I(1) = IGDVI - 12 H0431460 IAC1I(2) = IFDVI - 14 H0431470 WRITE (NUVI,434) MRRVI,IAC1I(1), IAC1I(2) H0431480 C***** FORMAT STATEMENTS FOR THIS SEGMENT H0431490 431 FORMAT ( /2X,4HTEST, I4, I6) H0431500 432 FORMAT(/2X, 4HTEST, I4, I6/ I16/ I16) H0431510 433 FORMAT(/2X, 4HTEST,I4,I6/6(I16/),I16) H0431520 434 FORMAT(/2X,4HTEST,I4,I6/I16/2X,35H THE ANSWERS ABOVE SHOULD BE 0 H0431530 1FOR/31H THIS SEGMENT TO BE SUCCESSFUL) H0431540 C***** END OF TEST SEGMENT 043 H0431550 C***** WHEN EXECUTING ONLY SEGMENT 043, THE STOP AND END CARDS H0431560 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0431570 C***** 1 AND 2 REMOVED. H0431580 C= STOP H0431590 C= END H0431600 C***********************************************************************H0500010 C****** H0500020 C****** SBB67 - (050) H0500030 C****** H0500040 C***********************************************************************H0500050 C****** GENERAL PURPOSE ASA REFH0500060 C****** TEST FORMATION OF SUBSCRIPTS FOR INTEGER 5.1.3.3H0500070 C****** AND SINGLE PRECISION ARRAYS IN FORM V,K FORMS H0500080 C***** H0500090 C***** S P E C I F I C A T I O N S SEGMENT 050 H0500100 C***** H0011605 C***** WHEN EXECUTING ONLY SEGMENT 050, THE SPECIFICATION STATEMENTS H0011610 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011615 C***** 1 AND 2 REMOVED. H0011620 C***** H0011625 C= DIMENSION A3S(3,3,3) H0011630 C= DIMENSION IAC1I(5),IAC2I(2,7),AC1S(25),AC2S(5,6) H0011635 C= INTEGER MCA3I(2,3,3) H0011640 C***** H0011645 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0500110 C***** H0071565 C***** WHEN EXECUTING ONLY SEGMENT 050, THE FOLLOWING STATEMENT H0071570 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071575 C***** H0071580 C= NUVI = 6 H0071585 C***** H0071590 WRITE (NUVI,501) H0500120 501 FORMAT (1H1,1X,36HSBB67 - (050) SUBSCRIPTS FOR INTEGER/ H0500130 -16X,21HAND REAL ARRAYS, V, K//2X,14HASA REF. 5.1.3//2X, H0500140 -7HRESULTS) H0500150 IAC1I(5) = 3 H0500160 IAC2I(1,3)=4 H0500170 MCA3I(2,2,1) = -7 H0500180 AC1S(20)=1.0 H0500190 AC2S(4,1)=-2.1E1 H0500200 A3S(1,2,2) = -22.0 H0500210 JACVI = IAC1I(5) + IAC2I(1,3) + MCA3I(2,2,1) H0500220 HHCVS = AC1S(20) - AC2S( 4,1) + A3S(1,2,2) H0500230 WRITE (NUVI, 502) JACVI, HHCVS H0500240 502 FORMAT (// I9//F11.1) H0500250 504 JACVI=1 H0500260 ACVS=1.0 H0500270 IAC1I(JACVI)=10 H0500280 IAC2I(JACVI,3)=12 H0500290 IAC2I(2,JACVI)=-6 H0500300 MCA3I(JACVI,JACVI,3) = -1 H0500310 MCA3I(2,JACVI,JACVI) = -1 H0500320 MCA3I(JACVI,3,JACVI) = -2 H0500330 AC1S(JACVI)=ACVS H0500340 AC2S(JACVI,2)=3.0 H0500350 AC2S(5,JACVI)=60.0E-1 H0500360 A3S(JACVI,JACVI,3) = +1.0 H0500370 A3S(2,JACVI,JACVI) = +1.0 H0500380 A3S(JACVI,3,JACVI) = +0.0 H0500390 NECVI = IAC1I(1) - IAC2I(1,3) - IAC2I(2,1) + MCA3I(1,1,3) + H0500400 1 MCA3I(2,1,1) + MCA3I(1,3,1) H0500410 MDCVI = IAC1I(JACVI) - IAC2I(JACVI,3) - IAC2I(2,JACVI) + H0500420 1 MCA3I(JACVI,JACVI,3) + MCA3I(2,JACVI,JACVI) + H0500430 2 MCA3I(JACVI,3,JACVI) H0500440 HHCVS = AC1S(1) + AC2S(1,2) - AC2S(5,1) + A3S(1,1,3) + A3S(2,1,1) H0500450 1 + A3S(1,3,1) H0500460 GGDVS = AC1S(JACVI) + AC2S(JACVI,2) - AC2S(5,JACVI) + H0500470 1 A3S(JACVI,JACVI,3) + A3S(2,JACVI,JACVI) + H0500480 2 A3S(JACVI,3,JACVI) H0500490 WRITE (NUVI,508) NECVI, MDCVI, HHCVS, GGDVS H0500500 508 FORMAT (// 2(I9/) / 2(F11.1/) / 35H THE ANSWERS ABOVE SHOULD BE 0H0500510 1 FOR/31H THIS SEGMENT TO BE SUCCESSFUL) H0500520 C***** END OF TEST SEGMENT 050 H0500530 C***** WHEN EXECUTING ONLY SEGMENT 050, THE STOP AND END CARDS H0500540 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0500550 C***** 1 AND 2 REMOVED. H0500560 C= STOP H0500570 C= END H0500580 C***********************************************************************H0510010 C****** H0510020 C****** SBB45 - (051) H0510030 C****** H0510040 C***********************************************************************H0510050 C****** GENERAL PURPOSE ASA REFH0510060 C****** TEST FORMATION OF SUBSCRIPTS FOR INTEGER 5.1.3.3H0510070 C****** AND SINGLE PRECISION ARRAYS IN FORM V+K AND V-K H0510080 C***** H0510090 C***** S P E C I F I C A T I O N S SEGMENT 051 H0510100 C***** H0011650 C***** WHEN EXECUTING ONLY SEGMENT 051, THE SPECIFICATION STATEMENTS H0011655 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011660 C***** 1 AND 2 REMOVED. H0011665 C***** H0011670 C= DIMENSION IAC1I(5),IAC2I(2,7),AC1S(25),AC2S(5,6),A3S(3,3,3) H0011675 C= INTEGER MCA3I(2,3,3) H0011680 C***** H0011685 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0510110 C***** H0071595 C***** WHEN EXECUTING ONLY SEGMENT 051, THE FOLLOWING STATEMENT H0071600 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071605 C***** H0071610 C= NUVI = 6 H0071615 C***** H0071620 WRITE (NUVI,511) H0510120 511 FORMAT (1H1,1X,36HSBB45 - (051) SUBSCRIPTS FOR INTEGER/ H0510130 -16X,24HAND REAL ARRAYS,V+K, V-K//2X,16HASA REF. 5.1.3.3//2X, H0510140 -7HRESULTS) H0510150 JACVI=4 H0510160 IAC1I(JACVI+1)=1 H0510170 IAC1I(JACVI-1)=2 H0510180 IAC2I(JACVI-2,1)=3 H0510190 IAC2I(JACVI-2,2)=4 H0510200 IAC2I(2,JACVI+ 3 )=5 H0510210 IAC2I(1,JACVI-0)=-3 H0510220 AC1S(JACVI+1)=1.0 H0510230 AC1S(JACVI-1)=2.0 H0510240 AC2S(JACVI+0,1)=3.0 H0510250 AC2S(JACVI-2,2)=4.0 H0510260 AC2S(2,JACVI+ 2 )=5.0 H0510270 AC2S(1,JACVI-0) = -3.0E0 H0510280 NECVI=IAC1I(5)+IAC1I(3)+IAC2I(2,1)+IAC2I(2,2) H0510290 -+IAC2I(2,7)+IAC2I(1,4)-12 H0510300 KBCVI = IAC1I(JACVI+1) + IAC1I(JACVI-1) + IAC2I(JACVI-2,1) + H0510310 1 IAC2I(JACVI-2,2) + IAC2I(1,JACVI-0) + IAC2I(2,JACVI+3) -12H0510320 HHCVS = AC1S(5) + AC1S(3) + AC2S(4,1) + AC2S(2,2) + AC2S(2,6) + H0510330 1 AC2S(1,4) - 12.0 H0510340 GGDVS = AC1S(JACVI+1) + AC1S(JACVI-1) + AC2S(JACVI+0,1) + H0510350 1 AC2S(JACVI-2,2) + AC2S(2,JACVI+2) + AC2S(1,JACVI-0) - 12.0H0510360 JACVI = 2 H0510370 MCA3I(JACVI,JACVI+1,1) = 12 H0510380 MCA3I(1,JACVI+1,3) = -4 H0510390 MCA3I(1,2,JACVI+0) = +2 H0510400 MCA3I(JACVI-1,1,JACVI-1) = -6 H0510410 MCA3I(JACVI,JACVI-0,2) = 15 H0510420 MCA3I(2,JACVI-1,JACVI-1) = -11 H0510430 MCA3I(JACVI-0,JACVI+1,JACVI+0) = -8 H0510440 MCA3I(JACVI,JACVI+1,JACVI+1) = MCA3I(JACVI,JACVI+1,1) + H0510450 1 MCA3I(1,JACVI+1,3) + MCA3I(1,2,JACVI+0) + H0510460 2 MCA3I(JACVI-1,1,JACVI-1) + MCA3I(JACVI,JACVI-0,2) + H0510470 3 MCA3I(2,JACVI-1,JACVI-1) + MCA3I(JACVI-0,JACVI+1,JACVI+0) H0510480 A3S(JACVI+1,1,1) = 12.0 H0510490 A3S(1,JACVI+1,3) = -4.0 H0510500 A3S(1,2,JACVI+0) = +2.0 H0510510 A3S(JACVI-1,1,JACVI-1) = -6.0 H0510520 A3S(JACVI+1,JACVI-0,2) = 15.0 H0510530 A3S(2,JACVI-1,JACVI-1) = -11.0 H0510540 A3S(JACVI-0,JACVI+1,JACVI+0) = -8.0 H0510550 A3S(JACVI+1,JACVI+1,JACVI+1) = A3S(JACVI+1,1,1) + H0510560 1 A3S(1,JACVI+1,3) + A3S(1,2,JACVI+0) + H0510570 2 A3S(JACVI-1,1,JACVI-1) + A3S(JACVI+1,JACVI-0,2) + H0510580 3 A3S(2,JACVI-1,JACVI-1) + A3S(JACVI-0,JACVI+1,JACVI+0) H0510590 WRITE (NUVI,515) NECVI,KBCVI,MCA3I(2,3,3),HHCVS,GGDVS,A3S(3,3,3) H0510600 515 FORMAT (//3(I9/)/3(F11.1/)/35H THE ANSWERS ABOVE SHOULD BE 0 FOR/H0510610 1 31H THIS SEGMENT TO BE SUCCESSFUL) H0510620 C***** END OF TEST SEGMENT 051 H0510630 C***** WHEN EXECUTING ONLY SEGMENT 051, THE STOP AND END CARDS H0510640 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0510650 C***** 1 AND 2 REMOVED. H0510660 C= STOP H0510670 C= END H0510680 C***********************************************************************H0520010 C***** H0520020 C***** SBB13 - (052) H0520030 C***** H0520040 C***********************************************************************H0520050 C***** GENERAL PURPOSE ASA REFSH0520060 C***** TEST FORMATION OF SUBSCRIPTS FOR INTEGER 5.1.3.3H0520070 C***** AND SINGLE PRECISION ARRAYS H0520080 C***** FORM C*V, C*V-K, C*V+K H0520090 C***** H0520100 C***** S P E C I F I C A T I O N S SEGMENT 052 H0520110 C***** H0011690 C***** WHEN EXECUTING ONLY SEGMENT 052, THE SPECIFICATION STATEMENTS H0011695 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011700 C***** 1 AND 2 REMOVED. H0011705 C***** H0011710 C= DIMENSION IAC1I(5),IAC2I(2,7),AC1S(25),A3S(3,3,3),AC2S(5,6) H0011715 C= INTEGER MCA3I(2,3,3) H0011720 C***** H0011725 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0520120 C***** H0071625 C***** WHEN EXECUTING ONLY SEGMENT 052, THE FOLLOWING STATEMENT H0071630 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071635 C***** H0071640 C= NUVI = 6 H0071645 C***** H0071650 WRITE (NUVI,520) H0520130 520 FORMAT (1H1,1X,36HSBB13 - (052) SUBSCRIPTS INTEGER AND/ H0520140 -16X,23HREAL, C*V, C*V-K, C*V+K//2X,16HASA REF. 5.1.3.3//2X, H0520150 -7HRESULTS) H0520160 JACVI=2 H0520170 KACVI= 1 H0520180 LCCVI = -2 H0520190 IAC1I(2*JACVI)=1 H0520200 IAC2I(1*JACVI,1)=2 H0520210 IAC2I(1,3*KACVI)=3 H0520220 AC1S(2*JACVI)=1.0 H0520230 AC2S(1*JACVI,1)=2.0 H0520240 AC2S(3, 3*KACVI)=30.E-1 H0520250 MDCVI = IAC1I(2*JACVI) + IAC2I(1*JACVI,1) + IAC2I(1,3*KACVI) - 6 H0520260 NECVI=IAC1I(4) +IAC2I(2,1) +IAC2I(1,3) - 6 H0520270 GGDVS = AC1S(2*JACVI) + AC2S(1*JACVI,1) + AC2S(3,3*KACVI) - 6.0 H0520280 HHCVS = AC1S(4) + AC2S(2,1) + AC2S(3,3) - 6.0 H0520290 WRITE (NUVI,524) MDCVI, NECVI, GGDVS, HHCVS H0520300 524 FORMAT (//2(I9/)/2(F11.1/)) H0520310 IAC1I(2*JACVI+1) = -6 H0520320 IAC1I(1*JACVI-1)=-4 H0520330 IAC2I(1*JACVI-1,2)=3 H0520340 IAC2I(2*JACVI-3,1)=4 H0520350 IAC2I(2,1*JACVI+4)=2 H0520360 IAC2I(1,3*JACVI-2)=1 H0520370 AC1S(2*LCCVI+9) = -6.0 H0520380 AC1S(1*LCCVI+3) = -4.0 H0520390 AC2S(1*LCCVI+3,2) = 3.0 H0520400 AC2S(2*JACVI+0,3)=4.0 H0520410 AC2S(3,1*JACVI+3)=2.0 H0520420 AC2S(3,3*JACVI-2)=1.0 H0520430 MDCVI = IAC1I(2*JACVI+1) + IAC1I(1*JACVI-1) + IAC2I(1*JACVI-1,2) +H0520440 1 IAC2I(1*KACVI+0,1) + IAC2I(2,2*JACVI+2) + H0520450 2 IAC2I(1,3*JACVI-2) H0520460 NECVI = IAC1I(5) + IAC1I(1) + IAC2I(1,2) H0520470 -+ IAC2I(1,1) + IAC2I(2,6) + IAC2I(1,4) H0520480 GGDVS = AC1S(2*JACVI+1) + AC1S(1*JACVI-1) + AC2S(1*JACVI-1,2) + H0520490 1 AC2S(2*JACVI+0,3) + AC2S(3,1*JACVI+3) + AC2S(3,3*JACVI-2) H0520500 HHCVS = AC1S(5) + AC1S(1) + AC2S(1,2) H0520510 -+ AC2S(4,3) + AC2S(3,5) + AC2S(3,4) H0520520 WRITE (NUVI,524) MDCVI, NECVI, GGDVS, HHCVS H0520530 MCA3I(2*KACVI,1,1) = -1 H0520540 MCA3I(2,2*KACVI,2) = -2 H0520550 MCA3I(1,1,1*KACVI) = -3 H0520560 MCA3I(1*KACVI+1,2,3) = 1 H0520570 MCA3I(2,1*KACVI+2,2) = 2 H0520580 MCA3I(1,2,3*KACVI+0) = 3 H0520590 MCA3I(4*KACVI-2,1,3) = 40 H0520600 MCA3I(1,6*KACVI-3,2) = 5 H0520610 MCA3I(2,3,10*KACVI-9) = -40 H0520620 MCA3I(2*KACVI,5*KACVI-4,2*KACVI+0)= -5 H0520630 MCA3I(1*KACVI-0,3,2*KACVI+1) = MCA3I(2*KACVI,1,1) + H0520640 1 MCA3I(2,2*KACVI,2) + MCA3I(1,1,1*KACVI) + MCA3I(1*KACVI+1,2,3)H0520650 2 + MCA3I(2,1*KACVI+2,2) + MCA3I(1,2,3*KACVI+0) H0520660 3 + MCA3I(4*KACVI-2,1,3) + MCA3I(1,6*KACVI-3,2) H0520670 4 + MCA3I(2,3,10*KACVI-9) + MCA3I(2*KACVI,5*KACVI-4,2*KACVI+0) H0520680 A3S(3*KACVI,1,1) = -1.0 H0520690 A3S(2,2*KACVI,2) = -2.0 H0520700 A3S(1,1,1*KACVI) = -3.0 H0520710 A3S(2*KACVI+1,2,3) = 1.0 H0520720 A3S(3,1*KACVI+2,2) = 2.0 H0520730 A3S(1,2,3*KACVI+0) = 3.0 H0520740 A3S(4*KACVI-2,1,3) = 40.0 H0520750 A3S(1,6*KACVI-3,2) = 5.0 H0520760 A3S(2,3,10*KACVI-8) = -40.0 H0520770 A3S(3*KACVI,5*KACVI-4,2*KACVI+0) = -5.0 H0520780 A3S(1*KACVI-0,3,2*KACVI+1) = A3S(3*KACVI,1,1) + A3S(2,2*KACVI,2) +H0520790 1 A3S(1,1,1*KACVI) + A3S(2*KACVI+1,2,3) + A3S(3,1*KACVI+2,2) + H0520800 2 A3S(1,2,3*KACVI+0) + A3S(4*KACVI-2,1,3) + A3S(1,6*KACVI-3,2) +H0520810 3 A3S(2,3,10*KACVI-8) + A3S(3*KACVI,5*KACVI-4,2*KACVI+0) H0520820 WRITE (NUVI,525) MCA3I(1,3,3), A3S(1,3,3) H0520830 525 FORMAT (//I9 // F11.1 ) H0520840 WRITE (NUVI,527) H0520850 527 FORMAT (// 35H THE ANSWERS ABOVE SHOULD BE 0 FOR/ H0520860 1 31H THIS SEGMENT TO BE SUCCESSFUL) H0520870 C***** END OF TEST SEGMENT 052 H0520880 C***** WHEN EXECUTING ONLY SEGMENT 052, THE STOP AND END CARDS H0520890 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0520900 C***** 1 AND 2 REMOVED. H0520910 C= STOP H0520920 C= END H0520930 C***********************************************************************H0530010 C***** H0530020 C***** SBF17 - (053) H0530030 C***** H0530040 C***********************************************************************H0530050 C***** H0530060 C***** GENERAL PURPOSE ASA REF H0530070 C***** TEST FORMATION OF SUBSCRIPTS FOR DOUBLE PRECISION 5.1.3.3 H0530080 C***** ARRAYS H0530090 C***** FORMS V, K, C*V, C*V-K, C*V+K, V+K, V-K H0530100 C***** H0530110 C***** S P E C I F I C A T I O N S SEGMENT 053 H0530120 C***** H0011730 C***** WHEN EXECUTING ONLY SEGMENT 053, THE SPECIFICATION STATEMENTS H0011735 C***** WHICH APPEAR AS COMMENTS, MUST HAVE THE C= IN COLUMNS H0011740 C***** 1 AND 2 REMOVED. H0011745 C***** H0011750 C= DOUBLE PRECISION AC1D(10),BC2D(7,4),CC3D(7,2,2),EP1D(43), H0011755 C= 1 VTAVD, WTAVD, AADVD H0011760 C***** H0011765 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0530130 C***** H0071655 C***** WHEN EXECUTING ONLY SEGMENT 053, THE FOLLOWING STATEMENT H0071660 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0071665 C***** H0071670 C= NUVI = 6 H0071675 C***** H0071680 WRITE (NUVI,530) H0530140 530 FORMAT (1H1,1X,33HSBF17 - (053) SUBSCRIPTS FOR D.P./ H0530150 -16X,17HARRAYS, ALL FORMS//2X,18HASA REF. - 5.1.3.3//2X,7HRESULTS) H0530160 NACVI = 10 H0530170 JACVI=1 H0530180 KACVI=+2 H0530190 LCCVI = -1 H0530200 EP1D(10)=1.00 H0530210 BC2D(6,3)=4.0D0 H0530220 CC3D(4,1,1)=-60.0D-1 H0530230 AC1D(JACVI)=30.0D-1 H0530240 BC2D(JACVI,3)=1.0D0 H0530250 CC3D(JACVI,1,1)=2.0D0 H0530260 BC2D(3,JACVI)=5.0D0 H0530270 CC3D(2,JACVI,1)=-2.0D0 H0530280 CC3D(3,2,JACVI)=.4D1 H0530290 VTAVD = EP1D(10) + BC2D(6,3) + CC3D(4,1,1) + AC1D(1) H0530300 -+BC2D(1,3) + CC3D(1,1,1) + BC2D(3,1) + CC3D(2,1,1) H0530310 -+CC3D(3,2,1) - 12.0D0 H0530320 AADVD = EP1D(10) + AC1D(JACVI) + BC2D(JACVI,3) + BC2D(6,3) + H0530330 1 CC3D(4,1,1) + CC3D(JACVI,1,1) + BC2D(3,JACVI) + H0530340 2 CC3D(2,JACVI,1) + CC3D(3,2,JACVI) - 12.0D0 H0530350 AC1D(3*JACVI)=-0.6D+1 H0530360 AC1D(3*JACVI-2)=70.0D-1 H0530370 AC1D(5*JACVI+3) = 1.0D0 H0530380 AC1D (JACVI+3) = 1.0D0 H0530390 AC1D (NACVI-3) = -1.0D0 H0530400 BC2D(6*JACVI,2*KACVI-1) =2.0D0 H0530410 BC2D(8*JACVI-2,1*LCCVI+5) = 10.0D0 H0530420 CC3D (3*JACVI,2,4*KACVI-6) = -8.0D0 H0530430 CC3D(10*JACVI-3,1,1*LCCVI+3) = -6.0D0 H0530440 WTAVD = AC1D(3) + AC1D(1) + AC1D(8) + BC2D(6,3) + H0530450 -BC2D(6,4) + CC3D(3,2,2) + CC3D(7,1,2) + AC1D(4) + AC1D(7) H0530460 CC3D(2*KACVI+1,NACVI-8,2*JACVI) = AC1D(3*JACVI) + H0530470 1 AC1D(3*JACVI-2) + AC1D(5*JACVI+3) + AC1D(JACVI+3) + H0530480 2 AC1D(NACVI-3) + BC2D(6*JACVI,2*KACVI-1) + H0530490 3 BC2D(8*JACVI-2,1*JACVI+3) + CC3D(3*JACVI,2,4*KACVI-6 ) + H0530500 4 CC3D(10*JACVI-3,1,1*JACVI+1) H0530510 WRITE (NUVI,531) VTAVD, WTAVD, AADVD, CC3D(5,2,2) H0530520 531 FORMAT (//4(D18.5/)/ 35H THE ANSWERS ABOVE SHOULD BE 0 FOR/ H0530530 1 31H THIS SEGMENT TO BE SUCCESSFUL) H0530540 C***** END OF TEST SEGMENT 053 H0530550 C***** WHEN EXECUTING ONLY SEGMENT 053, THE STOP AND END CARDS H0530560 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0530570 C***** 1 AND 2 REMOVED. H0530580 C= STOP H0530590 C= END H0530600 STOP H9999995 END H9999999