/external/eigen/blas/ |
H A D | dspr.f | 93 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:DSPR 151 JX = KX 153 IF (X(JX).NE.ZERO) THEN 154 TEMP = ALPHA*X(JX) 161 JX = JX + INCX 182 JX = KX 184 IF (X(JX).NE.ZERO) THEN 185 TEMP = ALPHA*X(JX) 186 IX = JX [all...] |
H A D | sspr.f | 93 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:SSPR 151 JX = KX 153 IF (X(JX).NE.ZERO) THEN 154 TEMP = ALPHA*X(JX) 161 JX = JX + INCX 182 JX = KX 184 IF (X(JX).NE.ZERO) THEN 185 TEMP = ALPHA*X(JX) 186 IX = JX [all...] |
H A D | ctpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:CTPMV 180 JX = KX 182 IF (X(JX).NE.ZERO) THEN 183 TEMP = X(JX) 189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1) 191 JX = JX + INCX 212 JX = KX 214 IF (X(JX) [all...] |
H A D | ctpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:CTPSV 183 JX = KX + (N-1)*INCX 185 IF (X(JX).NE.ZERO) THEN 186 IF (NOUNIT) X(JX) = X(JX)/AP(KK) 187 TEMP = X(JX) 188 IX = JX 194 JX = JX - INCX 214 JX [all...] |
H A D | dtpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:DTPMV 176 JX = KX 178 IF (X(JX).NE.ZERO) THEN 179 TEMP = X(JX) 185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1) 187 JX = JX + INCX 208 JX = KX 210 IF (X(JX) [all...] |
H A D | dtpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:DTPSV 179 JX = KX + (N-1)*INCX 181 IF (X(JX).NE.ZERO) THEN 182 IF (NOUNIT) X(JX) = X(JX)/AP(KK) 183 TEMP = X(JX) 184 IX = JX 190 JX = JX - INCX 210 JX [all...] |
H A D | stpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:STPMV 176 JX = KX 178 IF (X(JX).NE.ZERO) THEN 179 TEMP = X(JX) 185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1) 187 JX = JX + INCX 208 JX = KX 210 IF (X(JX) [all...] |
H A D | stpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:STPSV 179 JX = KX + (N-1)*INCX 181 IF (X(JX).NE.ZERO) THEN 182 IF (NOUNIT) X(JX) = X(JX)/AP(KK) 183 TEMP = X(JX) 184 IX = JX 190 JX = JX - INCX 210 JX [all...] |
H A D | ztpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:ZTPMV 180 JX = KX 182 IF (X(JX).NE.ZERO) THEN 183 TEMP = X(JX) 189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1) 191 JX = JX + INCX 212 JX = KX 214 IF (X(JX) [all...] |
H A D | ztpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:ZTPSV 183 JX = KX + (N-1)*INCX 185 IF (X(JX).NE.ZERO) THEN 186 IF (NOUNIT) X(JX) = X(JX)/AP(KK) 187 TEMP = X(JX) 188 IX = JX 194 JX = JX - INCX 214 JX [all...] |
H A D | ctbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:CTBMV 222 JX = KX 224 IF (X(JX).NE.ZERO) THEN 225 TEMP = X(JX) 232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 234 JX = JX + INCX 252 JX = KX 254 IF (X(JX) [all...] |
H A D | dtbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:DTBMV 221 JX = KX 223 IF (X(JX).NE.ZERO) THEN 224 TEMP = X(JX) 231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 233 JX = JX + INCX 251 JX = KX 253 IF (X(JX) [all...] |
H A D | stbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:STBMV 221 JX = KX 223 IF (X(JX).NE.ZERO) THEN 224 TEMP = X(JX) 231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 233 JX = JX + INCX 251 JX = KX 253 IF (X(JX) [all...] |
H A D | ztbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:ZTBMV 222 JX = KX 224 IF (X(JX).NE.ZERO) THEN 225 TEMP = X(JX) 232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 234 JX = JX + INCX 252 JX = KX 254 IF (X(JX) [all...] |
H A D | chpr.f | 96 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:CHPR 160 JX = KX 162 IF (X(JX).NE.ZERO) THEN 163 TEMP = ALPHA*CONJG(X(JX)) 169 AP(KK+J-1) = REAL(AP(KK+J-1)) + REAL(X(JX)*TEMP) 173 JX = JX + INCX 197 JX = KX 199 IF (X(JX).NE.ZERO) THEN 200 TEMP = ALPHA*CONJG(X(JX)) [all...] |
H A D | zhpr.f | 96 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:ZHPR 160 JX = KX 162 IF (X(JX).NE.ZERO) THEN 163 TEMP = ALPHA*DCONJG(X(JX)) 169 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(JX)*TEMP) 173 JX = JX + INCX 197 JX = KX 199 IF (X(JX).NE.ZERO) THEN 200 TEMP = ALPHA*DCONJG(X(JX)) [all...] |
H A D | chpr2.f | 107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:CHPR2 155 JX = KX 186 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 188 TEMP2 = CONJG(ALPHA*X(JX)) 197 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2) 201 JX = JX + INCX 229 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 231 TEMP2 = CONJG(ALPHA*X(JX)) 233 + REAL(X(JX)*TEMP [all...] |
H A D | zhpr2.f | 107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:ZHPR2 155 JX = KX 186 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 188 TEMP2 = DCONJG(ALPHA*X(JX)) 197 + DBLE(X(JX)*TEMP1+Y(JY)*TEMP2) 201 JX = JX + INCX 229 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 231 TEMP2 = DCONJG(ALPHA*X(JX)) 233 + DBLE(X(JX)*TEMP [all...] |
H A D | dspr2.f | 104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:DSPR2 149 JX = KX 176 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 178 TEMP2 = ALPHA*X(JX) 187 JX = JX + INCX 211 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 213 TEMP2 = ALPHA*X(JX) 214 IX = JX 222 JX [all...] |
H A D | sspr2.f | 104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:SSPR2 149 JX = KX 176 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 178 TEMP2 = ALPHA*X(JX) 187 JX = JX + INCX 211 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 213 TEMP2 = ALPHA*X(JX) 214 IX = JX 222 JX [all...] |
H A D | dspmv.f | 106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:DSPMV 201 JX = KX 204 TEMP1 = ALPHA*X(JX) 215 JX = JX + INCX 239 JX = KX 242 TEMP1 = ALPHA*X(JX) 245 IX = JX 254 JX = JX [all...] |
H A D | sspmv.f | 106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:SSPMV 201 JX = KX 204 TEMP1 = ALPHA*X(JX) 215 JX = JX + INCX 239 JX = KX 242 TEMP1 = ALPHA*X(JX) 245 IX = JX 254 JX = JX [all...] |
H A D | chbmv.f | 144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:CHBMV 244 JX = KX 247 TEMP1 = ALPHA*X(JX) 259 JX = JX + INCX 284 JX = KX 287 TEMP1 = ALPHA*X(JX) 291 IX = JX 300 JX = JX [all...] |
H A D | chpmv.f | 110 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:CHPMV 208 JX = KX 211 TEMP1 = ALPHA*X(JX) 222 JX = JX + INCX 246 JX = KX 249 TEMP1 = ALPHA*X(JX) 252 IX = JX 261 JX = JX [all...] |
H A D | dsbmv.f | 138 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:DSBMV 238 JX = KX 241 TEMP1 = ALPHA*X(JX) 253 JX = JX + INCX 278 JX = KX 281 TEMP1 = ALPHA*X(JX) 285 IX = JX 294 JX = JX [all...] |