/dports/math/cblas/lapack-3.10.0/BLAS/SRC/ |
H A D | dsymv.f | 174 INTEGER I,INFO,IX,IY,J,JX,JY,KX,KY 272 JY = KY 284 Y(JY) = Y(JY) + TEMP1*A(J,J) + ALPHA*TEMP2 286 JY = JY + INCY 306 JY = KY 310 Y(JY) = Y(JY) + TEMP1*A(J,J) 312 IY = JY 319 Y(JY) = Y(JY) + ALPHA*TEMP2 321 JY = JY + INCY
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | zsymv.f | 180 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY 282 JY = KY 294 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) + ALPHA*TEMP2 296 JY = JY + INCY 316 JY = KY 320 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) 322 IY = JY 329 Y( JY ) = Y( JY ) + ALPHA*TEMP2 331 JY = JY + INCY
|
/dports/math/gotoblas/GotoBLAS2/reference/ |
H A D | zsymvf.f | 104 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY local 206 JY = KY 218 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) + ALPHA*TEMP2 220 JY = JY + INCY 240 JY = KY 244 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) 246 IY = JY 253 Y( JY ) = Y( JY ) + ALPHA*TEMP2 255 JY = JY + INCY
|
H A D | dsymvf.f | 105 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY local 204 JY = KY 216 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) + ALPHA*TEMP2 218 JY = JY + INCY 238 JY = KY 242 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) 244 IY = JY 251 Y( JY ) = Y( JY ) + ALPHA*TEMP2 253 JY = JY + INCY
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTZBLAS/ |
H A D | datrmv.f | 119 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY local 328 JY = KY 344 Y( JY ) = Y( JY ) + TALPHA * TEMP 345 JY = JY + INCY 365 Y( JY ) = Y( JY ) + TALPHA * TEMP 366 JY = JY + INCY 374 JY = KY 389 Y( JY ) = Y( JY ) + TALPHA * TEMP 390 JY = JY + INCY 410 Y( JY ) = Y( JY ) + TALPHA * TEMP [all …]
|
H A D | satrmv.f | 119 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY 328 JY = KY 344 Y( JY ) = Y( JY ) + TALPHA * TEMP 345 JY = JY + INCY 365 Y( JY ) = Y( JY ) + TALPHA * TEMP 366 JY = JY + INCY 374 JY = KY 389 Y( JY ) = Y( JY ) + TALPHA * TEMP 390 JY = JY + INCY 410 Y( JY ) = Y( JY ) + TALPHA * TEMP [all …]
|
H A D | zatrmv.f | 125 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY local 339 JY = KY 355 Y( JY ) = Y( JY ) + TALPHA * TEMP 356 JY = JY + INCY 376 Y( JY ) = Y( JY ) + TALPHA * TEMP 377 JY = JY + INCY 385 JY = KY 400 Y( JY ) = Y( JY ) + TALPHA * TEMP 401 JY = JY + INCY 421 Y( JY ) = Y( JY ) + TALPHA * TEMP [all …]
|
H A D | catrmv.f | 125 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY 339 JY = KY 355 Y( JY ) = Y( JY ) + TALPHA * TEMP 356 JY = JY + INCY 376 Y( JY ) = Y( JY ) + TALPHA * TEMP 377 JY = JY + INCY 385 JY = KY 400 Y( JY ) = Y( JY ) + TALPHA * TEMP 401 JY = JY + INCY 421 Y( JY ) = Y( JY ) + TALPHA * TEMP [all …]
|
H A D | zsyr2.f | 91 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY local 137 JY = 1 150 JY = KY 173 IF( ( X( JX ).NE.ZERO ).OR.( Y( JY ).NE.ZERO ) )THEN 174 TEMP1 = ALPHA*Y( JY ) 186 JY = JY + INCY 205 IF( ( X( JX ).NE.ZERO ).OR.( Y( JY ).NE.ZERO ) )THEN 206 TEMP1 = ALPHA*Y( JY ) 209 IY = JY 218 JY = JY + INCY
|
H A D | csyr2.f | 91 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY local 137 JY = 1 150 JY = KY 173 IF( ( X( JX ).NE.ZERO ).OR.( Y( JY ).NE.ZERO ) )THEN 174 TEMP1 = ALPHA*Y( JY ) 186 JY = JY + INCY 205 IF( ( X( JX ).NE.ZERO ).OR.( Y( JY ).NE.ZERO ) )THEN 206 TEMP1 = ALPHA*Y( JY ) 209 IY = JY 218 JY = JY + INCY
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/blas/double/ |
H A D | wfn1_ad_dsyr2.f | 174 INTEGER I,INFO,IX,IY,J,JX,JY,KX,KY local 216 JY = 1 ! Just to shut the compiler up 229 JY = KY 252 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 253 TEMP1 = ALPHA*Y(JY) 264 JY = JY + INCY 283 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 284 TEMP1 = ALPHA*Y(JY) 287 IY = JY 295 JY = JY + INCY
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/recycling/wfn1/blas/double/ |
H A D | wfn1_ad_dsyr2.f | 174 INTEGER I,INFO,IX,IY,J,JX,JY,KX,KY 216 JY = 1 ! Just to shut the compiler up 229 JY = KY 252 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 253 TEMP1 = ALPHA*Y(JY) 264 JY = JY + INCY 283 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN 284 TEMP1 = ALPHA*Y(JY) 287 IY = JY 295 JY = JY + INCY
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/reference/ |
H A D | cspmvf.f | 101 INTEGER I, INFO, IX, IY, J, JX, JY, K, KK, KX, KY local 201 JY = KY 213 Y( JY ) = Y( JY ) + TEMP1*AP( KK+J-1 ) + ALPHA*TEMP2 215 JY = JY + INCY 239 JY = KY 243 Y( JY ) = Y( JY ) + TEMP1*AP( KK ) 245 IY = JY 252 Y( JY ) = Y( JY ) + ALPHA*TEMP2 254 JY = JY + INCY
|
H A D | sspmvf.f | 101 INTEGER I, INFO, IX, IY, J, JX, JY, K, KK, KX, KY 199 JY = KY 211 Y( JY ) = Y( JY ) + TEMP1*AP( KK + J - 1 ) + ALPHA*TEMP2 213 JY = JY + INCY 237 JY = KY 241 Y( JY ) = Y( JY ) + TEMP1*AP( KK ) 243 IY = JY 250 Y( JY ) = Y( JY ) + ALPHA*TEMP2 252 JY = JY + INCY
|
H A D | chpmvf.f | 105 INTEGER I, INFO, IX, IY, J, JX, JY, K, KK, KX, KY local 206 JY = KY 218 Y( JY ) = Y( JY ) + TEMP1*REAL( AP( KK + J - 1 ) ) 221 JY = JY + INCY 245 JY = KY 249 Y( JY ) = Y( JY ) + TEMP1*REAL( AP( KK ) ) 251 IY = JY 258 Y( JY ) = Y( JY ) + ALPHA*TEMP2 260 JY = JY + INCY
|
H A D | csymvf.f | 104 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY local 206 JY = KY 218 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) + ALPHA*TEMP2 220 JY = JY + INCY 240 JY = KY 244 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) 246 IY = JY 253 Y( JY ) = Y( JY ) + ALPHA*TEMP2 255 JY = JY + INCY
|
H A D | dspmvf.f | 101 INTEGER I, INFO, IX, IY, J, JX, JY, K, KK, KX, KY local 199 JY = KY 211 Y( JY ) = Y( JY ) + TEMP1*AP( KK + J - 1 ) + ALPHA*TEMP2 213 JY = JY + INCY 237 JY = KY 241 Y( JY ) = Y( JY ) + TEMP1*AP( KK ) 243 IY = JY 250 Y( JY ) = Y( JY ) + ALPHA*TEMP2 252 JY = JY + INCY
|
H A D | zhpmvf.f | 105 INTEGER I, INFO, IX, IY, J, JX, JY, K, KK, KX, KY local 206 JY = KY 218 Y( JY ) = Y( JY ) + TEMP1*DBLE( AP( KK + J - 1 ) ) 221 JY = JY + INCY 245 JY = KY 249 Y( JY ) = Y( JY ) + TEMP1*DBLE( AP( KK ) ) 251 IY = JY 258 Y( JY ) = Y( JY ) + ALPHA*TEMP2 260 JY = JY + INCY
|
H A D | zspmvf.f | 101 INTEGER I, INFO, IX, IY, J, JX, JY, K, KK, KX, KY local 201 JY = KY 213 Y( JY ) = Y( JY ) + TEMP1*AP( KK+J-1 ) + ALPHA*TEMP2 215 JY = JY + INCY 239 JY = KY 243 Y( JY ) = Y( JY ) + TEMP1*AP( KK ) 245 IY = JY 252 Y( JY ) = Y( JY ) + ALPHA*TEMP2 254 JY = JY + INCY
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cspmv.f | 177 INTEGER I, INFO, IX, IY, J, JX, JY, K, KK, KX, KY 277 JY = KY 289 Y( JY ) = Y( JY ) + TEMP1*AP( KK+J-1 ) + ALPHA*TEMP2 291 JY = JY + INCY 315 JY = KY 319 Y( JY ) = Y( JY ) + TEMP1*AP( KK ) 321 IY = JY 328 Y( JY ) = Y( JY ) + ALPHA*TEMP2 330 JY = JY + INCY
|
H A D | csymv.f | 183 INTEGER I, INFO, IX, IY, J, JX, JY, KX, KY 285 JY = KY 297 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) + ALPHA*TEMP2 299 JY = JY + INCY 319 JY = KY 323 Y( JY ) = Y( JY ) + TEMP1*A( J, J ) 325 IY = JY 332 Y( JY ) = Y( JY ) + ALPHA*TEMP2 334 JY = JY + INCY
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
H A D | chemv.f | 181 INTEGER I,INFO,IX,IY,J,JX,JY,KX,KY 279 JY = KY 291 Y(JY) = Y(JY) + TEMP1*REAL(A(J,J)) + ALPHA*TEMP2 293 JY = JY + INCY 313 JY = KY 317 Y(JY) = Y(JY) + TEMP1*REAL(A(J,J)) 319 IY = JY 326 Y(JY) = Y(JY) + ALPHA*TEMP2 328 JY = JY + INCY
|
H A D | zhemv.f | 181 INTEGER I,INFO,IX,IY,J,JX,JY,KX,KY 279 JY = KY 291 Y(JY) = Y(JY) + TEMP1*DBLE(A(J,J)) + ALPHA*TEMP2 293 JY = JY + INCY 313 JY = KY 317 Y(JY) = Y(JY) + TEMP1*DBLE(A(J,J)) 319 IY = JY 326 Y(JY) = Y(JY) + ALPHA*TEMP2 328 JY = JY + INCY
|
H A D | dspmv.f | 172 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY 268 JY = KY 280 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2 282 JY = JY + INCY 306 JY = KY 310 Y(JY) = Y(JY) + TEMP1*AP(KK) 312 IY = JY 319 Y(JY) = Y(JY) + ALPHA*TEMP2 321 JY = JY + INCY
|
H A D | sspmv.f | 172 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY 268 JY = KY 280 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2 282 JY = JY + INCY 306 JY = KY 310 Y(JY) = Y(JY) + TEMP1*AP(KK) 312 IY = JY 319 Y(JY) = Y(JY) + ALPHA*TEMP2 321 JY = JY + INCY
|