1c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PROGRAM ZBLAT1 2c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Test program for the COMPLEX*16 Level 1 BLAS. 3c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Based upon the original BLAS test routine together with: 4c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* F06GAF Example Program Text 5c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Parameters .. 6c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER NOUT 7c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PARAMETER (NOUT=6) 8c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalars in Common .. 9c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ICASE, INCX, INCY, MODE, N 10c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LOGICAL PASS 11c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 12c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SFAC 13c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER IC 14c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Subroutines .. 15c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL CHECK1, CHECK2, HEADER 16c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Common blocks .. 17c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 18c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Data statements .. 19c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA SFAC/9.765625D-4/ 20c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 21c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,99999) 22c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 20 IC = 1, 10 23c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ICASE = IC 24c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL HEADER 25c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 26c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Initialize PASS, INCX, INCY, and MODE for a new case. 27c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* The value 9999 for INCX, INCY or MODE will appear in the 28c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* detailed output, if any, for cases that do not involve 29c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* these parameters. 30c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 31c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PASS = .TRUE. 32c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INCX = 9999 33c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INCY = 9999 34c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MODE = 9999 35c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (ICASE.LE.5) THEN 36c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CHECK2(SFAC) 37c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.GE.6) THEN 38c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CHECK1(SFAC) 39c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END IF 40c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* -- Print 41c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (PASS) WRITE (NOUT,99998) 42c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 CONTINUE 43c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath STOP 44c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 45c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99999 FORMAT (' Complex BLAS Test Program Results',/1X) 46c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99998 FORMAT (' ----- PASS -----') 47c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 48c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE HEADER 49c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Parameters .. 50c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER NOUT 51c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PARAMETER (NOUT=6) 52c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalars in Common .. 53c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ICASE, INCX, INCY, MODE, N 54c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LOGICAL PASS 55c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Arrays .. 56c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CHARACTER*6 L(10) 57c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Common blocks .. 58c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 59c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Data statements .. 60c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(1)/'ZDOTC '/ 61c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(2)/'ZDOTU '/ 62c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(3)/'ZAXPY '/ 63c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(4)/'ZCOPY '/ 64c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(5)/'ZSWAP '/ 65c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(6)/'DZNRM2'/ 66c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(7)/'DZASUM'/ 67c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(8)/'ZSCAL '/ 68c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(9)/'ZDSCAL'/ 69c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA L(10)/'IZAMAX'/ 70c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 71c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,99999) ICASE, L(ICASE) 72c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 73c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 74c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99999 FORMAT (/' Test of subprogram number',I3,12X,A6) 75c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 76c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE CHECK1(SFAC) 77c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Parameters .. 78c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER NOUT 79c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PARAMETER (NOUT=6) 80c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 81c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SFAC 82c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalars in Common .. 83c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ICASE, INCX, INCY, MODE, N 84c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LOGICAL PASS 85c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 86c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMPLEX*16 CA 87c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SA 88c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER I, J, LEN, NP1 89c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Arrays .. 90c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMPLEX*16 CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8), 91c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + MWPCS(5), MWPCT(5) 92c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION STRUE2(5), STRUE4(5) 93c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ITRUE3(5) 94c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Functions .. 95c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION DZASUM, DZNRM2 96c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER IZAMAX 97c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL DZASUM, DZNRM2, IZAMAX 98c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Subroutines .. 99c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL ZSCAL, ZDSCAL, CTEST, ITEST1, STEST1 100c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Intrinsic Functions .. 101c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTRINSIC MAX 102c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Common blocks .. 103c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 104c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Data statements .. 105c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA SA, CA/0.3D0, (0.4D0,-0.7D0)/ 106c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CV(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0), 107c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (1.0D0,2.0D0), (1.0D0,2.0D0), 108c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (1.0D0,2.0D0), (1.0D0,2.0D0), 109c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (0.3D0,-0.4D0), (3.0D0,4.0D0), 110c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (3.0D0,4.0D0), (3.0D0,4.0D0), (3.0D0,4.0D0), 111c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (3.0D0,4.0D0), (3.0D0,4.0D0), (3.0D0,4.0D0), 112c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.1D0,-0.3D0), (0.5D0,-0.1D0), (5.0D0,6.0D0), 113c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (5.0D0,6.0D0), (5.0D0,6.0D0), (5.0D0,6.0D0), 114c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (5.0D0,6.0D0), (5.0D0,6.0D0), (0.1D0,0.1D0), 115c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.6D0,0.1D0), (0.1D0,-0.3D0), (7.0D0,8.0D0), 116c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (7.0D0,8.0D0), (7.0D0,8.0D0), (7.0D0,8.0D0), 117c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (7.0D0,8.0D0), (0.3D0,0.1D0), (0.1D0,0.4D0), 118c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.4D0,0.1D0), (0.1D0,0.2D0), (2.0D0,3.0D0), 119c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,3.0D0), (2.0D0,3.0D0), (2.0D0,3.0D0)/ 120c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CV(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0), 121c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (4.0D0,5.0D0), (4.0D0,5.0D0), 122c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (4.0D0,5.0D0), (4.0D0,5.0D0), 123c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (0.3D0,-0.4D0), (6.0D0,7.0D0), 124c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (6.0D0,7.0D0), (6.0D0,7.0D0), (6.0D0,7.0D0), 125c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (6.0D0,7.0D0), (6.0D0,7.0D0), (6.0D0,7.0D0), 126c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.1D0,-0.3D0), (8.0D0,9.0D0), (0.5D0,-0.1D0), 127c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,5.0D0), (2.0D0,5.0D0), (2.0D0,5.0D0), 128c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,5.0D0), (2.0D0,5.0D0), (0.1D0,0.1D0), 129c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (3.0D0,6.0D0), (-0.6D0,0.1D0), (4.0D0,7.0D0), 130c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.1D0,-0.3D0), (7.0D0,2.0D0), (7.0D0,2.0D0), 131c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (7.0D0,2.0D0), (0.3D0,0.1D0), (5.0D0,8.0D0), 132c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.1D0,0.4D0), (6.0D0,9.0D0), (0.4D0,0.1D0), 133c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (8.0D0,3.0D0), (0.1D0,0.2D0), (9.0D0,4.0D0)/ 134c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA STRUE2/0.0D0, 0.5D0, 0.6D0, 0.7D0, 0.7D0/ 135c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA STRUE4/0.0D0, 0.7D0, 1.0D0, 1.3D0, 1.7D0/ 136c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0), 137c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (1.0D0,2.0D0), (1.0D0,2.0D0), 138c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (1.0D0,2.0D0), (1.0D0,2.0D0), 139c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (-0.16D0,-0.37D0), (3.0D0,4.0D0), 140c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (3.0D0,4.0D0), (3.0D0,4.0D0), (3.0D0,4.0D0), 141c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (3.0D0,4.0D0), (3.0D0,4.0D0), (3.0D0,4.0D0), 142c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.17D0,-0.19D0), (0.13D0,-0.39D0), 143c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (5.0D0,6.0D0), (5.0D0,6.0D0), (5.0D0,6.0D0), 144c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (5.0D0,6.0D0), (5.0D0,6.0D0), (5.0D0,6.0D0), 145c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.11D0,-0.03D0), (-0.17D0,0.46D0), 146c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.17D0,-0.19D0), (7.0D0,8.0D0), (7.0D0,8.0D0), 147c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (7.0D0,8.0D0), (7.0D0,8.0D0), (7.0D0,8.0D0), 148c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.19D0,-0.17D0), (0.32D0,0.09D0), 149c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.23D0,-0.24D0), (0.18D0,0.01D0), 150c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,3.0D0), (2.0D0,3.0D0), (2.0D0,3.0D0), 151c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,3.0D0)/ 152c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CTRUE5(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0), 153c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (4.0D0,5.0D0), (4.0D0,5.0D0), 154c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (4.0D0,5.0D0), (4.0D0,5.0D0), 155c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (-0.16D0,-0.37D0), (6.0D0,7.0D0), 156c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (6.0D0,7.0D0), (6.0D0,7.0D0), (6.0D0,7.0D0), 157c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (6.0D0,7.0D0), (6.0D0,7.0D0), (6.0D0,7.0D0), 158c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.17D0,-0.19D0), (8.0D0,9.0D0), 159c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.13D0,-0.39D0), (2.0D0,5.0D0), (2.0D0,5.0D0), 160c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,5.0D0), (2.0D0,5.0D0), (2.0D0,5.0D0), 161c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.11D0,-0.03D0), (3.0D0,6.0D0), 162c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.17D0,0.46D0), (4.0D0,7.0D0), 163c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.17D0,-0.19D0), (7.0D0,2.0D0), (7.0D0,2.0D0), 164c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (7.0D0,2.0D0), (0.19D0,-0.17D0), (5.0D0,8.0D0), 165c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.32D0,0.09D0), (6.0D0,9.0D0), 166c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.23D0,-0.24D0), (8.0D0,3.0D0), 167c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.18D0,0.01D0), (9.0D0,4.0D0)/ 168c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CTRUE6(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0), 169c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (1.0D0,2.0D0), (1.0D0,2.0D0), 170c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (1.0D0,2.0D0), (1.0D0,2.0D0), 171c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.0D0,2.0D0), (0.09D0,-0.12D0), (3.0D0,4.0D0), 172c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (3.0D0,4.0D0), (3.0D0,4.0D0), (3.0D0,4.0D0), 173c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (3.0D0,4.0D0), (3.0D0,4.0D0), (3.0D0,4.0D0), 174c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,-0.09D0), (0.15D0,-0.03D0), 175c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (5.0D0,6.0D0), (5.0D0,6.0D0), (5.0D0,6.0D0), 176c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (5.0D0,6.0D0), (5.0D0,6.0D0), (5.0D0,6.0D0), 177c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,0.03D0), (-0.18D0,0.03D0), 178c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,-0.09D0), (7.0D0,8.0D0), (7.0D0,8.0D0), 179c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (7.0D0,8.0D0), (7.0D0,8.0D0), (7.0D0,8.0D0), 180c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.09D0,0.03D0), (0.03D0,0.12D0), 181c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.12D0,0.03D0), (0.03D0,0.06D0), (2.0D0,3.0D0), 182c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,3.0D0), (2.0D0,3.0D0), (2.0D0,3.0D0)/ 183c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CTRUE6(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0), 184c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (4.0D0,5.0D0), (4.0D0,5.0D0), 185c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (4.0D0,5.0D0), (4.0D0,5.0D0), 186c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (4.0D0,5.0D0), (0.09D0,-0.12D0), (6.0D0,7.0D0), 187c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (6.0D0,7.0D0), (6.0D0,7.0D0), (6.0D0,7.0D0), 188c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (6.0D0,7.0D0), (6.0D0,7.0D0), (6.0D0,7.0D0), 189c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,-0.09D0), (8.0D0,9.0D0), 190c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.15D0,-0.03D0), (2.0D0,5.0D0), (2.0D0,5.0D0), 191c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (2.0D0,5.0D0), (2.0D0,5.0D0), (2.0D0,5.0D0), 192c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,0.03D0), (3.0D0,6.0D0), 193c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.18D0,0.03D0), (4.0D0,7.0D0), 194c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,-0.09D0), (7.0D0,2.0D0), (7.0D0,2.0D0), 195c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (7.0D0,2.0D0), (0.09D0,0.03D0), (5.0D0,8.0D0), 196c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,0.12D0), (6.0D0,9.0D0), (0.12D0,0.03D0), 197c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (8.0D0,3.0D0), (0.03D0,0.06D0), (9.0D0,4.0D0)/ 198c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ITRUE3/0, 1, 2, 2, 2/ 199c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 200c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 60 INCX = 1, 2 201c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 40 NP1 = 1, 5 202c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath N = NP1 - 1 203c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LEN = 2*MAX(N,1) 204c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Set vector arguments .. 205c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 20 I = 1, LEN 206c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CX(I) = CV(I,NP1,INCX) 207c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 CONTINUE 208c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (ICASE.EQ.6) THEN 209c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. DZNRM2 .. 210c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL STEST1(DZNRM2(N,CX,INCX),STRUE2(NP1),STRUE2(NP1), 211c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + SFAC) 212c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.7) THEN 213c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. DZASUM .. 214c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL STEST1(DZASUM(N,CX,INCX),STRUE4(NP1),STRUE4(NP1), 215c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + SFAC) 216c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.8) THEN 217c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. ZSCAL .. 218c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZSCAL(N,CA,CX,INCX) 219c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(LEN,CX,CTRUE5(1,NP1,INCX),CTRUE5(1,NP1,INCX), 220c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + SFAC) 221c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.9) THEN 222c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. ZDSCAL .. 223c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZDSCAL(N,SA,CX,INCX) 224c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(LEN,CX,CTRUE6(1,NP1,INCX),CTRUE6(1,NP1,INCX), 225c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + SFAC) 226c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.10) THEN 227c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. IZAMAX .. 228c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ITEST1(IZAMAX(N,CX,INCX),ITRUE3(NP1)) 229c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE 230c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,*) ' Shouldn''t be here in CHECK1' 231c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath STOP 232c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END IF 233c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 234c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 40 CONTINUE 235c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 60 CONTINUE 236c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 237c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INCX = 1 238c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (ICASE.EQ.8) THEN 239c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ZSCAL 240c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Add a test for alpha equal to zero. 241c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CA = (0.0D0,0.0D0) 242c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 80 I = 1, 5 243c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCT(I) = (0.0D0,0.0D0) 244c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCS(I) = (1.0D0,1.0D0) 245c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 80 CONTINUE 246c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZSCAL(5,CA,CX,INCX) 247c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 248c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.9) THEN 249c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ZDSCAL 250c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Add a test for alpha equal to zero. 251c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SA = 0.0D0 252c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 100 I = 1, 5 253c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCT(I) = (0.0D0,0.0D0) 254c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCS(I) = (1.0D0,1.0D0) 255c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 100 CONTINUE 256c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZDSCAL(5,SA,CX,INCX) 257c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 258c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Add a test for alpha equal to one. 259c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SA = 1.0D0 260c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 120 I = 1, 5 261c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCT(I) = CX(I) 262c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCS(I) = CX(I) 263c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 120 CONTINUE 264c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZDSCAL(5,SA,CX,INCX) 265c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 266c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Add a test for alpha equal to minus one. 267c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SA = -1.0D0 268c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 140 I = 1, 5 269c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCT(I) = -CX(I) 270c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MWPCS(I) = -CX(I) 271c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 140 CONTINUE 272c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZDSCAL(5,SA,CX,INCX) 273c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(5,CX,MWPCT,MWPCS,SFAC) 274c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END IF 275c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 276c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 277c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE CHECK2(SFAC) 278c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Parameters .. 279c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER NOUT 280c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PARAMETER (NOUT=6) 281c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 282c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SFAC 283c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalars in Common .. 284c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ICASE, INCX, INCY, MODE, N 285c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LOGICAL PASS 286c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 287c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMPLEX*16 CA 288c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER I, J, KI, KN, KSIZE, LENX, LENY, MX, MY 289c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Arrays .. 290c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMPLEX*16 CDOT(1), CSIZE1(4), CSIZE2(7,2), CSIZE3(14), 291c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + CT10X(7,4,4), CT10Y(7,4,4), CT6(4,4), CT7(4,4), 292c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + CT8(7,4,4), CX(7), CX1(7), CY(7), CY1(7) 293c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER INCXS(4), INCYS(4), LENS(4,2), NS(4) 294c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Functions .. 295c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMPLEX*16 ZDOTC, ZDOTU 296c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL ZDOTC, ZDOTU 297c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Subroutines .. 298c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL ZAXPY, ZCOPY, ZSWAP, CTEST 299c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Intrinsic Functions .. 300c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTRINSIC ABS, MIN 301c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Common blocks .. 302c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 303c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Data statements .. 304c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CA/(0.4D0,-0.7D0)/ 305c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA INCXS/1, 2, -2, -1/ 306c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA INCYS/1, -2, 1, -2/ 307c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA LENS/1, 1, 2, 4, 1, 1, 3, 7/ 308c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA NS/0, 1, 2, 4/ 309c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CX1/(0.7D0,-0.8D0), (-0.4D0,-0.7D0), 310c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.1D0,-0.9D0), (0.2D0,-0.8D0), 311c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,-0.4D0), (0.1D0,0.4D0), (-0.6D0,0.6D0)/ 312c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CY1/(0.6D0,-0.6D0), (-0.9D0,0.5D0), 313c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.6D0), (0.1D0,-0.5D0), (-0.1D0,-0.2D0), 314c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.5D0,-0.3D0), (0.8D0,-0.7D0)/ 315c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT8(I,J,1),I=1,7),J=1,4)/(0.6D0,-0.6D0), 316c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 317c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 318c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.32D0,-1.41D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 319c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 320c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.32D0,-1.41D0), 321c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-1.55D0,0.5D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 322c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 323c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.32D0,-1.41D0), (-1.55D0,0.5D0), 324c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,-0.89D0), (-0.38D0,-0.96D0), 325c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0)/ 326c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT8(I,J,2),I=1,7),J=1,4)/(0.6D0,-0.6D0), 327c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 328c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 329c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.32D0,-1.41D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 330c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 331c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.07D0,-0.89D0), 332c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,0.5D0), (0.42D0,-1.41D0), (0.0D0,0.0D0), 333c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 334c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.78D0,0.06D0), (-0.9D0,0.5D0), 335c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.06D0,-0.13D0), (0.1D0,-0.5D0), 336c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.77D0,-0.49D0), (-0.5D0,-0.3D0), 337c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.52D0,-1.51D0)/ 338c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT8(I,J,3),I=1,7),J=1,4)/(0.6D0,-0.6D0), 339c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 340c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 341c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.32D0,-1.41D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 342c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 343c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.07D0,-0.89D0), 344c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-1.18D0,-0.31D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 345c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 346c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.78D0,0.06D0), (-1.54D0,0.97D0), 347c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.03D0,-0.89D0), (-0.18D0,-1.31D0), 348c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0)/ 349c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT8(I,J,4),I=1,7),J=1,4)/(0.6D0,-0.6D0), 350c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 351c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 352c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.32D0,-1.41D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 353c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 354c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.32D0,-1.41D0), (-0.9D0,0.5D0), 355c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.05D0,-0.6D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 356c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.32D0,-1.41D0), 357c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,0.5D0), (0.05D0,-0.6D0), (0.1D0,-0.5D0), 358c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.77D0,-0.49D0), (-0.5D0,-0.3D0), 359c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.32D0,-1.16D0)/ 360c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CT7/(0.0D0,0.0D0), (-0.06D0,-0.90D0), 361c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.65D0,-0.47D0), (-0.34D0,-1.22D0), 362c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.06D0,-0.90D0), 363c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.59D0,-1.46D0), (-1.04D0,-0.04D0), 364c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.06D0,-0.90D0), 365c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.83D0,0.59D0), (0.07D0,-0.37D0), 366c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.06D0,-0.90D0), 367c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.76D0,-1.15D0), (-1.33D0,-1.82D0)/ 368c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CT6/(0.0D0,0.0D0), (0.90D0,0.06D0), 369c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.91D0,-0.77D0), (1.80D0,-0.10D0), 370c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.90D0,0.06D0), (1.45D0,0.74D0), 371c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.20D0,0.90D0), (0.0D0,0.0D0), (0.90D0,0.06D0), 372c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.55D0,0.23D0), (0.83D0,-0.39D0), 373c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.90D0,0.06D0), (1.04D0,0.79D0), 374c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.95D0,1.22D0)/ 375c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10X(I,J,1),I=1,7),J=1,4)/(0.7D0,-0.8D0), 376c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 377c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 378c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.6D0,-0.6D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 379c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 380c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.6D0,-0.6D0), (-0.9D0,0.5D0), 381c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 382c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.6D0,-0.6D0), 383c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,0.5D0), (0.7D0,-0.6D0), (0.1D0,-0.5D0), 384c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0)/ 385c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10X(I,J,2),I=1,7),J=1,4)/(0.7D0,-0.8D0), 386c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 387c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 388c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.6D0,-0.6D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 389c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 390c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.7D0,-0.6D0), (-0.4D0,-0.7D0), 391c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.6D0,-0.6D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 392c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.8D0,-0.7D0), 393c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.4D0,-0.7D0), (-0.1D0,-0.2D0), 394c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.2D0,-0.8D0), (0.7D0,-0.6D0), (0.1D0,0.4D0), 395c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.6D0,-0.6D0)/ 396c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10X(I,J,3),I=1,7),J=1,4)/(0.7D0,-0.8D0), 397c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 398c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 399c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.6D0,-0.6D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 400c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 401c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.9D0,0.5D0), (-0.4D0,-0.7D0), 402c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.6D0,-0.6D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 403c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.1D0,-0.5D0), 404c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.4D0,-0.7D0), (0.7D0,-0.6D0), (0.2D0,-0.8D0), 405c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,0.5D0), (0.1D0,0.4D0), (0.6D0,-0.6D0)/ 406c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10X(I,J,4),I=1,7),J=1,4)/(0.7D0,-0.8D0), 407c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 408c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 409c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.6D0,-0.6D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 410c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 411c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.6D0,-0.6D0), (0.7D0,-0.6D0), 412c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 413c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.6D0,-0.6D0), 414c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.6D0), (-0.1D0,-0.2D0), (0.8D0,-0.7D0), 415c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0)/ 416c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10Y(I,J,1),I=1,7),J=1,4)/(0.6D0,-0.6D0), 417c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 418c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 419c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.8D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 420c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 421c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.7D0,-0.8D0), (-0.4D0,-0.7D0), 422c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 423c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.7D0,-0.8D0), 424c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.4D0,-0.7D0), (-0.1D0,-0.9D0), 425c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.2D0,-0.8D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 426c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0)/ 427c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10Y(I,J,2),I=1,7),J=1,4)/(0.6D0,-0.6D0), 428c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 429c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 430c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.8D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 431c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 432c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.1D0,-0.9D0), (-0.9D0,0.5D0), 433c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.8D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 434c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (-0.6D0,0.6D0), 435c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,0.5D0), (-0.9D0,-0.4D0), (0.1D0,-0.5D0), 436c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.1D0,-0.9D0), (-0.5D0,-0.3D0), 437c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.8D0)/ 438c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10Y(I,J,3),I=1,7),J=1,4)/(0.6D0,-0.6D0), 439c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 440c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 441c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.8D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 442c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 443c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (-0.1D0,-0.9D0), (0.7D0,-0.8D0), 444c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 445c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (-0.6D0,0.6D0), 446c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,-0.4D0), (-0.1D0,-0.9D0), 447c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.8D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 448c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0)/ 449c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ((CT10Y(I,J,4),I=1,7),J=1,4)/(0.6D0,-0.6D0), 450c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 451c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 452c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.7D0,-0.8D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 453c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 454c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.7D0,-0.8D0), (-0.9D0,0.5D0), 455c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.4D0,-0.7D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 456c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.7D0,-0.8D0), 457c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.9D0,0.5D0), (-0.4D0,-0.7D0), (0.1D0,-0.5D0), 458c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (-0.1D0,-0.9D0), (-0.5D0,-0.3D0), 459c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.2D0,-0.8D0)/ 460c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CSIZE1/(0.0D0,0.0D0), (0.9D0,0.9D0), 461c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.63D0,1.73D0), (2.90D0,2.78D0)/ 462c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CSIZE3/(0.0D0,0.0D0), (0.0D0,0.0D0), 463c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 464c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (1.17D0,1.17D0), 465c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.17D0,1.17D0), (1.17D0,1.17D0), 466c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.17D0,1.17D0), (1.17D0,1.17D0), 467c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.17D0,1.17D0), (1.17D0,1.17D0)/ 468c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA CSIZE2/(0.0D0,0.0D0), (0.0D0,0.0D0), 469c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (0.0D0,0.0D0), 470c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (0.0D0,0.0D0), (0.0D0,0.0D0), (1.54D0,1.54D0), 471c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.54D0,1.54D0), (1.54D0,1.54D0), 472c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.54D0,1.54D0), (1.54D0,1.54D0), 473c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + (1.54D0,1.54D0), (1.54D0,1.54D0)/ 474c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 475c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 60 KI = 1, 4 476c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INCX = INCXS(KI) 477c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INCY = INCYS(KI) 478c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MX = ABS(INCX) 479c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath MY = ABS(INCY) 480c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 481c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 40 KN = 1, 4 482c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath N = NS(KN) 483c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath KSIZE = MIN(2,KN) 484c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LENX = LENS(KN,MX) 485c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LENY = LENS(KN,MY) 486c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. initialize all argument arrays .. 487c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 20 I = 1, 7 488c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CX(I) = CX1(I) 489c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CY(I) = CY1(I) 490c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 CONTINUE 491c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (ICASE.EQ.1) THEN 492c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. ZDOTC .. 493c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CDOT(1) = ZDOTC(N,CX,INCX,CY,INCY) 494c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(1,CDOT,CT6(KN,KI),CSIZE1(KN),SFAC) 495c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.2) THEN 496c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. ZDOTU .. 497c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CDOT(1) = ZDOTU(N,CX,INCX,CY,INCY) 498c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(1,CDOT,CT7(KN,KI),CSIZE1(KN),SFAC) 499c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.3) THEN 500c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. ZAXPY .. 501c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZAXPY(N,CA,CX,INCX,CY,INCY) 502c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(LENY,CY,CT8(1,KN,KI),CSIZE2(1,KSIZE),SFAC) 503c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.4) THEN 504c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. ZCOPY .. 505c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZCOPY(N,CX,INCX,CY,INCY) 506c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0D0) 507c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE IF (ICASE.EQ.5) THEN 508c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. ZSWAP .. 509c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL ZSWAP(N,CX,INCX,CY,INCY) 510c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0D0) 511c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0D0) 512c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ELSE 513c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,*) ' Shouldn''t be here in CHECK2' 514c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath STOP 515c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END IF 516c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 517c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 40 CONTINUE 518c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 60 CONTINUE 519c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 520c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 521c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) 522c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ********************************* STEST ************************** 523c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 524c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO 525c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE 526c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* NEGLIGIBLE. 527c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 528c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* C. L. LAWSON, JPL, 1974 DEC 10 529c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 530c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Parameters .. 531c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER NOUT 532c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PARAMETER (NOUT=6) 533c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 534c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SFAC 535c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER LEN 536c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Array Arguments .. 537c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) 538c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalars in Common .. 539c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ICASE, INCX, INCY, MODE, N 540c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LOGICAL PASS 541c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 542c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SD 543c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER I 544c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Functions .. 545c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SDIFF 546c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL SDIFF 547c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Intrinsic Functions .. 548c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTRINSIC ABS 549c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Common blocks .. 550c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 551c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 552c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 553c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 40 I = 1, LEN 554c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD = SCOMP(I) - STRUE(I) 555c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0) 556c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + GO TO 40 557c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 558c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* HERE SCOMP(I) IS NOT CLOSE TO STRUE(I). 559c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 560c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF ( .NOT. PASS) GO TO 20 561c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PRINT FAIL MESSAGE AND HEADER. 562c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PASS = .FALSE. 563c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,99999) 564c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,99998) 565c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I), 566c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + STRUE(I), SD, SSIZE(I) 567c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 40 CONTINUE 568c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 569c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 570c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99999 FORMAT (' FAIL') 571c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99998 FORMAT (/' CASE N INCX INCY MODE I ', 572c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + ' COMP(I) TRUE(I) DIFFERENCE', 573c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + ' SIZE(I)',/1X) 574c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99997 FORMAT (1X,I4,I3,3I5,I3,2D36.8,2D12.4) 575c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 576c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) 577c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ************************* STEST1 ***************************** 578c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 579c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN 580c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE 581c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT. 582c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 583c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* C.L. LAWSON, JPL, 1978 DEC 6 584c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 585c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 586c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SCOMP1, SFAC, STRUE1 587c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Array Arguments .. 588c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SSIZE(*) 589c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Arrays .. 590c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SCOMP(1), STRUE(1) 591c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Subroutines .. 592c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL STEST 593c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 594c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 595c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SCOMP(1) = SCOMP1 596c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath STRUE(1) = STRUE1 597c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC) 598c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 599c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 600c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 601c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION FUNCTION SDIFF(SA,SB) 602c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ********************************* SDIFF ************************** 603c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 604c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 605c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 606c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SA, SB 607c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 608c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SDIFF = SA - SB 609c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 610c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 611c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) 612c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* **************************** CTEST ***************************** 613c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 614c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* C.L. LAWSON, JPL, 1978 DEC 6 615c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 616c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 617c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SFAC 618c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER LEN 619c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Array Arguments .. 620c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMPLEX*16 CCOMP(LEN), CSIZE(LEN), CTRUE(LEN) 621c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 622c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER I 623c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Arrays .. 624c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20) 625c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. External Subroutines .. 626c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath EXTERNAL STEST 627c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Intrinsic Functions .. 628c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTRINSIC DIMAG, DBLE 629c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 630c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DO 20 I = 1, LEN 631c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SCOMP(2*I-1) = DBLE(CCOMP(I)) 632c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SCOMP(2*I) = DIMAG(CCOMP(I)) 633c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath STRUE(2*I-1) = DBLE(CTRUE(I)) 634c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath STRUE(2*I) = DIMAG(CTRUE(I)) 635c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SSIZE(2*I-1) = DBLE(CSIZE(I)) 636c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SSIZE(2*I) = DIMAG(CSIZE(I)) 637c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 CONTINUE 638c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 639c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC) 640c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 641c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 642c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE ITEST1(ICOMP,ITRUE) 643c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ********************************* ITEST1 ************************* 644c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 645c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR 646c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* EQUALITY. 647c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* C. L. LAWSON, JPL, 1974 DEC 10 648c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 649c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Parameters .. 650c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER NOUT 651c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PARAMETER (NOUT=6) 652c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 653c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ICOMP, ITRUE 654c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalars in Common .. 655c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ICASE, INCX, INCY, MODE, N 656c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath LOGICAL PASS 657c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 658c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER ID 659c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Common blocks .. 660c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS 661c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Executable Statements .. 662c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (ICOMP.EQ.ITRUE) GO TO 40 663c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 664c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* HERE ICOMP IS NOT EQUAL TO ITRUE. 665c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 666c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF ( .NOT. PASS) GO TO 20 667c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PRINT FAIL MESSAGE AND HEADER. 668c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath PASS = .FALSE. 669c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,99999) 670c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,99998) 671c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 ID = ICOMP - ITRUE 672c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID 673c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 40 CONTINUE 674c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 675c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 676c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99999 FORMAT (' FAIL') 677c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99998 FORMAT (/' CASE N INCX INCY MODE ', 678c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + ' COMP TRUE DIFFERENCE', 679c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + /1X) 680c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath99997 FORMAT (1X,I4,I3,3I5,2I36,I12) 681c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 682