181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PROGRAM CCBLAT1 281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* Test program for the COMPLEX Level 1 CBLAS. 381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* Based upon the original CBLAS test routine together with: 481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* F06GAF Example Program Text 581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Parameters .. 681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER NOUT 781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PARAMETER (NOUT=6) 881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalars in Common .. 981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICASE, INCX, INCY, MODE, N 1081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LOGICAL PASS 1181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Scalars .. 1281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SFAC 1381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER IC 1481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Subroutines .. 1581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL CHECK1, CHECK2, HEADER 1681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Common blocks .. 1781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 1881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Data statements .. 1981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA SFAC/9.765625E-4/ 2081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 2181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,99999) 2281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 20 IC = 1, 10 2381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ICASE = IC 2481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL HEADER 2581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 2681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* Initialize PASS, INCX, INCY, and MODE for a new case. 2781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* The value 9999 for INCX, INCY or MODE will appear in the 2881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* detailed output, if any, for cases that do not involve 2981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* these parameters. 3081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 3181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PASS = .TRUE. 3281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INCX = 9999 3381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INCY = 9999 3481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MODE = 9999 3581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF (ICASE.LE.5) THEN 3681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CHECK2(SFAC) 3781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.GE.6) THEN 3881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CHECK1(SFAC) 3981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END IF 4081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* -- Print 4181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF (PASS) WRITE (NOUT,99998) 4281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20 CONTINUE 4381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray STOP 4481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 4581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99999 FORMAT (' Complex CBLAS Test Program Results',/1X) 4681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99998 FORMAT (' ----- PASS -----') 4781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 4881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SUBROUTINE HEADER 4981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Parameters .. 5081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER NOUT 5181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PARAMETER (NOUT=6) 5281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalars in Common .. 5381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICASE, INCX, INCY, MODE, N 5481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LOGICAL PASS 5581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Arrays .. 5681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CHARACTER*15 L(10) 5781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Common blocks .. 5881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 5981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Data statements .. 6081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(1)/'CBLAS_CDOTC'/ 6181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(2)/'CBLAS_CDOTU'/ 6281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(3)/'CBLAS_CAXPY'/ 6381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(4)/'CBLAS_CCOPY'/ 6481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(5)/'CBLAS_CSWAP'/ 6581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(6)/'CBLAS_SCNRM2'/ 6681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(7)/'CBLAS_SCASUM'/ 6781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(8)/'CBLAS_CSCAL'/ 6881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(9)/'CBLAS_CSSCAL'/ 6981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA L(10)/'CBLAS_ICAMAX'/ 7081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 7181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,99999) ICASE, L(ICASE) 7281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 7381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 7481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99999 FORMAT (/' Test of subprogram number',I3,9X,A15) 7581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 7681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SUBROUTINE CHECK1(SFAC) 7781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Parameters .. 7881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER NOUT 7981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PARAMETER (NOUT=6) 8081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalar Arguments .. 8181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SFAC 8281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalars in Common .. 8381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICASE, INCX, INCY, MODE, N 8481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LOGICAL PASS 8581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Scalars .. 8681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMPLEX CA 8781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SA 8881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER I, J, LEN, NP1 8981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Arrays .. 9081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMPLEX CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8), 9181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + MWPCS(5), MWPCT(5) 9281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL STRUE2(5), STRUE4(5) 9381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ITRUE3(5) 9481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Functions .. 9581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SCASUMTEST, SCNRM2TEST 9681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICAMAXTEST 9781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL SCASUMTEST, SCNRM2TEST, ICAMAXTEST 9881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Subroutines .. 9981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL CSCAL, CSSCALTEST, CTEST, ITEST1, STEST1 10081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Intrinsic Functions .. 10181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTRINSIC MAX 10281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Common blocks .. 10381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 10481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Data statements .. 10581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA SA, CA/0.3E0, (0.4E0,-0.7E0)/ 10681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CV(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0), 10781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0), 10881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0), 10981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (0.3E0,-0.4E0), (3.0E0,4.0E0), 11081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0), 11181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0), 11281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.1E0,-0.3E0), (0.5E0,-0.1E0), (5.0E0,6.0E0), 11381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0), 11481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (5.0E0,6.0E0), (5.0E0,6.0E0), (0.1E0,0.1E0), 11581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.6E0,0.1E0), (0.1E0,-0.3E0), (7.0E0,8.0E0), 11681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0), 11781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (7.0E0,8.0E0), (0.3E0,0.1E0), (0.1E0,0.4E0), 11881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.4E0,0.1E0), (0.1E0,0.2E0), (2.0E0,3.0E0), 11981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/ 12081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CV(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0), 12181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0), 12281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0), 12381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (0.3E0,-0.4E0), (6.0E0,7.0E0), 12481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0), 12581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0), 12681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.1E0,-0.3E0), (8.0E0,9.0E0), (0.5E0,-0.1E0), 12781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0), 12881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,5.0E0), (2.0E0,5.0E0), (0.1E0,0.1E0), 12981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (3.0E0,6.0E0), (-0.6E0,0.1E0), (4.0E0,7.0E0), 13081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.1E0,-0.3E0), (7.0E0,2.0E0), (7.0E0,2.0E0), 13181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (7.0E0,2.0E0), (0.3E0,0.1E0), (5.0E0,8.0E0), 13281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.1E0,0.4E0), (6.0E0,9.0E0), (0.4E0,0.1E0), 13381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (8.0E0,3.0E0), (0.1E0,0.2E0), (9.0E0,4.0E0)/ 13481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA STRUE2/0.0E0, 0.5E0, 0.6E0, 0.7E0, 0.7E0/ 13581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA STRUE4/0.0E0, 0.7E0, 1.0E0, 1.3E0, 1.7E0/ 13681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0), 13781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0), 13881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0), 13981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (-0.16E0,-0.37E0), (3.0E0,4.0E0), 14081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0), 14181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0), 14281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.17E0,-0.19E0), (0.13E0,-0.39E0), 14381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0), 14481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0), 14581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.11E0,-0.03E0), (-0.17E0,0.46E0), 14681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.17E0,-0.19E0), (7.0E0,8.0E0), (7.0E0,8.0E0), 14781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0), 14881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.19E0,-0.17E0), (0.32E0,0.09E0), 14981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.23E0,-0.24E0), (0.18E0,0.01E0), 15081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0), 15181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,3.0E0)/ 15281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CTRUE5(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0), 15381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0), 15481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0), 15581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (-0.16E0,-0.37E0), (6.0E0,7.0E0), 15681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0), 15781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0), 15881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.17E0,-0.19E0), (8.0E0,9.0E0), 15981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.13E0,-0.39E0), (2.0E0,5.0E0), (2.0E0,5.0E0), 16081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0), 16181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.11E0,-0.03E0), (3.0E0,6.0E0), 16281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.17E0,0.46E0), (4.0E0,7.0E0), 16381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.17E0,-0.19E0), (7.0E0,2.0E0), (7.0E0,2.0E0), 16481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (7.0E0,2.0E0), (0.19E0,-0.17E0), (5.0E0,8.0E0), 16581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.32E0,0.09E0), (6.0E0,9.0E0), 16681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.23E0,-0.24E0), (8.0E0,3.0E0), 16781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.18E0,0.01E0), (9.0E0,4.0E0)/ 16881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CTRUE6(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0), 16981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0), 17081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0), 17181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.0E0,2.0E0), (0.09E0,-0.12E0), (3.0E0,4.0E0), 17281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0), 17381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0), 17481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,-0.09E0), (0.15E0,-0.03E0), 17581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0), 17681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0), 17781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,0.03E0), (-0.18E0,0.03E0), 17881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,-0.09E0), (7.0E0,8.0E0), (7.0E0,8.0E0), 17981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0), 18081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.09E0,0.03E0), (0.03E0,0.12E0), 18181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.12E0,0.03E0), (0.03E0,0.06E0), (2.0E0,3.0E0), 18281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/ 18381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CTRUE6(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0), 18481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0), 18581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0), 18681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (4.0E0,5.0E0), (0.09E0,-0.12E0), (6.0E0,7.0E0), 18781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0), 18881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0), 18981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,-0.09E0), (8.0E0,9.0E0), 19081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.15E0,-0.03E0), (2.0E0,5.0E0), (2.0E0,5.0E0), 19181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0), 19281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,0.03E0), (3.0E0,6.0E0), 19381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.18E0,0.03E0), (4.0E0,7.0E0), 19481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,-0.09E0), (7.0E0,2.0E0), (7.0E0,2.0E0), 19581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (7.0E0,2.0E0), (0.09E0,0.03E0), (5.0E0,8.0E0), 19681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,0.12E0), (6.0E0,9.0E0), (0.12E0,0.03E0), 19781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (8.0E0,3.0E0), (0.03E0,0.06E0), (9.0E0,4.0E0)/ 19881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ITRUE3/0, 1, 2, 2, 2/ 19981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 20081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 60 INCX = 1, 2 20181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 40 NP1 = 1, 5 20281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray N = NP1 - 1 20381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LEN = 2*MAX(N,1) 20481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Set vector arguments .. 20581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 20 I = 1, LEN 20681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CX(I) = CV(I,NP1,INCX) 20781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20 CONTINUE 20881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF (ICASE.EQ.6) THEN 20981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. SCNRM2TEST .. 21081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL STEST1(SCNRM2TEST(N,CX,INCX),STRUE2(NP1), 21181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + STRUE2(NP1), SFAC) 21281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.7) THEN 21381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. SCASUMTEST .. 21481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL STEST1(SCASUMTEST(N,CX,INCX),STRUE4(NP1), 21581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + STRUE4(NP1),SFAC) 21681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.8) THEN 21781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. CSCAL .. 21881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CSCAL(N,CA,CX,INCX) 21981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(LEN,CX,CTRUE5(1,NP1,INCX),CTRUE5(1,NP1,INCX), 22081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + SFAC) 22181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.9) THEN 22281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. CSSCALTEST .. 22381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CSSCALTEST(N,SA,CX,INCX) 22481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(LEN,CX,CTRUE6(1,NP1,INCX),CTRUE6(1,NP1,INCX), 22581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + SFAC) 22681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.10) THEN 22781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. ICAMAXTEST .. 22881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL ITEST1(ICAMAXTEST(N,CX,INCX),ITRUE3(NP1)) 22981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE 23081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,*) ' Shouldn''t be here in CHECK1' 23181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray STOP 23281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END IF 23381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 23481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 40 CONTINUE 23581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 60 CONTINUE 23681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 23781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INCX = 1 23881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF (ICASE.EQ.8) THEN 23981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* CSCAL 24081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* Add a test for alpha equal to zero. 24181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CA = (0.0E0,0.0E0) 24281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 80 I = 1, 5 24381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCT(I) = (0.0E0,0.0E0) 24481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCS(I) = (1.0E0,1.0E0) 24581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 80 CONTINUE 24681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CSCAL(5,CA,CX,INCX) 24781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 24881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.9) THEN 24981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* CSSCALTEST 25081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* Add a test for alpha equal to zero. 25181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SA = 0.0E0 25281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 100 I = 1, 5 25381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCT(I) = (0.0E0,0.0E0) 25481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCS(I) = (1.0E0,1.0E0) 25581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 100 CONTINUE 25681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CSSCALTEST(5,SA,CX,INCX) 25781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 25881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* Add a test for alpha equal to one. 25981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SA = 1.0E0 26081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 120 I = 1, 5 26181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCT(I) = CX(I) 26281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCS(I) = CX(I) 26381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 120 CONTINUE 26481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CSSCALTEST(5,SA,CX,INCX) 26581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 26681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* Add a test for alpha equal to minus one. 26781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SA = -1.0E0 26881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 140 I = 1, 5 26981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCT(I) = -CX(I) 27081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MWPCS(I) = -CX(I) 27181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 140 CONTINUE 27281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CSSCALTEST(5,SA,CX,INCX) 27381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 27481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END IF 27581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 27681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 27781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SUBROUTINE CHECK2(SFAC) 27881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Parameters .. 27981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER NOUT 28081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PARAMETER (NOUT=6) 28181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalar Arguments .. 28281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SFAC 28381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalars in Common .. 28481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICASE, INCX, INCY, MODE, N 28581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LOGICAL PASS 28681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Scalars .. 28781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMPLEX CA,CTEMP 28881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER I, J, KI, KN, KSIZE, LENX, LENY, MX, MY 28981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Arrays .. 29081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMPLEX CDOT(1), CSIZE1(4), CSIZE2(7,2), CSIZE3(14), 29181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + CT10X(7,4,4), CT10Y(7,4,4), CT6(4,4), CT7(4,4), 29281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + CT8(7,4,4), CX(7), CX1(7), CY(7), CY1(7) 29381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER INCXS(4), INCYS(4), LENS(4,2), NS(4) 29481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Functions .. 29581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL CDOTCTEST, CDOTUTEST 29681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Subroutines .. 29781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL CAXPYTEST, CCOPYTEST, CSWAPTEST, CTEST 29881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Intrinsic Functions .. 29981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTRINSIC ABS, MIN 30081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Common blocks .. 30181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 30281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Data statements .. 30381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CA/(0.4E0,-0.7E0)/ 30481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA INCXS/1, 2, -2, -1/ 30581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA INCYS/1, -2, 1, -2/ 30681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA LENS/1, 1, 2, 4, 1, 1, 3, 7/ 30781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA NS/0, 1, 2, 4/ 30881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CX1/(0.7E0,-0.8E0), (-0.4E0,-0.7E0), 30981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.1E0,-0.9E0), (0.2E0,-0.8E0), 31081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,-0.4E0), (0.1E0,0.4E0), (-0.6E0,0.6E0)/ 31181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CY1/(0.6E0,-0.6E0), (-0.9E0,0.5E0), 31281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.6E0), (0.1E0,-0.5E0), (-0.1E0,-0.2E0), 31381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.5E0,-0.3E0), (0.8E0,-0.7E0)/ 31481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT8(I,J,1),I=1,7),J=1,4)/(0.6E0,-0.6E0), 31581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 31681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 31781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 31881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 31981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.32E0,-1.41E0), 32081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-1.55E0,0.5E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 32181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 32281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.32E0,-1.41E0), (-1.55E0,0.5E0), 32381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,-0.89E0), (-0.38E0,-0.96E0), 32481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/ 32581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT8(I,J,2),I=1,7),J=1,4)/(0.6E0,-0.6E0), 32681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 32781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 32881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 32981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 33081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.07E0,-0.89E0), 33181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,0.5E0), (0.42E0,-1.41E0), (0.0E0,0.0E0), 33281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 33381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.78E0,0.06E0), (-0.9E0,0.5E0), 33481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.06E0,-0.13E0), (0.1E0,-0.5E0), 33581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.77E0,-0.49E0), (-0.5E0,-0.3E0), 33681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.52E0,-1.51E0)/ 33781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT8(I,J,3),I=1,7),J=1,4)/(0.6E0,-0.6E0), 33881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 33981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 34081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 34181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 34281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.07E0,-0.89E0), 34381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-1.18E0,-0.31E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 34481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 34581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.78E0,0.06E0), (-1.54E0,0.97E0), 34681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.03E0,-0.89E0), (-0.18E0,-1.31E0), 34781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/ 34881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT8(I,J,4),I=1,7),J=1,4)/(0.6E0,-0.6E0), 34981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 35081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 35181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 35281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 35381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.32E0,-1.41E0), (-0.9E0,0.5E0), 35481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.05E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 35581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.32E0,-1.41E0), 35681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,0.5E0), (0.05E0,-0.6E0), (0.1E0,-0.5E0), 35781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.77E0,-0.49E0), (-0.5E0,-0.3E0), 35881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.32E0,-1.16E0)/ 35981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CT7/(0.0E0,0.0E0), (-0.06E0,-0.90E0), 36081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.65E0,-0.47E0), (-0.34E0,-1.22E0), 36181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.06E0,-0.90E0), 36281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.59E0,-1.46E0), (-1.04E0,-0.04E0), 36381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.06E0,-0.90E0), 36481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.83E0,0.59E0), (0.07E0,-0.37E0), 36581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.06E0,-0.90E0), 36681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.76E0,-1.15E0), (-1.33E0,-1.82E0)/ 36781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CT6/(0.0E0,0.0E0), (0.90E0,0.06E0), 36881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.91E0,-0.77E0), (1.80E0,-0.10E0), 36981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.90E0,0.06E0), (1.45E0,0.74E0), 37081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.20E0,0.90E0), (0.0E0,0.0E0), (0.90E0,0.06E0), 37181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.55E0,0.23E0), (0.83E0,-0.39E0), 37281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.90E0,0.06E0), (1.04E0,0.79E0), 37381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.95E0,1.22E0)/ 37481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10X(I,J,1),I=1,7),J=1,4)/(0.7E0,-0.8E0), 37581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 37681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 37781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 37881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 37981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.6E0,-0.6E0), (-0.9E0,0.5E0), 38081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 38181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.6E0,-0.6E0), 38281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,0.5E0), (0.7E0,-0.6E0), (0.1E0,-0.5E0), 38381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/ 38481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10X(I,J,2),I=1,7),J=1,4)/(0.7E0,-0.8E0), 38581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 38681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 38781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 38881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 38981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.7E0,-0.6E0), (-0.4E0,-0.7E0), 39081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 39181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.8E0,-0.7E0), 39281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.4E0,-0.7E0), (-0.1E0,-0.2E0), 39381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.2E0,-0.8E0), (0.7E0,-0.6E0), (0.1E0,0.4E0), 39481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.6E0,-0.6E0)/ 39581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10X(I,J,3),I=1,7),J=1,4)/(0.7E0,-0.8E0), 39681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 39781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 39881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 39981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 40081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.9E0,0.5E0), (-0.4E0,-0.7E0), 40181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 40281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.1E0,-0.5E0), 40381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.4E0,-0.7E0), (0.7E0,-0.6E0), (0.2E0,-0.8E0), 40481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,0.5E0), (0.1E0,0.4E0), (0.6E0,-0.6E0)/ 40581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10X(I,J,4),I=1,7),J=1,4)/(0.7E0,-0.8E0), 40681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 40781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 40881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 40981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 41081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.6E0,-0.6E0), (0.7E0,-0.6E0), 41181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 41281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.6E0,-0.6E0), 41381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.6E0), (-0.1E0,-0.2E0), (0.8E0,-0.7E0), 41481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/ 41581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10Y(I,J,1),I=1,7),J=1,4)/(0.6E0,-0.6E0), 41681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 41781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 41881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 41981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 42081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.7E0,-0.8E0), (-0.4E0,-0.7E0), 42181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 42281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.7E0,-0.8E0), 42381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.4E0,-0.7E0), (-0.1E0,-0.9E0), 42481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.2E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 42581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0)/ 42681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10Y(I,J,2),I=1,7),J=1,4)/(0.6E0,-0.6E0), 42781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 42881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 42981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 43081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 43181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.1E0,-0.9E0), (-0.9E0,0.5E0), 43281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 43381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (-0.6E0,0.6E0), 43481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,0.5E0), (-0.9E0,-0.4E0), (0.1E0,-0.5E0), 43581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.1E0,-0.9E0), (-0.5E0,-0.3E0), 43681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.8E0)/ 43781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10Y(I,J,3),I=1,7),J=1,4)/(0.6E0,-0.6E0), 43881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 43981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 44081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 44181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 44281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (-0.1E0,-0.9E0), (0.7E0,-0.8E0), 44381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 44481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (-0.6E0,0.6E0), 44581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,-0.4E0), (-0.1E0,-0.9E0), 44681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 44781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0)/ 44881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA ((CT10Y(I,J,4),I=1,7),J=1,4)/(0.6E0,-0.6E0), 44981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 45081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 45181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 45281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 45381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.7E0,-0.8E0), (-0.9E0,0.5E0), 45481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.4E0,-0.7E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 45581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.7E0,-0.8E0), 45681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.9E0,0.5E0), (-0.4E0,-0.7E0), (0.1E0,-0.5E0), 45781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (-0.1E0,-0.9E0), (-0.5E0,-0.3E0), 45881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.2E0,-0.8E0)/ 45981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CSIZE1/(0.0E0,0.0E0), (0.9E0,0.9E0), 46081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.63E0,1.73E0), (2.90E0,2.78E0)/ 46181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CSIZE3/(0.0E0,0.0E0), (0.0E0,0.0E0), 46281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 46381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (1.17E0,1.17E0), 46481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.17E0,1.17E0), (1.17E0,1.17E0), 46581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.17E0,1.17E0), (1.17E0,1.17E0), 46681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.17E0,1.17E0), (1.17E0,1.17E0)/ 46781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DATA CSIZE2/(0.0E0,0.0E0), (0.0E0,0.0E0), 46881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0), 46981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (0.0E0,0.0E0), (0.0E0,0.0E0), (1.54E0,1.54E0), 47081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.54E0,1.54E0), (1.54E0,1.54E0), 47181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.54E0,1.54E0), (1.54E0,1.54E0), 47281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + (1.54E0,1.54E0), (1.54E0,1.54E0)/ 47381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 47481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 60 KI = 1, 4 47581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INCX = INCXS(KI) 47681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INCY = INCYS(KI) 47781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MX = ABS(INCX) 47881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray MY = ABS(INCY) 47981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 48081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 40 KN = 1, 4 48181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray N = NS(KN) 48281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray KSIZE = MIN(2,KN) 48381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LENX = LENS(KN,MX) 48481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LENY = LENS(KN,MY) 48581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. initialize all argument arrays .. 48681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 20 I = 1, 7 48781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CX(I) = CX1(I) 48881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CY(I) = CY1(I) 48981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20 CONTINUE 49081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF (ICASE.EQ.1) THEN 49181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. CDOTCTEST .. 49281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CDOTCTEST(N,CX,INCX,CY,INCY,CTEMP) 49381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CDOT(1) = CTEMP 49481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(1,CDOT,CT6(KN,KI),CSIZE1(KN),SFAC) 49581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.2) THEN 49681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. CDOTUTEST .. 49781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CDOTUTEST(N,CX,INCX,CY,INCY,CTEMP) 49881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CDOT(1) = CTEMP 49981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(1,CDOT,CT7(KN,KI),CSIZE1(KN),SFAC) 50081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.3) THEN 50181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. CAXPYTEST .. 50281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CAXPYTEST(N,CA,CX,INCX,CY,INCY) 50381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(LENY,CY,CT8(1,KN,KI),CSIZE2(1,KSIZE),SFAC) 50481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.4) THEN 50581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. CCOPYTEST .. 50681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CCOPYTEST(N,CX,INCX,CY,INCY) 50781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0) 50881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE IF (ICASE.EQ.5) THEN 50981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. CSWAPTEST .. 51081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CSWAPTEST(N,CX,INCX,CY,INCY) 51181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0E0) 51281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0) 51381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ELSE 51481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,*) ' Shouldn''t be here in CHECK2' 51581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray STOP 51681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END IF 51781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 51881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 40 CONTINUE 51981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 60 CONTINUE 52081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 52181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 52281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) 52381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* ********************************* STEST ************************** 52481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 52581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO 52681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE 52781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* NEGLIGIBLE. 52881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 52981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* C. L. LAWSON, JPL, 1974 DEC 10 53081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 53181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Parameters .. 53281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER NOUT 53381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PARAMETER (NOUT=6) 53481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalar Arguments .. 53581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SFAC 53681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER LEN 53781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Array Arguments .. 53881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) 53981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalars in Common .. 54081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICASE, INCX, INCY, MODE, N 54181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LOGICAL PASS 54281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Scalars .. 54381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SD 54481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER I 54581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Functions .. 54681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SDIFF 54781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL SDIFF 54881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Intrinsic Functions .. 54981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTRINSIC ABS 55081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Common blocks .. 55181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 55281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 55381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 55481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 40 I = 1, LEN 55581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SD = SCOMP(I) - STRUE(I) 55681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0) 55781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + GO TO 40 55881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 55981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* HERE SCOMP(I) IS NOT CLOSE TO STRUE(I). 56081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 56181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF ( .NOT. PASS) GO TO 20 56281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* PRINT FAIL MESSAGE AND HEADER. 56381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PASS = .FALSE. 56481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,99999) 56581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,99998) 56681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I), 56781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + STRUE(I), SD, SSIZE(I) 56881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 40 CONTINUE 56981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 57081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 57181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99999 FORMAT (' FAIL') 57281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99998 FORMAT (/' CASE N INCX INCY MODE I ', 57381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + ' COMP(I) TRUE(I) DIFFERENCE', 57481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + ' SIZE(I)',/1X) 57581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99997 FORMAT (1X,I4,I3,3I5,I3,2E36.8,2E12.4) 57681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 57781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) 57881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* ************************* STEST1 ***************************** 57981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 58081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN 58181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE 58281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT. 58381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 58481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* C.L. LAWSON, JPL, 1978 DEC 6 58581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 58681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalar Arguments .. 58781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SCOMP1, SFAC, STRUE1 58881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Array Arguments .. 58981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SSIZE(*) 59081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Arrays .. 59181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SCOMP(1), STRUE(1) 59281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Subroutines .. 59381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL STEST 59481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 59581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 59681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SCOMP(1) = SCOMP1 59781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray STRUE(1) = STRUE1 59881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC) 59981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 60081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 60181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 60281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL FUNCTION SDIFF(SA,SB) 60381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* ********************************* SDIFF ************************** 60481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 60581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 60681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalar Arguments .. 60781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SA, SB 60881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 60981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SDIFF = SA - SB 61081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 61181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 61281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) 61381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* **************************** CTEST ***************************** 61481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 61581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* C.L. LAWSON, JPL, 1978 DEC 6 61681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 61781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalar Arguments .. 61881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SFAC 61981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER LEN 62081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Array Arguments .. 62181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMPLEX CCOMP(LEN), CSIZE(LEN), CTRUE(LEN) 62281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Scalars .. 62381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER I 62481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Arrays .. 62581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray REAL SCOMP(20), SSIZE(20), STRUE(20) 62681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. External Subroutines .. 62781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray EXTERNAL STEST 62881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Intrinsic Functions .. 62981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTRINSIC AIMAG, REAL 63081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 63181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray DO 20 I = 1, LEN 63281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SCOMP(2*I-1) = REAL(CCOMP(I)) 63381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SCOMP(2*I) = AIMAG(CCOMP(I)) 63481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray STRUE(2*I-1) = REAL(CTRUE(I)) 63581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray STRUE(2*I) = AIMAG(CTRUE(I)) 63681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SSIZE(2*I-1) = REAL(CSIZE(I)) 63781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SSIZE(2*I) = AIMAG(CSIZE(I)) 63881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20 CONTINUE 63981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 64081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC) 64181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 64281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 64381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray SUBROUTINE ITEST1(ICOMP,ITRUE) 64481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* ********************************* ITEST1 ************************* 64581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 64681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR 64781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* EQUALITY. 64881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* C. L. LAWSON, JPL, 1974 DEC 10 64981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 65081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Parameters .. 65181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER NOUT 65281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PARAMETER (NOUT=6) 65381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalar Arguments .. 65481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICOMP, ITRUE 65581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Scalars in Common .. 65681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ICASE, INCX, INCY, MODE, N 65781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray LOGICAL PASS 65881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Local Scalars .. 65981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INTEGER ID 66081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Common blocks .. 66181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 66281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* .. Executable Statements .. 66381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF (ICOMP.EQ.ITRUE) GO TO 40 66481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 66581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* HERE ICOMP IS NOT EQUAL TO ITRUE. 66681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 66781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray IF ( .NOT. PASS) GO TO 20 66881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* PRINT FAIL MESSAGE AND HEADER. 66981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray PASS = .FALSE. 67081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,99999) 67181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,99998) 67281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20 ID = ICOMP - ITRUE 67381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID 67481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 40 CONTINUE 67581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray RETURN 67681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray* 67781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99999 FORMAT (' FAIL') 67881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99998 FORMAT (/' CASE N INCX INCY MODE ', 67981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + ' COMP TRUE DIFFERENCE', 68081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray + /1X) 68181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray99997 FORMAT (1X,I4,I3,3I5,2I36,I12) 68281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray END 683