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

/external/eigen/blas/fortran/
H A Dctbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:CTBMV
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,
[all...]
H A Dztbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:ZTBMV
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,
[all...]
H A Ddtbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:DTBMV
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
[all...]
H A Dstbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:STBMV
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
[all...]
H A Dchbmv.f144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:CHBMV
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
H A Ddsbmv.f138 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:DSBMV
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
H A Dssbmv.f140 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:SSBMV
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
H A Dzhbmv.f144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:ZHBMV
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

Completed in 63 milliseconds