/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/blas/ |
H A D | ztrsv.f | 186 $ X( JX ) = X( JX )/A( J, J ) 188 IX = JX 194 JX = JX - INCX 210 JX = KX 214 $ X( JX ) = X( JX )/A( J, J ) 216 IX = JX 222 JX = JX + INCX 250 JX = KX 270 JX = JX + INCX 294 JX = KX [all …]
|
/dports/math/algae/algae-4.3.6/blas/ |
H A D | ztrsv.f | 186 $ X( JX ) = X( JX )/A( J, J ) 188 IX = JX 194 JX = JX - INCX 210 JX = KX 214 $ X( JX ) = X( JX )/A( J, J ) 216 IX = JX 222 JX = JX + INCX 250 JX = KX 270 JX = JX + INCX 294 JX = KX [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/BLAS/SRC/ |
H A D | ztrmv.f | 242 JX = KX 251 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 253 JX = JX + INCX 269 JX = KX 278 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 280 JX = JX - INCX 309 IX = JX 324 JX = JX - INCX 345 JX = KX 348 IX = JX [all …]
|
H A D | ztrsv.f | 173 INTEGER I,INFO,IX,J,JX,KX 247 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 249 IX = JX 255 JX = JX - INCX 270 JX = KX 273 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 281 JX = JX + INCX 307 JX = KX 325 JX = JX + INCX 347 JX = KX [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/blas/double/ |
H A D | ztrmv.f | 242 JX = KX 251 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 253 JX = JX + INCX 269 JX = KX 278 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 280 JX = JX - INCX 309 IX = JX 324 JX = JX - INCX 345 JX = KX 348 IX = JX [all …]
|
H A D | ztrsv.f | 173 INTEGER I,INFO,IX,J,JX,KX 247 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 249 IX = JX 255 JX = JX - INCX 270 JX = KX 273 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 281 JX = JX + INCX 307 JX = KX 325 JX = JX + INCX 347 JX = KX [all …]
|
/dports/math/libflame/libflame-5.2.0/src/flablas/f2c/ |
H A D | ztrsv.f | 186 $ X( JX ) = X( JX )/A( J, J ) 188 IX = JX 194 JX = JX - INCX 210 JX = KX 214 $ X( JX ) = X( JX )/A( J, J ) 216 IX = JX 222 JX = JX + INCX 250 JX = KX 270 JX = JX + INCX 294 JX = KX [all …]
|
H A D | ztrmv.f | 179 JX = KX 189 $ X( JX ) = X( JX )*A( J, J ) 191 JX = JX + INCX 208 JX = KX 218 $ X( JX ) = X( JX )*A( J, J ) 220 JX = JX - INCX 251 IX = JX 268 JX = JX - INCX 291 JX = KX 294 IX = JX [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/BLAS/SRC/ |
H A D | ztrmv.f | 242 JX = KX 251 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 253 JX = JX + INCX 269 JX = KX 278 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 280 JX = JX - INCX 309 IX = JX 324 JX = JX - INCX 345 JX = KX 348 IX = JX [all …]
|
H A D | ztrsv.f | 173 INTEGER I,INFO,IX,J,JX,KX local 247 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 249 IX = JX 255 JX = JX - INCX 270 JX = KX 273 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 281 JX = JX + INCX 307 JX = KX 325 JX = JX + INCX 347 JX = KX [all …]
|
/dports/science/elk/elk-7.2.42/src/BLAS/ |
H A D | ztrmv.f | 242 JX = KX 251 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 253 JX = JX + INCX 269 JX = KX 278 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 280 JX = JX - INCX 309 IX = JX 324 JX = JX - INCX 345 JX = KX 348 IX = JX [all …]
|
H A D | ztrsv.f | 173 INTEGER I,INFO,IX,J,JX,KX 247 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 249 IX = JX 255 JX = JX - INCX 270 JX = KX 273 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 281 JX = JX + INCX 307 JX = KX 325 JX = JX + INCX 347 JX = KX [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/blas/double/ |
H A D | ztrmv.f | 242 JX = KX 251 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 253 JX = JX + INCX 269 JX = KX 278 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 280 JX = JX - INCX 309 IX = JX 324 JX = JX - INCX 345 JX = KX 348 IX = JX [all …]
|
H A D | ztrsv.f | 173 INTEGER I,INFO,IX,J,JX,KX 247 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 249 IX = JX 255 JX = JX - INCX 270 JX = KX 273 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 281 JX = JX + INCX 307 JX = KX 325 JX = JX + INCX 347 JX = KX [all …]
|
/dports/math/cblas/lapack-3.10.0/BLAS/SRC/ |
H A D | ztrmv.f | 239 JX = KX 248 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 250 JX = JX + INCX 266 JX = KX 275 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 277 JX = JX - INCX 306 IX = JX 321 JX = JX - INCX 342 JX = KX 345 IX = JX [all …]
|
H A D | ztrsv.f | 170 INTEGER I,INFO,IX,J,JX,KX 244 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 246 IX = JX 252 JX = JX - INCX 267 JX = KX 270 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 278 JX = JX + INCX 304 JX = KX 322 JX = JX + INCX 344 JX = KX [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/blas/ |
H A D | ztrsv.f | 186 $ X( JX ) = X( JX )/A( J, J ) 188 IX = JX 194 JX = JX - INCX 210 JX = KX 214 $ X( JX ) = X( JX )/A( J, J ) 216 IX = JX 222 JX = JX + INCX 250 JX = KX 270 JX = JX + INCX 294 JX = KX [all …]
|
H A D | ztrmv.f | 179 JX = KX 189 $ X( JX ) = X( JX )*A( J, J ) 191 JX = JX + INCX 208 JX = KX 218 $ X( JX ) = X( JX )*A( J, J ) 220 JX = JX - INCX 251 IX = JX 268 JX = JX - INCX 291 JX = KX 294 IX = JX [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
H A D | ztrmv.f | 242 JX = KX 251 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 253 JX = JX + INCX 269 JX = KX 278 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 280 JX = JX - INCX 309 IX = JX 324 JX = JX - INCX 345 JX = KX 348 IX = JX [all …]
|
H A D | ztrsv.f | 173 INTEGER I,INFO,IX,J,JX,KX 247 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 249 IX = JX 255 JX = JX - INCX 270 JX = KX 273 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 281 JX = JX + INCX 307 JX = KX 325 JX = JX + INCX 347 JX = KX [all …]
|
H A D | stbmv.f | 284 JX = KX 294 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 296 JX = JX + INCX 314 JX = KX 324 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 326 JX = JX - INCX 349 JX = KX 351 TEMP = X(JX) 361 JX = JX - INCX 376 JX = KX [all …]
|
H A D | dtbmv.f | 284 JX = KX 294 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J) 296 JX = JX + INCX 314 JX = KX 324 IF (NOUNIT) X(JX) = X(JX)*A(1,J) 326 JX = JX - INCX 349 JX = KX 351 TEMP = X(JX) 361 JX = JX - INCX 376 JX = KX [all …]
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/reference/ |
H A D | dtbmvf.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 | stbmvf.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 | stbsvf.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 …]
|