/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
H A D | dtbsv.f | 288 JX = KX 294 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 301 JX = JX - INCX 317 JX = KX 323 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 330 JX = JX + INCX 351 JX = KX 353 TEMP = X(JX) 362 JX = JX + INCX 379 JX = KX [all …]
|
H A D | stbsv.f | 288 JX = KX 294 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 301 JX = JX - INCX 317 JX = KX 323 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 330 JX = JX + INCX 351 JX = KX 353 TEMP = X(JX) 362 JX = JX + INCX 379 JX = KX [all …]
|
/dports/math/xlapack/lapack-3.10.0/BLAS/SRC/ |
H A D | dtbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
H A D | dtbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
H A D | stbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
H A D | stbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
/dports/math/blas/lapack-3.10.0/BLAS/SRC/ |
H A D | dtbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
H A D | stbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
H A D | dtbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
H A D | stbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/reference/ |
H A D | dtbsvf.f | 223 JX = KX 229 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 236 JX = JX - INCX 252 JX = KX 258 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 265 JX = JX + INCX 286 JX = KX 288 TEMP = X(JX) 297 JX = JX + INCX 314 JX = KX [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/blas/src_f77/ |
H A D | dtbmv.f | 219 JX = KX 230 $ X( JX ) = X( JX )*A( KPLUS1, J ) 232 JX = JX + INCX 252 JX = KX 263 $ X( JX ) = X( JX )*A( 1, J ) 265 JX = JX - INCX 290 JX = KX 292 TEMP = X( JX ) 303 JX = JX - INCX 319 JX = KX [all …]
|
H A D | dtbsv.f | 224 JX = KX 231 $ X( JX ) = X( JX )/A( KPLUS1, J ) 238 JX = JX - INCX 255 JX = KX 262 $ X( JX ) = X( JX )/A( 1, J ) 269 JX = JX + INCX 291 JX = KX 293 TEMP = X( JX ) 303 JX = JX + INCX 322 JX = KX [all …]
|
H A D | stbmv.f | 219 JX = KX 230 $ X( JX ) = X( JX )*A( KPLUS1, J ) 232 JX = JX + INCX 252 JX = KX 263 $ X( JX ) = X( JX )*A( 1, J ) 265 JX = JX - INCX 290 JX = KX 292 TEMP = X( JX ) 303 JX = JX - INCX 319 JX = KX [all …]
|
H A D | stbsv.f | 224 JX = KX 231 $ X( JX ) = X( JX )/A( KPLUS1, J ) 238 JX = JX - INCX 255 JX = KX 262 $ X( JX ) = X( JX )/A( 1, J ) 269 JX = JX + INCX 291 JX = KX 293 TEMP = X( JX ) 303 JX = JX + INCX 322 JX = KX [all …]
|
/dports/math/lapack/lapack-3.10.0/BLAS/SRC/ |
H A D | dtbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
H A D | dtbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
H A D | stbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
H A D | stbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
/dports/math/lapacke/lapack-3.10.0/BLAS/SRC/ |
H A D | dtbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
H A D | dtbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
H A D | stbmv.f | 281 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 293 JX = JX + INCX 311 JX = KX 321 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 323 JX = JX - INCX 346 JX = KX 348 TEMP = X(JX) 358 JX = JX - INCX 373 JX = KX [all …]
|
H A D | stbsv.f | 285 JX = KX 291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J) 298 JX = JX - INCX 314 JX = KX 320 IF (NOUNIT) X(JX) = X(JX)/A(1,J) 327 JX = JX + INCX 348 JX = KX 350 TEMP = X(JX) 359 JX = JX + INCX 376 JX = KX [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/blas/ |
H A D | dtbmv.f | 219 JX = KX 230 $ X( JX ) = X( JX )*A( KPLUS1, J ) 232 JX = JX + INCX 252 JX = KX 263 $ X( JX ) = X( JX )*A( 1, J ) 265 JX = JX - INCX 290 JX = KX 292 TEMP = X( JX ) 303 JX = JX - INCX 319 JX = KX [all …]
|
H A D | dtbsv.f | 224 JX = KX 231 $ X( JX ) = X( JX )/A( KPLUS1, J ) 238 JX = JX - INCX 255 JX = KX 262 $ X( JX ) = X( JX )/A( 1, J ) 269 JX = JX + INCX 291 JX = KX 293 TEMP = X( JX ) 303 JX = JX + INCX 322 JX = KX [all …]
|