C***** PART9 *****************************************************H0003700 C***** H0003705 C***** ANSI FORTRAN (X3.9-1966) TEST PROGRAMS H0003710 C***** H0003715 C***** PREPARED BY THE NATIONAL BUREAU OF STANDARDS VERSION 3 H0003720 C***** H0003725 C***** JUNE 1974 H0003730 C***** H0003735 C***** PART 9 OF 14 PARTS H0003740 C***** H0003745 C***** SEGMENTS INCLUDED H0003750 C***** H0003755 C***** CPXAD - 140 ADDITION AND SUBTRACTION OF COMPLEX NUMBERS H0003760 C***** H0003765 C***** CPXMU - 141 MULTIPLICATION OF COMPLEX NUMBERS H0003770 C***** H0003775 C***** CPXDV - 142 DIVISION OF COMPLEX NUMBERS H0003780 C***** H0003785 C***** CPXEX - 143 EXPONENTIATION OF COMPLEX NUMBERS H0003790 C***** H0003795 C***** CPXOP - 144 ARITHMETIC OPERATIONS ON COMPLEX NUMBERS H0003800 C***** H0003805 C***** CREAD - 145 ADDITION, SUBTRACTION OF COMPLEX, REAL NUMBERS H0003810 C***** H0003815 C***** CREMU - 146 MULTIPLICATION OF COMPLEX BY REAL NUMBERS H0003820 C***** H0003825 C***** CREDV - 147 DIVISION OF REAL, COMPLEX BY COMPLEX, REAL NOS. H0003830 C***** H0003835 C***** CREOP - 148 COMBINED OPERATIONS ON COMPLEX AND REAL NOS. H0003840 C***** H0003845 C***** MISC3 - 149 BLANKS IN AND CONT. OF STATEMENT TO MAX. LINES H0003850 C***** H0003855 C***** MISC4 - 150 SPECIAL CHARACTERS FOR CONTINUATIONS H0003860 C***** H0013700 C***** THE FOLLOWING SPECIFICATIONS ARE TO BE USED ONLY WHEN H0013705 C***** SEGMENTS 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150 H0013710 C***** ARE RUN AS ONE MAIN PROGRAM. H0013715 C***** H0013720 DIMENSION A1S(5), A2S(2,2) H0013725 INTEGER AVI, I1I(5), I2I(2,2) H0013730 COMPLEX AVC, BVC, CVC, DVC, EVC, FVC, GVC, HVC, IVC, JVC, H0013735 1 PVC, RVC, SVC, TVC, UVC, H0013740 2 AAVC, ABVC, BAVC, BCVC, CAVC, CCVC, CDVC, DAVC, DCVC, ASVC, H0013745 3 BSVC, CSVC, DSVC, DBVC, DDVC, MAVC, MBVC, MCVC, MDVC, BBVC, H0013750 4 AAAVC, ABAVC, ACAVC, ADAVC, AASVC, ABSVC, ACSVC, ADSVC H0013755 COMPLEX NUMVC, DENVC, QAVC, QBVC, QCVC, QDVC H0013760 C***** H0013765 C***** H0013770 C***** END OF SPECIFICATIONS FOR SEGMENTS H0013775 C***** 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150 H0013780 C***********************************************************************H1400010 C***** H1400020 C***** CPXAD - (140) H1400030 C***** H1400040 C***********************************************************************H1400050 C***** GENERAL PURPOSE H1400060 C***** TO TEST ADDITION AND SUBTRACTION OF COMPLEX NUMBERS ASA REFH1400070 C***** INCLUDES OPERATIONS WITH UP TO 9 TERMS 6.1 H1400080 C***** DOES NOT TEST FOR ACCURACY H1400090 C***** H1400100 C*****ADDITION AND SUBTRACTION OF 2 TERMS H1400110 C***** H1400120 C***** S P E C I F I C A T I O N S SEGMENT 140 H1400130 C***** H0013785 C***** WHEN EXECUTING ONLY SEGMENT 140, REMOVE THE PRECEDING H0013790 C***** SPECIFICATIONS. THE FOLLOWING SPECIFICATIONS WHICH APPEAR H0013795 C***** AS COMMENTS MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0013800 C***** H0013805 C= COMPLEX AVC, BVC, CVC, DVC, EVC, FVC, GVC, HVC, IVC, JVC, AAVC, H0013810 C= 1 ABVC,BAVC,BBVC,CCVC,CDVC,BCVC,DCVC H0013815 C***** H0013820 C***** I N P U T - O U T P U T T A P E ASSIGNMENT STATEMENTS H1400140 IRVI = 5 H0073700 NUVI = 6 H0073705 C***** IDENTIFY THE SOURCE OF THE TEST PROGRAMS H0073710 WRITE(NUVI,0071) H0073715 0071 FORMAT (41H1 F O R T R A N T E S T P R O G R A M S// H0073720 1 42H PREPARED BY NATIONAL BUREAU OF STANDARDS// H0073725 3 37H FOR USE ON LARGE FORTRAN PROCESSORS // H0073730 4 42H IN ACCORDANCE WITH ASA FORTRAN X3.9-1966// H0073735 5 23H VERSION 3 PART 9 ///) H0073740 C***** 3 OF 6 INPUT CARDS IDENTIFY THE USERS SYSTEM AND COMPILER H0073745 C PREPARED BY USER H0073750 C READ, NO LIST H0073755 C PREPARED BY USER H0073760 C READ, NO LIST H0073765 C PREPARED BY USER H0073770 C READ, NO LIST H0073775 C READ(IRVI,0070) H0073780 C READ(IRVI,0072) H0073785 C READ(IRVI,0073) H0073790 0070 FORMAT(40H BASED ON ASA FORTRAN X3.9-1966 /) H0073795 0072 FORMAT(40H TEST PROGRAMS /) H0073800 0073 FORMAT(40H FORTRAN COMPILER /) H0073805 WRITE(NUVI,0070) H0073810 WRITE(NUVI,0072) H0073815 WRITE(NUVI,0073) H0073820 WRITE (NUVI, 1401) H1400150 1401 FORMAT(1H1,1X,34HCPXAD - (140) COMPLEX ADDITION AND/16X, H1400160 111HSUBTRACTION//2X,14HASA REF. - 6.1//2X,7HRESULTS//) H1400170 AVC=(1.467,2.560) H1400180 BVC=(3.568,7.480) H1400190 CVC=AVC+BVC H1400200 DVC=AVC+(3.568,7.480) H1400210 EVC=(1.9467,2.9560)+BVC H1400220 FVC=(1.467,2.560)+(3.568,7.480) H1400230 GVC=AVC-BVC H1400240 HVC = (.1467E+1,.2560E1) - BVC H1400250 IVC = AVC - (3568E-3,.7480E+1) H1400260 JVC=(1.467,2.560)-(3.568,7.480) H1400270 C*****ADDITION AND SUBTRACTION OF 3 TERMS H1400280 AAVC=AVC+BVC-CVC H1400290 ABVC=AVC+(3.568,7.480)-DVC H1400300 BAVC=(1.467,2.560)+BVC-CVC H1400310 BBVC=(1.467,2.560)+(3.568,7.480)-FVC H1400320 BCVC=AVC-BVC-GVC H1400330 CCVC=(1.467,2.560)-BVC-HVC H1400340 CDVC=AVC-(3.568,7.480)-IVC H1400350 DCVC=(1.467,2.560)-(3.568,7.480)-JVC H1400360 WRITE(NUVI,1402) AAVC,ABVC,BAVC,BBVC,BCVC,CCVC,CDVC,DCVC H1400370 C*****ADDITION AND SUBTRACTION OF 5 TERMS H1400380 AAVC=AVC-(1.89,6.48)-AAVC-BVC+(0.0,9.830) H1400390 ABVC=AVC-(1.89,6.48)-AAVC-BVC+(0.0,9.830) H1400400 WRITE(NUVI,1402)ABVC H1400410 1402 FORMAT(2X,2F8.4) H1400420 AAVC=AVC-(1.89,6.48)-BVC+(0.0,9.83)+CVC H1400430 C*****ADDITION AND SUBTRACTION OF 6 TERMS H1400440 ABVC=AVC-(1.89,6.48)-BVC+(0.0,9.83)+CVC-AAVC H1400450 WRITE(NUVI,1402) ABVC H1400460 C*****ADDITION AND SUBTRACTION OF 8 TERMS H1400470 AAVC=AVC+BVC-CVC+(0.34,6.45)-(4.54,6.85)+DVC+(1.0,0.0)-EVC H1400480 C*****ADDITION AND SUBTRACTION OF 9 TERMS H1400490 ABVC=AVC+BVC-CVC+(0.34,6.45)-(4.54,6.85)+DVC+(1.0,0.0)-EVC-AAVC H1400500 WRITE (NUVI,1403) ABVC H1400510 1403 FORMAT(2X,2F8.4//2X,35HTEST IS POSITIVE IF NUMBERS PRINTED/2X , H1400520 117HABOVE ARE 0.0,0.0) H1400530 C***** END OF TEST SEGMENT 140 H1400540 C***** WHEN EXECUTING ONLY SEGMENT 140, THE STOP AND END CARDS H1400550 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1400560 C***** IN COLUMNS 1 AND 2 REMOVED. H1400570 C= STOP H1400580 C= END H1400590 C***********************************************************************H1410010 C***** H1410020 C***** CPXMU - (141) H1410030 C***********************************************************************H1410040 C***** GENERAL PURPOSE H1410050 C***** TO TEST MULTIPLICATION OF COMPLEX NUMBERS ASA REFH1410060 C***** INCLUDES OPERATIONS WITH UP TO 10 TERMS 6.1 H1410070 C***** DOES NOT TEST FOR ACCURACY H1410080 C***** H1410090 C***** H1410100 C***** S P E C I F I C A T I O N S SEGMENT 141 H1410110 C***** H0013825 C***** WHEN EXECUTING ONLY SEGMENT 141, THE SPECIFICATION STATEMENTS H0013830 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0013835 C***** IN COLUMNS 1 AND 2 REMOVED. H0013840 C***** H0013845 C= COMPLEX AVC, BVC, CVC, DVC, EVC, FVC, GVC, HVC, IVC, JVC H0013850 C= 1 ,AAVC, ABVC, BAVC, BBVC H0013855 C***** H0013860 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1410120 C***** H0073825 C***** WHEN EXECUTING ONLY SEGMENT 141, THE FOLLOWING STATEMENT H0073830 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0073835 C***** H0073840 C= NUVI = 6 H0073845 C***** H0073850 WRITE (NUVI, 1411) H1410130 1411 FORMAT (1H1,1 X,36HCPXMU - (141) COMPLEX MULTIPLICATION//2X, H1410140 114HASA REF. - 6.1//2X,7HRESULTS//) H1410150 C*****MULTIPLICATION OF TWO TERMS H1410160 AVC = (-0.5,0.86602) H1410170 BVC = (-0.5,-0.86602) H1410180 AAVC = (AVC * BVC ) H1410190 ABVC = AVC * (-0.5,-0.86602) H1410200 BAVC = (-0.5,0.86602) * BVC H1410210 BBVC = (-0.5,0.86602)*(-0.5,-0.86602) H1410220 WRITE(NUVI,1412) AAVC,ABVC,BAVC,BBVC H1410230 C*****MULTIPLICATION OF 3 TERMS H1410240 AVC=(0.0,1.0) H1410250 BVC=(1.0,0.0) H1410260 CVC=(0.0,-1.0) H1410270 AAVC=AVC*BVC*CVC H1410280 ABVC=(0.0,1.0)*BVC*(0.0,-1.0) H1410290 WRITE(NUVI,1412) AAVC,ABVC H1410300 1412 FORMAT(2X,2F8.3) H1410310 C*****MULTIPLICATION OF 4 TERMS H1410320 AVC=(0.30901,0.95105) H1410330 BVC=(-0.80901,0.58778) H1410340 CVC=(-0.80901,-0.58778) H1410350 DVC=(0.30901,-0.95105) H1410360 AAVC=AVC*BVC*CVC*DVC H1410370 ABVC=AVC*(-0.80901,0.58778)*CVC*(0.30901,-0.95105) H1410380 WRITE(NUVI,1412) AAVC,ABVC H1410390 C*****MULTIPLICATION OF 5 TERMS H1410400 AVC=(0.5,0.86602) H1410410 BVC=(-0.5,0.86602) H1410420 CVC = (1.0,0.0) H1410430 DVC=(-0.5,-0.86602) H1410440 EVC=(0.5,-0.86602) H1410450 AAVC=AVC*BVC*CVC*DVC*EVC H1410460 ABVC=AVC*(-0.5,0.86602)*CVC*(-0.5,-0.86602)*EVC H1410470 WRITE(NUVI,1412) AAVC,ABVC H1410480 C*****MULTIPLICATION OF 6 TERMS H1410490 AVC = (0.98480,0.17364) H1410500 BVC=(-0.17364,0.98480) H1410510 CVC=(-0.86602,0.5) H1410520 DVC=(-0.93969,-0.34202) H1410530 EVC=(0.34202,-0.93969) H1410540 FVC=(0.86602,-0.5) H1410550 AAVC=AVC*BVC*CVC*DVC*EVC*FVC H1410560 ABVC=AVC*(-0.17364,0.98480)*CVC*(-0.93969,-0.34202)*EVC*(0.86602, H1410570 1-0.5) H1410580 WRITE(NUVI,1412) AAVC,ABVC H1410590 C*****MULTIPLICATION OF 7 TERMS H1410600 AVC=(0.70710,0.70710) H1410610 BVC=(0.0,1.0) H1410620 CVC=(-0.70710,0.70710) H1410630 DVC=(1.0,0.0) H1410640 EVC=(-0.70710,-0.70710) H1410650 FVC=(0.0,-1.0) H1410660 GVC=(0.70710,-0.70710) H1410670 AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC H1410680 ABVC=AVC*(0.0,1.0)*CVC*( 1.0,0.0)*EVC*(0.0,-1.0)*GVC H1410690 WRITE(NUVI,1412) AAVC,ABVC H1410700 C*****MULTIPLICATION OF 8 TERMS H1410710 AVC=(0.76604,0.64278) H1410720 BVC=(0.17364,0.98480) H1410730 CVC=(-0.5,0.86602) H1410740 DVC=(-0.93969,0.34202) H1410750 EVC=(-0.93969,-0.34202) H1410760 FVC=(-0.5,-0.86602) H1410770 GVC=(0.17364,-0.98480) H1410780 HVC=(0.76604,-0.64278) H1410790 AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC*HVC H1410800 ABVC=AVC*(0.17364,0.98480)*CVC*DVC*(-0.93969,-0.34202)*FVC*GVC*HVCH1410810 WRITE(NUVI,1412) AAVC,ABVC H1410820 C*****MULTIPLICATION OF 9 TERMS H1410830 AVC=(0.80901,0.58778) H1410840 BVC=(0.30901,0.95105) H1410850 CVC=(-0.94832,0.31730) H1410860 DVC=(-0.80901,0.58778) H1410870 EVC = (1.0,0.0) H1410880 FVC=(-0.80901,-0.58778) H1410890 GVC=(-0.94832,-0.31730) H1410900 HVC=(0.30901,-0.95105) H1410910 IVC=(0.80901,-0.58778) H1410920 AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC*HVC*IVC H1410930 ABVC=AVC*(0.30901,0.95105)*CVC*(-0.80901,0.58778)*( 1.0,0.0)*FVC* H1410940 1GVC*HVC*IVC H1410950 WRITE(NUVI,1412) AAVC,ABVC H1410960 C*****MULTIPLICATION OF 10 TERMS H1410970 AVC=(0.86602,0.5) H1410980 BVC=(0.5,0.86602) H1410990 CVC=(0.0,1.0) H1411000 DVC=(-0.5,0.86602) H1411010 EVC=(-0.86602,0.5) H1411020 FVC=(-1.0,0.0) H1411030 GVC=(-0.86602,-0.5) H1411040 HVC=(-0.5,-0.86602) H1411050 IVC=(0.0,-1.0) H1411060 JVC=(0.0,1.0) H1411070 AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC*HVC*IVC*JVC H1411080 ABVC=AVC*(0.5,0.86602)*CVC*(-0.5,0.86602)*EVC*FVC*GVC*HVC*(0.0,-1.H1411090 10)*JVC H1411100 WRITE(NUVI,1412) AAVC,ABVC H1411110 WRITE(NUVI,1413) H1411120 1413 FORMAT (1H0,35HTEST IS POSITIVE IF NUMBERS PRINTED/1X, H1411130 117HABOVE ARE 1.0,0.0) H1411140 WRITE(NUVI, 1414) H1411150 1414 FORMAT (//39H ERROR SHOULD NOT EXCEED + OR - .001 ) H1411160 C***** END OF TEST SEGMENT 141 H1411170 C***** WHEN EXECUTING ONLY SEGMENT 141, THE STOP AND END CARDS H1411180 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1411190 C***** IN COLUMNS 1 AND 2 REMOVED. H1411200 C= STOP H1411210 C= END H1411220 C***********************************************************************H1420010 C***** H1420020 C***** CPXDV-(142) H1420030 C***** H1420040 C***********************************************************************H1420050 C***** GENERAL PURPOSE H1420060 C***** TO TEST DIVISION OF COMPLEX NUMBERS ASA REFH1420070 C***** 6.1 H1420080 C***** H1420090 C***** S P E C I F I C A T I O N S SEGMENT 142 H1420100 C***** H0013865 C***** WHEN EXECUTING ONLY SEGMENT 142, THE SPECIFICATION STATEMENTS H0013870 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0013875 C***** IN COLUMNS 1 AND 2 REMOVED. H0013880 C***** H0013885 C= COMPLEX NUMVC,DENVC,QAVC,QBVC,QCVC,QDVC H0013890 C***** H0013895 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1420110 C***** H0073855 C***** WHEN EXECUTING ONLY SEGMENT 142, THE FOLLOWING STATEMENT H0073860 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0073865 C***** H0073870 C= NUVI = 6 H0073875 C***** H0073880 WRITE (NUVI, 1421) H1420120 1421 FORMAT(1H1,1X,25HCPXDV - (142) DIVISION OF/16X, H1420130 115HCOMPLEX NUMBERS//15H ASA REF.- 6.1//2X,7HRESULTS//) H1420140 C***** TEST NUMBER 1 H1420150 NUMVC=(0.36602,1.36602) H1420160 DENVC=(0.86602,0.5) H1420170 QAVC=NUMVC/DENVC H1420180 QBVC=(0.36602,1.3660) /DENVC H1420190 QCVC=NUMVC/(0.86602,0.5) H1420200 QDVC=(0.36602,1.36602)/(0.86602,0.5) H1420210 WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC H1420220 C*****TEST NUMBER 2 H1420230 NUMVC=(0.0,1.41420) H1420240 DENVC=(0.70710,0.70710) H1420250 QAVC=NUMVC/DENVC H1420260 QBVC=(0.0,1.41420)/DENVC H1420270 QCVC=NUMVC/(0.70710,0.70710) H1420280 QDVC=(0.0,1.41420)/(0.70710,0.70710) H1420290 WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC H1420300 1422 FORMAT(2X,2F8.4) H1420310 C*****TEST NUMBER 3 H1420320 NUMVC=(-0.36602,1.36602) H1420330 DENVC=(0.5,0.86602) H1420340 QAVC=NUMVC/DENVC H1420350 QBVC=(-0.36602,1.36602)/DENVC H1420360 QCVC=NUMVC/(0.5,0.86602) H1420370 QDVC=(-0.36602,1.36602)/(0.5,0.86602) H1420380 WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC H1420390 C*****TEST NUMBER 4 H1420400 NUMVC=(0.73204,2.73204) H1420410 DENVC=(1.73204,1.0) H1420420 QAVC=NUMVC/DENVC H1420430 QBVC=(0.73204,2.73204)/DENVC H1420440 QCVC=NUMVC/(1.73204,1.0) H1420450 QDVC=(0.73204,2.73204)/(1.73204,1.0) H1420460 WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC H1420470 C***** TEST NUMBER 5 H1420480 NUMVC=(0.0,2.82840) H1420490 DENVC=(1.41420,1.41420) H1420500 QAVC=NUMVC/DENVC H1420510 QBVC=(0.0,2.82840)/DENVC H1420520 QCVC=NUMVC/(1.41420,1.41420) H1420530 QDVC=(0.0,2.82840)/(1.41420,1.41420) H1420540 WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC H1420550 WRITE(NUVI,1423) H1420560 1423 FORMAT (//2X,35HTEST IS POSITIVE IF NUMBERS PRINTED/2X, H1420570 117HABOVE ARE 1.0,1.0) H1420580 WRITE (NUVI, 1424) H1420590 1424 FORMAT (//39H ERROR SHOULD NOT EXCEED + OR - .0001 ) H1420600 C***** END OF TEST SEGMENT 142 H1420610 C***** WHEN EXECUTING ONLY SEGMENT 142, THE STOP AND END CARDS H1420620 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1420630 C***** IN COLUMNS 1 AND 2 REMOVED. H1420640 C= STOP H1420650 C= END H1420660 C***********************************************************************H1430010 C***** H1430020 C***** CPXEX(143) H1430030 C***** H1430040 C***********************************************************************H1430050 C***** GENERAL PURPOSE H1430060 C***** TO TEST EXPONENTIATION OF COMPLEX NUMBERS ASA REFH1430070 C***** BY INTEGERS 6.1 H1430080 C***** EXPONENT VALUES VARY FROM 3 TO 100 H1430090 C***** H1430100 C***** S P E C I F I C A T I O N S SEGMENT 143 H1430110 C***** H0013900 C***** WHEN EXECUTING ONLY SEGMENT 143, THE SPECIFICATION STATEMENTS H0013905 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0013910 C***** IN COLUMNS 1 AND 2 REMOVED. H0013915 C= INTEGER AVI H0013920 C= COMPLEX AVC,BVC,CVC,DVC,EVC H0013925 C***** H0013930 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1430120 C***** H0073885 C***** WHEN EXECUTING ONLY SEGMENT 143, THE FOLLOWING STATEMENT H0073890 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0073895 C***** H0073900 C= NUVI = 6 H0073905 C***** H0073910 WRITE (NUVI, 1431) H1430130 1431 FORMAT(1H1,1 X,36HCPXEX - (143) COMPLEX EXPONENTIATION// H1430140 1 2X,11HASA.REF.6.1//2X,29HRESULTS BASED ON THE FUNCTION// H1430150 2 2X,25H1.0 = SIN**2(X)+COS**2(X)//) H1430160 C***** EXPONENT=3 H1430170 AVC = (-0.5,0.8660254) H1430180 AVI=3 H1430190 BVC=AVC**3 H1430200 CVC = (-0.5,0.8660254) ** 3 H1430210 DVC = (-0.5,0.8660254) ** AVI H1430220 EVC=AVC**AVI H1430230 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430240 C***** EXPONENT=4 H1430250 AVC=(0.0,1.0) H1430260 AVI=4 H1430270 BVC=AVC**4 H1430280 CVC=(0.0,1.0)**4 H1430290 DVC=(0.0,1.0)**AVI H1430300 EVC=AVC**AVI H1430310 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430320 1432 FORMAT (2X,2F8.4) H1430330 C***** EXPONENT=6 H1430340 AVC = ( 0.5,0.8660254) H1430350 AVI=6 H1430360 BVC=AVC**6 H1430370 CVC = ( 0.5,0.8660254) ** 6 H1430380 DVC = ( 0.5,0.8660254) ** AVI H1430390 EVC= AVC**AVI H1430400 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430410 C***** EXPONENT=8 H1430420 AVC = (0.7071068,0.7071068) H1430430 AVI=8 H1430440 BVC=AVC**8 H1430450 CVC = (0.7071068,0.7071068) ** 8 H1430460 DVC = (0.7071068,0.7071068) ** AVI H1430470 EVC=AVC**AVI H1430480 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430490 C***** EXPONENT=10 H1430500 AVC = (0.8090170,0.5877853) H1430510 AVI=10 H1430520 BVC=AVC**10 H1430530 CVC = (0.8090170,0.5877853) ** 10 H1430540 DVC = (0.8090170,0.5877853) ** AVI H1430550 EVC=AVC**AVI H1430560 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430570 C*****EXPONENT=20 H1430580 AVC = (0.9510565,0.3090170) H1430590 AVI=20 H1430600 BVC=AVC**20 H1430610 CVC = (0.9510565,0.3090170) ** 20 H1430620 DVC = (0.9510565,0.3090170) ** AVI H1430630 EVC=AVC**AVI H1430640 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430650 C***** EXPONENT=40 H1430660 AVC = (0.9876883,0.1564345) H1430670 AVI=40 H1430680 BVC=AVC**40 H1430690 CVC = (0.9876883,0.1564345) ** 40 H1430700 DVC = (0.9876883,0.1564345) ** AVI H1430710 EVC=AVC**AVI H1430720 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430730 C***** EXPONENT=60 H1430740 AVC = (0.9945219,0.1045285) H1430750 AVI=60 H1430760 BVC=AVC**60 H1430770 CVC = (0.9945219,0.1045285) ** 60 H1430780 DVC = (0.9945219,0.1045285) ** AVI H1430790 EVC=AVC**AVI H1430800 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430810 C*****EXPONENT=80 H1430820 AVI = 80 H1430830 AVC = (0.9969173,0.0784591) H1430840 BVC=AVC**80 H1430850 CVC = (0.9969173,0.0784591) ** 80 H1430860 DVC = (0.9969173,0.0784591) ** AVI H1430870 EVC=AVC**AVI H1430880 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430890 C***** EXPONENT=100 H1430900 AVC = (0.9980267,0.0627905) H1430910 AVI=100 H1430920 BVC=AVC**100 H1430930 CVC = (0.9980267,0.0627905) ** 100 H1430940 DVC = (0.9980267,0.0627905) ** AVI H1430950 EVC=AVC**AVI H1430960 WRITE(NUVI,1432) BVC,CVC,DVC,EVC H1430970 WRITE (NUVI,1433) H1430980 1433 FORMAT (// 37H TEST IS POSITIVE IF NUMBERS PRINTED/2X, H1430990 1 26HABOVE ARE CLOSE TO 1.0,0.0) H1431000 WRITE (NUVI, 1434) H1431010 1434 FORMAT(// 39H ERROR SHOULD NOT EXCEED + OR - .0001 ) H1431020 C***** END OF TEST SEGMENT 143 H1431030 C***** WHEN EXECUTING ONLY SEGMENT 143, THE STOP AND END CARDS H1431040 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1431050 C***** IN COLUMNS 1 AND 2 REMOVED. H1431060 C= STOP H1431070 C= END H1431080 C***********************************************************************H1440010 C***** H1440020 C***** CPXOP - (144) H1440030 C***** H1440040 C***********************************************************************H1440050 C***** GENERAL PURPOSE ASA REF H1440060 C***** TO TEST ARITHMETIC OPERATIONS ON COMPLEX NUMBERS. 6.1 H1440070 C***** OPERATIONS INCLUDE ALL BASIC OPERATORS (+,-,*,**) ACTING H1440080 C***** ON COMPLEX NUMBERS H1440090 C***** H1440100 C***** S P E C I F I C A T I O N S SEGMENT 144 H1440110 C***** H0013935 C***** WHEN EXECUTING ONLY SEGMENT 144, THE SPECIFICATION STATEMENTS H0013940 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0013945 C***** IN COLUMNS 1 AND 2 REMOVED. H0013950 C***** H0013955 C= INTEGER AVI H0013960 C= COMPLEX AVC, BVC, CVC, DVC, EVC, FVC, GVC,HVC,PVC,RVC,SVC,TVC,UVCH0013965 C***** H0013970 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1440120 C***** H0073915 C***** WHEN EXECUTING ONLY SEGMENT 144, THE FOLLOWING STATEMENT H0073920 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0073925 C***** H0073930 C= NUVI = 6 H0073935 C***** H0073940 WRITE (NUVI, 1441) H1440130 1441 FORMAT(1H1,1X,32HCPXOP - (144) COMPLEX OPERATIONS//2X, H1440140 111HASA REF 6.1//2X,7HRESULTS//) H1440150 AVC = (0.9396926,0.3420201) H1440160 BVC = (1.2817127,0.5976725) H1440170 CVC = (0.0, 1.4142136) H1440180 DVC = (0.7071068, 0.7071068) H1440190 EVC = (1.0986841, 0.4550899) H1440200 AVI = 2 H1440210 RVC=(AVC*BVC+(0.9396926,0.3420201)*BVC+AVC*(1.2817127,0.5976725)- H1440220 1(0.9396926,0.3420201)*(1.2817127,0.5976725)+CVC/DVC+(0.0,1.4142136H1440230 2)/DVC+CVC/(0.7071068,0.7071068)-(0.0,1.4142136)/(0.7071068, H1440240 3 0.7071068)+EVC**2-EVC**AVI+(1.0986841,0.4550899)**2+(1.0986841, H1440250 4 0.4550899)**AVI)**2/(0.0, 72.0) H1440260 FVC=(0.0,4.0) H1440270 GVC=(0.43301,0.3) H1440280 HVC=(0.43301,0.2) H1440290 PVC=(1.73204,1.0) H1440300 SVC=FVC/((GVC+HVC)*(PVC**2)) H1440310 TVC=(0.0,4.0)/(((0.43301,0.3)+(0.43301,0.2))*((1.73204,1.0)**2)) H1440320 UVC=FVC/((GVC+(0.43301,0.2))*(PVC**2)) H1440330 WRITE (NUVI,1442) RVC,SVC,TVC,UVC H1440340 1442 FORMAT ( 4(2X,2F8.4/) /37H TEST IS POSITIVE IF NUMBERS PRINTED / H1440350 12X, 17HABOVE ARE 1.0,0.0 ) H1440360 WRITE (NUVI, 1443) H1440370 1443 FORMAT(// 39H ERROR SHOULD NOT EXCEED + OR - .0001 ) H1440380 C***** END OF TEST SEGMENT 144 H1440390 C***** WHEN EXECUTING ONLY SEGMENT 144, THE STOP AND END CARDS H1440400 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1440410 C***** IN COLUMNS 1 AND 2 REMOVED. H1440420 C= STOP H1440430 C= END H1440440 C***********************************************************************H1450010 C***** H1450020 C***** CREAD-(145) H1450030 C***** H1450040 C***********************************************************************H1450050 C***** GENERAL PURPOSE ASA REF H1450060 C***** TO TEST ADDITION AND SUBTRACTION OF COMPLEX 6.1 H1450070 C***** AND REAL NUMBERS H1450080 C***** H1450090 C***** S P E C I F I C A T I O N S SEGMENT 145 H1450100 C***** H0013975 C***** WHEN EXECUTING ONLY SEGMENT 145, THE SPECIFICATION STATEMENTS H0013980 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0013985 C***** IN COLUMNS 1 AND 2 REMOVED. H0013990 C***** H0013995 C= COMPLEX AVC,BAVC,CAVC,DAVC,ASVC,BSVC,CSVC,AAVC H0014000 C= 2 , DSVC,AAAVC,ABAVC,ACAVC,ADAVC,AASVC,ABSVC,ACSVC,ADSVC H0014005 C***** H0014010 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1450110 C***** H0073945 C***** WHEN EXECUTING ONLY SEGMENT 145, THE FOLLOWING STATEMENT H0073950 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0073955 C***** H0073960 C= NUVI = 6 H0073965 C***** H0073970 WRITE (NUVI, 1450) H1450120 1450 FORMAT(1H1,1X,38HCREAD - (145) ADDITION AND SUBTRACTION/ H1450130 1 10X,27HOF COMPLEX AND REAL NUMBERS//2X, H1450140 1 12HASA REF. 6.1//2X,7HRESULTS//) H1450150 AVC=(5.4,7.5) H1450160 AVS=4.2 H1450170 C***** ADDITION AND SUBTRACTION OF 2 NUMBERS H1450180 AAVC=AVC-AVS H1450190 BAVC=(5.4,7.5)-AVS H1450200 CAVC=AVC-4.2 H1450210 DAVC=(5.4,7.5)-4.2 H1450220 ASVC=AVC+AVS H1450230 BSVC=(5.4,7.5)+AVS H1450240 CSVC=AVC+4.2 H1450250 DSVC=(5.4,7.5)+4.2 H1450260 C***** ADDITION AND SUBTRACTION OF 3 NUMBERS H1450270 AAAVC=AVC-AVS-AAVC H1450280 ABAVC=(5.4,7.5)-AVS-BAVC H1450290 ACAVC=AVC-4.2-(1.2,7.5) H1450300 ADAVC=(5.4,7.5)-4.2-(1.2,7.5) H1450310 AASVC=AVC+AVS-ASVC H1450320 ABSVC=(5.4,7.5)+AVS-BSVC H1450330 ACSVC=AVC+4.2-(9.6,7.5) H1450340 ADSVC=(5.4,7.5)+4.2-(9.6,7.5) H1450350 WRITE(NUVI,1451)ABAVC,ACAVC,ADAVC,AASVC,ABSVC,ACSVC,ADSVC,AAAVC H1450360 1451 FORMAT( 2X, 2F8.4) H1450370 C***** ADDITION AND SUBTRACTION OF 7 NUMBERS H1450380 ADSVC=AVC-(5.4,7.5)+AVS-4.2+ASVC-3.2-(6.4,7.5) H1450390 WRITE(NUVI,1452) ADSVC H1450400 1452 FORMAT(2X,2F8.4//37H TEST IS POSITIVE IF NUMBERS PRINTED/2X, H1450410 1 17HABOVE ARE 0.0,0.0) H1450420 C***** END OF TEST SEGMENT 145 H1450430 C***** WHEN EXECUTING ONLY SEGMENT 145, THE STOP AND END CARDS H1450440 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1450450 C***** IN COLUMNS 1 AND 2 REMOVED. H1450460 C= STOP H1450470 C= END H1450480 C***********************************************************************H1460010 C***** H1460020 C***** CREMU - (146) H1460030 C***** H1460040 C***********************************************************************H1460050 C***** GENERAL PURPOSE ASA REF H1460060 C***** TO TEST MULTIPLICATION OF COMPLEX NUMBERS BY 6.1 H1460070 C***** REAL NUMBERS H1460080 C***** H1460090 C***** S P E C I F I C A T I O N S SEGMENT 146 H1460100 C***** H0014015 C***** WHEN EXECUTING ONLY SEGMENT 146, THE SPECIFICATION STATEMENTS H0014020 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0014025 C***** IN COLUMNS 1 AND 2 REMOVED. H0014030 C***** H0014035 C= COMPLEX AVC,BVC, MAVC,MBVC,MCVC,MDVC H0014040 C***** H0014045 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1460110 C***** H0073975 C***** WHEN EXECUTING ONLY SEGMENT 146, THE FOLLOWING STATEMENT H0073980 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0073985 C***** H0073990 C= NUVI = 6 H0073995 C***** H0074000 WRITE (NUVI, 1461) H1460120 1461 FORMAT(1H1,1X,39HCREMU - (146) MULTIPLICATION OF COMPLEX/16X, H1460130 1 7HBY REAL //2X, H1460140 2 11HASA.REF.6.1//2X,7HRESULTS//) H1460150 C*****MULTIPLICATION OF A COMPLEX NUMBER BY A REAL NUMBER H1460160 AVC=(1.6,3.2) H1460170 AVS=0.625 H1460180 MAVC=AVC*AVS H1460190 MBVC=(1.6,3.2)*AVS H1460200 MCVC=AVC*0.625 H1460210 MDVC=(1.6,3.2)*0.625 H1460220 WRITE (NUVI,1463) MAVC,MBVC,MCVC,MDVC H1460230 1463 FORMAT(4(2X,2F8.4/)//37H TEST IS POSITIVE IF NUMBERS PRINTED/,2X,H1460240 417HABOVE ARE 1.0,2.0 ) H1460250 C*****MULTIPLICATION OF 4 TERMS H1460260 AVS=4.0 H1460270 BVS=0.25 H1460280 AVC=(0.93969,0.34202) H1460290 BVC=(1.28168,0.59764) H1460300 MAVC=AVS*AVC*BVS*BVC H1460310 MBVC=4.0*BVS*AVC*BVC H1460320 MCVC=4.0*BVS*(0.93969,0.34202)*BVC H1460330 MDVC=4.0*0.25*(0.93969,0.34202)*(1.28168,0.59764) H1460340 WRITE (NUVI,1462) MAVC,MBVC,MCVC,MDVC H1460350 1462 FORMAT(//4(2X,2F8.4/)//37H TEST IS POSITIVE IF NUMBERS PRINTED/ H1460360 12X,17HABOVE ARE 1.0,1.0) H1460370 WRITE (NUVI, 1464) H1460380 1464 FORMAT(// 39H ERROR SHOULD NOT EXCEED + OR - .0001 ) H1460390 C***** END OF TEST SEGMENT 146 H1460400 C***** WHEN EXECUTING ONLY SEGMENT 146, THE STOP AND END CARDS H1460410 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1460420 C***** IN COLUMNS 1 AND 2 REMOVED. H1460430 C= STOP H1460440 C= END H1460450 C***********************************************************************H1470010 C***** H1470020 C***** CREDV - (147) H1470030 C***** H1470040 C***********************************************************************H1470050 C***** GENERAL PURPOSE ASA REF H1470060 C***** TO TEST DIVISION OF REAL (COMPLEX) NUMBERS BY 6.1 H1470070 C***** COMPLEX (REAL) NUMBERS H1470080 C***** H1470090 C***** S P E C I F I C A T I O N S SEGMENT 147 H1470100 C***** H0014050 C***** WHEN EXECUTING ONLY SEGMENT 147, THE SPECIFICATION STATEMENTS H0014055 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0014060 C***** IN COLUMNS 1 AND 2 REMOVED. H0014065 C***** H0014070 C= COMPLEX AVC,DAVC,DBVC,DCVC,DDVC H0014075 C***** H0014080 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1470110 C***** H0074005 C***** WHEN EXECUTING ONLY SEGMENT 147, THE FOLLOWING STATEMENT H0074010 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0074015 C***** H0074020 C= NUVI = 6 H0074025 C***** H0074030 WRITE (NUVI, 1471) H1470120 1471 FORMAT (1H1,1X,33HCREDV - (147) DIVISION OF COMPLEX/16X,16HAND REAH1470130 1L NUMBERS//2X,11HASA REF 6.1//2X,7HRESULTS//) H1470140 C*****DIVISION OF REAL BY COMPLEX H1470150 AVS=2.0 H1470160 AVC=(1.0, -1.0) H1470170 DAVC=AVS/AVC H1470180 DBVC=2.0/AVC H1470190 DCVC=AVS/(1.0, -1.0) H1470200 DDVC=2.0/(1.0, -1.0) H1470210 WRITE (NUVI,1473) DAVC,DBVC,DCVC,DDVC H1470220 1473 FORMAT( 2X, 2F8.4) H1470230 C*****DIVISION OF COMPLEX BY REAL H1470240 AVS=2.5463 H1470250 AVC=(2.5463,2.5463) H1470260 DAVC=AVC/AVS H1470270 DBVC=(2.5463,2.5463)/AVS H1470280 DCVC=AVC/2.5463 H1470290 DDVC=(2.5463,2.5463)/2.5463 H1470300 WRITE (NUVI,1472) DAVC,DBVC,DCVC,DDVC H1470310 1472 FORMAT (4(2X,2F8.4/)//37H TEST IS POSITIVE IF NUMBERS PRINTED/ H1470320 1 2X,17HABOVE ARE 1.0,1.0) H1470330 WRITE (NUVI, 1474) H1470340 1474 FORMAT(// 39H ERROR SHOULD NOT EXCEED + OR - .0001 ) H1470350 C***** END OF TEST SEGMENT 147 H1470360 C***** WHEN EXECUTING ONLY SEGMENT 147, THE STOP AND END CARDS H1470370 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1470380 C***** IN COLUMNS 1 AND 2 REMOVED. H1470390 C= STOP H1470400 C= END H1470410 C***********************************************************************H1480010 C***** H1480020 C***** CREOP - (148) H1480030 C***** H1480040 C***********************************************************************H1480050 C***** GENERAL PURPOSE ASA REF H1480060 C***** TO TEST COMBINED OPERATIONS ON COMPLEX AND REAL NUMBERS 6.1 H1480070 C*****DIVISION OF TWO POLYNOMIALS H1480080 C***** H1480090 C***** S P E C I F I C A T I O N S SEGMENT 148 H1480100 C***** H0014085 C***** WHEN EXECUTING ONLY SEGMENT 148, THE SPECIFICATION STATEMENTS H0014090 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0014095 C***** IN COLUMNS 1 AND 2 REMOVED. H0014100 C***** H0014105 C= INTEGER AVI H0014110 C= COMPLEX AVC,BVC,CVC,DVC,RVC H0014115 C***** H0014120 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1480110 C***** H0074035 C***** WHEN EXECUTING ONLY SEGMENT 148, THE FOLLOWING STATEMENT H0074040 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0074045 C***** H0074050 C= NUVI = 6 H0074055 C***** H0074060 WRITE (NUVI, 1481) H1480120 1481 FORMAT(1H1,1X,36HCREOP - (148) OPERATIONS ON REAL AND/16X,15HCOMPLH1480130 1EX NUMBERS// 2X,12HASA REF. 6.1//2X, 7HRESULTS//) H1480140 AVC=(1.0,1.0) H1480150 AVS=1.0 H1480160 BVS = 2.0 H1480170 BVC=(1.0,-1.0) H1480180 RVC = (BVS + AVC *(1.+AVC * (-1.+(1.0,1.0)*(-1. +AVC))))/ H1480190 1 (4.0+BVC*(2.0+BVC*(-AVS+BVC*(0.5+BVC)))) H1480200 WRITE (NUVI,1483) RVC H1480210 1483 FORMAT( 2X,2F8.4//37H TEST IS POSITIVE IF NUMBERS PRIH1480220 3NTED/2X,18HABOVE ARE 2.0,-1.0//) H1480230 C*****COMPLEX ARITHMETIC EXPRESSION H1480240 AVC=(1.60,3.2) H1480250 AVS=0.625 H1480260 BVS=2.0 H1480270 BVC=(1.0,-1.0) H1480280 CVS=2.5 H1480290 CVC=(2.5,2.5) H1480300 DVC = (1.09866,0.45508) H1480310 AVI = 2 H1480320 RVC=(AVC*AVS+(1.6,3.2)*AVS-AVC*0.625-(1.6,3.2)*0.625+BVS/BVC H1480330 1-BVS/(1.0,-1.0)+2.0/BVC+2.0/(1.0,-1.0)+CVC/CVS-(2.5,2.5)/CVS+ H1480340 2CVC/2.5+(2.5,2.5)/2.5+DVC**AVI-(1.09866,0.45508)**2+DVC**2+ H1480350 3(1.09866,0.45508)**AVI)**2/(0.0,72.0) H1480360 WRITE (NUVI,1482) RVC H1480370 1482 FORMAT(2X,2F8.4// 37H TEST IS POSITIVE IF NUMBERS PRINTED/2X, H1480380 1 17HABOVE ARE 1.0,0.0) H1480390 WRITE (NUVI, 1484) H1480400 1484 FORMAT(// 39H ERROR SHOULD NOT EXCEED + OR - .0001 ) H1480410 C***** END OF TEST SEGMENT 148 H1480420 C***** WHEN EXECUTING ONLY SEGMENT 148, THE STOP AND END CARDS H1480430 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1480440 C***** IN COLUMNS 1 AND 2 REMOVED. H1480450 C= STOP H1480460 C= END H1480470 C***********************************************************************H1490010 C***** H1490020 C***** MISC3 - (149) H1490030 C***** H1490040 C***********************************************************************H1490050 C***** GENERAL PURPOSE ASA REF H1490060 C***** TO TEST EFFECT OF BLANKS WITHIN STATEMENT, 3.1.4.1 H1490070 C***** CONTINUATION OF STATEMENT TO MAX.NO.OF LINES, 3.2.4,3.3H1490080 C***** AND USE OF SPECIAL CHARACTERS TO INDICATE CONTINUATION 3.2.4 H1490090 C***** LINE - H1490100 C***** FOR BASIC INTEGERS AND REAL NUMBERS H1490110 C***** H1490120 C***** S P E C I F I C A T I O N S SEGMENT 149 H1490130 C***** H0014125 C***** WHEN EXECUTING ONLY SEGMENT 149, THE SPECIFICATION STATEMENTS H0014130 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0014135 C***** IN COLUMNS 1 AND 2 REMOVED. H0014140 C***** H0014145 C= DIMENSION A1S(5),A2S(2,2) H0014150 C= INTEGER I1I(5),I2I(2,2) H0014155 C***** H0014160 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1490140 C***** H0074065 C***** WHEN EXECUTING ONLY SEGMENT 149, THE FOLLOWING STATEMENT H0074070 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0074075 C***** H0074080 C= NUVI = 6 H0074085 C***** H0074090 WRITE (NUVI,1490) H1490150 1490 FORMAT(1H1,1X,37HMISC3 - (149) EFFECT OF BLANKS WITHIN/16X, H1490160 122HSTMNT AND CONTINUATION/16X,20HOF STMNT TO 20 LINES// H1490170 239H ASA REFS. - 3.1.4.1 3.2.4.3.3 3.2.4//2X,7HRESULTS ) H1490180 J A C V I = 1 H1490190 I H1490200 =1 H1490210 +I H1490220 -( H1490230 *2 H1490240 /) =2 H1490250 I 2I( 2 , 1) = 3 H1490260 A CV S = - 1 .0 E 0 H1490270 A 1 S ( 2) = -2 00 . E - 2 H1490280 A 2 S ( 2 , 1 ) = - .0 3 E + 2 H1490290 K B H1490300 * CVI H1490310 ( = H1490320 ) J A H1490330 $ C V H1490340 . I H1490350 , + I H1490360 / 1 I H1490370 = ( 2 H1490380 1 ) H1490390 2 +H1490400 3I H1490410 4 2 H1490420 5 I H1490430 6 ( H1490440 7 2 H1490450 8 , H1490460 9 1 H1490470 A ) H1490480 B - 6 H1490490 C M H1490500 = A H1490510 , V S H1490520 ( = H1490530 $ A H1490540 * C H1490550 . V H1490560 ) SH1490570 /+ H1490580 1 A 1 H1490590 2 S H1490600 3 (H1490610 42) +H1490620 5 A H1490630 6 2 H1490640 7 S ( H1490650 8 2 , 1 H1490660 9) H1490670 A + H1490680 B 6 . 0 H1490690 W RI T E (NU VI , 1 49 1 ) KB CVI , CMA VS H1490700 1 491 F O RM A T (//I10//F11.1// 2 X, 35HTEST IS POSITIVE IF NUMBERS PRIH1490710 1NTED/ 2 X, 1 1HABOVE ARE 0) H1490720 C***** END OF TEST SEGMENT 149 H1490730 C***** WHEN EXECUTING ONLY SEGMENT 149, THE STOP AND END CARDS H1490740 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1490750 C***** IN COLUMNS 1 AND 2 REMOVED. H1490760 C= STOP H1490770 C= END H1490780 C***********************************************************************H1500010 C***** H1500020 C***** MISC4 - (150) H1500030 C***** H1500040 C***********************************************************************H1500050 C***** GENERAL PURPOSE ASA REF H1500060 C***** TO TEST EFFECT OF BLANKS WITHIN STATEMENT, 3.1.4.1 H1500070 C***** CONTINUATION OF STATEMENT TO 20 LINES, 3.2.4.3.3H1500080 C***** AND USE OF SPECIAL CHARACTERS TO INDICATE CONTINUATION 3.2.4 H1500090 C***** CONTINUATION LINE CAN CONTAIN FORTRAN CHARACTERS H1500100 C***** (OTHER THAN C IN COLUMN 1) IN COLUMNS 1 THRU 5 (CLARIFICATION 3)H1500110 C***** H1500120 C***** S P E C I F I C A T I O N S SEGMENT 150 H1500130 C***** H0014165 C***** WHEN EXECUTING ONLY SEGMENT 150, THE SPECIFICATION STATEMENTS H0014170 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0014175 C***** IN COLUMNS 1 AND 2 REMOVED. H0014180 C***** H0014185 C= INTEGER AVI H0014190 C= COMPLEX AVC,BVC,CVC,DVC,RVC H0014195 C***** H0014200 C***** O U T O U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H1500140 C***** H0074095 C***** WHEN EXECUTING ONLY SEGMENT 150, THE FOLLOWING STATEMENT H0074100 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0074105 C***** H0074110 C= NUVI = 6 H0074115 C***** H0074120 WRITE (NUVI, 1500) H1500150 1 500 F O RM A T( 1 H1 , 1 X , 13 HMISC4 - (150) H1500160 X,1X, 2 3 HEFFECT OF BLANKS WITHIN / 16X, 22HSTMNT AND CONH1500170 YTINUATION/ 16X, 20HOF STMNT TO 20 LINES// H1500180 I39H ASA REFS. - 3.1.4.1 3.2.4.3.3 3.2.4//2X,7HRESULTS//) H1500190 AVC = (1 .0 , 1 .0) H1500200 AVS = 1. 0 H1500210 B V S = 2 . 0 H1500220 BVC= (1 .0 ,- 1 .0) H1500230 RVC = (B VS +A V C*( 1 . +A VC *( - 1.+ (1 .0, 1 H1500240 T. 0 ) *( - 1 .0+ A V C ) )) ) /( H1500250 U4 .0 + BV C * (2 . 0 + BVC * H1500260 V( - A V S + B V C *( 0 . 5 + B H1500270 WV C ) ) ) ) H1500280 RVC = RV C +(-2.0, +1 .0) H1500290 W RI T E (N UV I , 15 02 ) R VC H1500300 1502 FORMAT( 2X, 2F8.4) H1500310 C*****COMPLEX ARITHMETIC EXPRESSION H1500320 C***** STATEMENT LABEL NOT REFERENCED 3.4 H1500330 1503 A H1500340 +VNPL H1500350 -C H1500360 * = H1500370 / ( H1500380 (1 H1500390 ). H1500400 ,6 H1500410 .0 H1500420 I, H1500430 J3 H1500440 K. H1500450 L2 H1500460 M ) H1500470 C***** CONTINUE STATEMENT WITH NO LABEL 3.4 H1500480 CONTINUE H1500490 AVS = 0.625 H1500500 BVS = 2.0 H1500510 BVC = (1.0,-1.0) H1500520 CVS = 2.5 H1500530 CVC = (2.5,2.5) H1500540 DVC = (1.0986841, 0.4550899) H1500550 AVI = 2 H1500560 RVC = H1500570 B(AVC*AVS H1500580 C+(1.6,3.2) H1500590 D*AVS-AVC H1500600 E*0.625 H1500610 F-(1.6,3.2) H1500620 G*0.625 H1500630 H+BVS/BVC H1500640 I-BVS/(1.0,-1.0) H1500650 J+2.0/BVC+2.0/ H1500660 K(1.0,-1.0)+CVC/CVS H1500670 L-(2.5,2.5)/CVS+CVC/2.5 H1500680 M+(2.5,2.5)/2.5+DVC**AVI H1500690 N-(1.0986841,0.4550899)**2 H1500700 O+DVC**2 H1500710 P+ H1500720 Q(1.0986841,0.4550899) H1500730 R**AVI) H1500740 S**2/(0.0,72.0) H1500750 T -(1.0,0.0) H1500760 W R I T E ( N U V I , 1 5 0 1) R V C H1500770 15 01 FORM AT(/ /2 X , 2 F 8 . 4 H1500780 Z/ / 3 7H TEST IS POSITIVE IF NUMBERS PRINTED/ 2X H1500790 =, 1 7 HABOVE ARE 0.0,0.0 ) H1500800 C***** END OF TEST SEGMENT 150 H1500810 C***** WHEN EXECUTING ONLY SEGMENT 150, THE STOP AND END CARDS H1500820 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H1500830 C***** IN COLUMNS 1 AND 2 REMOVED. H1500840 C= STOP H1500850 C= END H1500860 STOP H9999995 END H9999999