| /dports/math/math77/MATH77/ |
| H A D | srot.f | 15 INTEGER N, INCX, INCY, NSTEPS, I, KX, KY local
34 KY=1
37 IF(INCY .LT. 0) KY=1-(N-1)*INCY
41 Z=Y(KY)
43 Y(KY)=-S*W+C*Z
45 KY=KY+INCY
|
| H A D | ccopy.f | 14 INTEGER N, INCX, INCY, KX, KY, I, NS local
20 KY = 1
22 IF(INCY.LT.0) KY = 1+(1-N)*INCY
24 CY(KY) = CX(KX)
26 KY = KY + INCY
|
| H A D | cdotu.f | 13 INTEGER N, INCX, INCY, KX, KY, I, NS local
20 KY = 1
22 IF(INCY.LT.0) KY = 1+(1-N)*INCY
24 CDOTU = CDOTU + CX(KX)*CY(KY)
26 KY = KY + INCY
|
| H A D | cdotc.f | 13 INTEGER N, INCX, INCY, KX, KY, I, NS local
20 KY = 1
22 IF(INCY.LT.0) KY = 1+(1-N)*INCY
24 CDOTC = CDOTC + CONJG(CX(KX))*CY(KY)
26 KY = KY + INCY
|
| H A D | dsdot.f | 13 INTEGER N, INCX, INCY, KX, KY, I, NS local
20 KY = 1
22 IF(INCY.LT.0) KY = 1+(1-N)*INCY
24 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
26 KY = KY + INCY
|
| H A D | caxpy.f | 21 KY = 1
23 IF(INCY.LT.0) KY = 1+(1-N)*INCY
25 CY(KY) = CY(KY) + CA*CX(KX)
27 KY = KY + INCY
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
| H A D | dsdot.f | 142 INTEGER I,KX,KY,NS
162 KY = 1
164 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
166 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
168 KY = KY + INCY
|
| H A D | sdsdot.f | 221 INTEGER I,KX,KY,NS
244 KY = 1
246 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
248 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
250 KY = KY + INCY
|
| /dports/math/xlapack/lapack-3.10.0/BLAS/SRC/ |
| H A D | dsdot.f | 139 INTEGER I,KX,KY,NS
159 KY = 1
161 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
163 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
165 KY = KY + INCY
|
| H A D | sdsdot.f | 126 INTEGER I,KX,KY,NS
149 KY = 1
151 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
153 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
155 KY = KY + INCY
|
| /dports/math/blas/lapack-3.10.0/BLAS/SRC/ |
| H A D | dsdot.f | 139 INTEGER I,KX,KY,NS
159 KY = 1
161 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
163 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
165 KY = KY + INCY
|
| H A D | sdsdot.f | 126 INTEGER I,KX,KY,NS
149 KY = 1
151 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
153 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
155 KY = KY + INCY
|
| /dports/math/lapacke/lapack-3.10.0/BLAS/SRC/ |
| H A D | dsdot.f | 139 INTEGER I,KX,KY,NS
159 KY = 1
161 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
163 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
165 KY = KY + INCY
|
| H A D | sdsdot.f | 126 INTEGER I,KX,KY,NS
149 KY = 1
151 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
153 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
155 KY = KY + INCY
|
| /dports/math/lapack/lapack-3.10.0/BLAS/SRC/ |
| H A D | dsdot.f | 139 INTEGER I,KX,KY,NS
159 KY = 1
161 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
163 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
165 KY = KY + INCY
|
| H A D | sdsdot.f | 126 INTEGER I,KX,KY,NS
149 KY = 1
151 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
153 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
155 KY = KY + INCY
|
| /dports/math/cmlib/cmlib-3.0_8/src/blas/ |
| H A D | caxpy.f | 49 KY = 1
51 IF(INCY.LT.0) KY = 1+(1-N)*INCY
53 CY(KY) = CY(KY) + CA*CX(KX)
55 KY = KY + INCY
|
| H A D | cswap.f | 47 KY = 1
49 IF(INCY.LT.0) KY = 1+(1-N)*INCY
52 CX(KX) = CY(KY)
53 CY(KY) = CTEMP
55 KY = KY + INCY
|
| /dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/BLAS/SRC/ |
| H A D | dsdot.f | 142 INTEGER I,KX,KY,NS
162 KY = 1
164 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
166 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
168 KY = KY + INCY
|
| H A D | sdsdot.f | 221 INTEGER I,KX,KY,NS
244 KY = 1
246 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
248 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
250 KY = KY + INCY
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/BLAS/SRC/ |
| H A D | dsdot.f | 142 INTEGER I,KX,KY,NS
162 KY = 1
164 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
166 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
168 KY = KY + INCY
|
| H A D | sdsdot.f | 129 INTEGER I,KX,KY,NS
152 KY = 1
154 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
156 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
158 KY = KY + INCY
|
| /dports/math/slatec/src/ |
| H A D | cswap.f | 55 KY = 1
57 IF (INCY .LT. 0) KY = 1+(1-N)*INCY
60 CX(KX) = CY(KY)
61 CY(KY) = CTEMP
63 KY = KY + INCY
|
| H A D | caxpy.f | 56 KY = 1
58 IF (INCY .LT. 0) KY = 1+(1-N)*INCY
60 CY(KY) = CY(KY) + CA*CX(KX)
62 KY = KY + INCY
|
| /dports/math/cblas/lapack-3.10.0/BLAS/SRC/ |
| H A D | dsdot.f | 139 INTEGER I,KX,KY,NS
159 KY = 1
161 IF (INCY.LT.0) KY = 1 + (1-N)*INCY
163 DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
165 KY = KY + INCY
|