Searched refs:NOUNIT (Results 1 - 12 of 12) sorted by relevance

/external/eigen/blas/
H A Dctbmv.f148 LOGICAL NOCONJ,NOUNIT local in subroutine:CTBMV
190 NOUNIT = LSAME(DIAG,'N')
218 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
247 IF (NOUNIT) X(J) = X(J)*A(1,J)
262 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
280 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
285 IF (NOUNIT) TEMP = TEMP*CONJG(A(KPLUS1,J))
301 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
307 IF (NOUNIT) TEM
[all...]
H A Dctpmv.f108 LOGICAL NOCONJ,NOUNIT local in subroutine:CTPMV
146 NOUNIT = LSAME(DIAG,'N')
175 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
206 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
239 IF (NOUNIT) TEMP = TEMP*AP(KK)
245 IF (NOUNIT) TEMP = TEMP*CONJG(AP(KK))
260 IF (NOUNIT) TEMP = TEMP*AP(KK)
266 IF (NOUNIT) TEM
[all...]
H A Dctpsv.f111 LOGICAL NOCONJ,NOUNIT local in subroutine:CTPSV
149 NOUNIT = LSAME(DIAG,'N')
172 IF (NOUNIT) X(J) = X(J)/AP(KK)
186 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
203 IF (NOUNIT) X(J) = X(J)/AP(KK)
217 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
245 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
251 IF (NOUNIT) TEMP = TEMP/CONJG(AP(KK+J-1))
266 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
272 IF (NOUNIT) TEM
[all...]
H A Dztbmv.f148 LOGICAL NOCONJ,NOUNIT local in subroutine:ZTBMV
190 NOUNIT = LSAME(DIAG,'N')
218 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
247 IF (NOUNIT) X(J) = X(J)*A(1,J)
262 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
280 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
285 IF (NOUNIT) TEMP = TEMP*DCONJG(A(KPLUS1,J))
301 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
307 IF (NOUNIT) TEM
[all...]
H A Dztpmv.f108 LOGICAL NOCONJ,NOUNIT local in subroutine:ZTPMV
146 NOUNIT = LSAME(DIAG,'N')
175 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
206 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
239 IF (NOUNIT) TEMP = TEMP*AP(KK)
245 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
260 IF (NOUNIT) TEMP = TEMP*AP(KK)
266 IF (NOUNIT) TEM
[all...]
H A Dztpsv.f111 LOGICAL NOCONJ,NOUNIT local in subroutine:ZTPSV
149 NOUNIT = LSAME(DIAG,'N')
172 IF (NOUNIT) X(J) = X(J)/AP(KK)
186 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
203 IF (NOUNIT) X(J) = X(J)/AP(KK)
217 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
245 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
251 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK+J-1))
266 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
272 IF (NOUNIT) TEM
[all...]
H A Ddtbmv.f148 LOGICAL NOUNIT local in subroutine:DTBMV
189 NOUNIT = LSAME(DIAG,'N')
217 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
246 IF (NOUNIT) X(J) = X(J)*A(1,J)
261 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
278 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
292 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
306 IF (NOUNIT) TEMP = TEMP*A(1,J)
319 IF (NOUNIT) TEM
[all...]
H A Ddtpmv.f108 LOGICAL NOUNIT local in subroutine:DTPMV
142 NOUNIT = LSAME(DIAG,'N')
171 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
202 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
233 IF (NOUNIT) TEMP = TEMP*AP(KK)
247 IF (NOUNIT) TEMP = TEMP*AP(KK)
262 IF (NOUNIT) TEMP = TEMP*AP(KK)
276 IF (NOUNIT) TEM
[all...]
H A Ddtpsv.f111 LOGICAL NOUNIT local in subroutine:DTPSV
145 NOUNIT = LSAME(DIAG,'N')
168 IF (NOUNIT) X(J) = X(J)/AP(KK)
182 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
199 IF (NOUNIT) X(J) = X(J)/AP(KK)
213 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
240 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
253 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
269 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
283 IF (NOUNIT) TEM
[all...]
H A Dstbmv.f148 LOGICAL NOUNIT local in subroutine:STBMV
189 NOUNIT = LSAME(DIAG,'N')
217 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
246 IF (NOUNIT) X(J) = X(J)*A(1,J)
261 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
278 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
292 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
306 IF (NOUNIT) TEMP = TEMP*A(1,J)
319 IF (NOUNIT) TEM
[all...]
H A Dstpmv.f108 LOGICAL NOUNIT local in subroutine:STPMV
142 NOUNIT = LSAME(DIAG,'N')
171 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
202 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
233 IF (NOUNIT) TEMP = TEMP*AP(KK)
247 IF (NOUNIT) TEMP = TEMP*AP(KK)
262 IF (NOUNIT) TEMP = TEMP*AP(KK)
276 IF (NOUNIT) TEM
[all...]
H A Dstpsv.f111 LOGICAL NOUNIT local in subroutine:STPSV
145 NOUNIT = LSAME(DIAG,'N')
168 IF (NOUNIT) X(J) = X(J)/AP(KK)
182 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
199 IF (NOUNIT) X(J) = X(J)/AP(KK)
213 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
240 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
253 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
269 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
283 IF (NOUNIT) TEM
[all...]

Completed in 113 milliseconds