/external/eigen/blas/ |
H A D | ctbmv.f | 148 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 D | ctpmv.f | 108 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 D | ctpsv.f | 111 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 D | ztbmv.f | 148 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 D | ztpmv.f | 108 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 D | ztpsv.f | 111 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 D | dtbmv.f | 148 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 D | dtpmv.f | 108 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 D | dtpsv.f | 111 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 D | stbmv.f | 148 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 D | stpmv.f | 108 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 D | stpsv.f | 111 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...] |