Home
last modified time | relevance | path

Searched refs:KPLUS1 (Results 1 – 8 of 8) sorted by relevance

/external/eigen/blas/fortran/
Dctbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
209 KPLUS1 = K + 1
214 L = KPLUS1 - J
218 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
227 L = KPLUS1 - J
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
274 KPLUS1 = K + 1
278 L = KPLUS1 - J
280 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
285 IF (NOUNIT) TEMP = TEMP*CONJG(A(KPLUS1,J))
[all …]
Dztbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
209 KPLUS1 = K + 1
214 L = KPLUS1 - J
218 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
227 L = KPLUS1 - J
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
274 KPLUS1 = K + 1
278 L = KPLUS1 - J
280 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
285 IF (NOUNIT) TEMP = TEMP*DCONJG(A(KPLUS1,J))
[all …]
Dstbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
208 KPLUS1 = K + 1
213 L = KPLUS1 - J
217 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
226 L = KPLUS1 - J
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
273 KPLUS1 = K + 1
277 L = KPLUS1 - J
278 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
291 L = KPLUS1 - J
[all …]
Ddtbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
208 KPLUS1 = K + 1
213 L = KPLUS1 - J
217 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
226 L = KPLUS1 - J
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
273 KPLUS1 = K + 1
277 L = KPLUS1 - J
278 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
291 L = KPLUS1 - J
[all …]
Ddsbmv.f138 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local
225 KPLUS1 = K + 1
230 L = KPLUS1 - J
235 Y(J) = Y(J) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
245 L = KPLUS1 - J
252 Y(JY) = Y(JY) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
Dchbmv.f144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local
231 KPLUS1 = K + 1
236 L = KPLUS1 - J
241 Y(J) = Y(J) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
251 L = KPLUS1 - J
258 Y(JY) = Y(JY) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
Dssbmv.f140 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local
227 KPLUS1 = K + 1
232 L = KPLUS1 - J
237 Y(J) = Y(J) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
247 L = KPLUS1 - J
254 Y(JY) = Y(JY) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
Dzhbmv.f144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local
231 KPLUS1 = K + 1
236 L = KPLUS1 - J
241 Y(J) = Y(J) + TEMP1*DBLE(A(KPLUS1,J)) + ALPHA*TEMP2
251 L = KPLUS1 - J
258 Y(JY) = Y(JY) + TEMP1*DBLE(A(KPLUS1,J)) + ALPHA*TEMP2