/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/reference/ |
H A D | zhemvf.f | 212 JY = KY 226 JY = JY + INCY 250 JY = KY 254 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 263 Y( JY ) = Y( JY ) + ALPHA*TEMP2 265 JY = JY + INCY 288 JY = KY 302 JY = JY + INCY 330 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 339 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | chemvf.f | 212 JY = KY 226 JY = JY + INCY 249 JY = KY 253 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 262 Y( JY ) = Y( JY ) + ALPHA*TEMP2 264 JY = JY + INCY 286 JY = KY 300 JY = JY + INCY 328 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 337 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | zhbmvf.f | 247 JY = KY 260 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 263 JY = JY + INCY 295 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 305 Y( JY ) = Y( JY ) + ALPHA*TEMP2 307 JY = JY + INCY 346 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 349 JY = JY + INCY 381 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 391 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | cgeruf.f | 84 INTEGER I, INFO, IX, J, JY, KX local 120 JY = 1 122 JY = 1 - ( N - 1 )*INCY 126 IF( Y( JY ).NE.ZERO )THEN 127 TEMP = ALPHA*Y( JY ) 132 JY = JY + INCY 141 IF( Y( JY ).NE.ZERO )THEN 142 TEMP = ALPHA*Y( JY ) 149 JY = JY + INCY
|
H A D | dgerf.f | 85 INTEGER I, INFO, IX, J, JY, KX local 121 JY = 1 123 JY = 1 - ( N - 1 )*INCY 127 IF( Y( JY ).NE.ZERO )THEN 128 TEMP = ALPHA*Y( JY ) 133 JY = JY + INCY 142 IF( Y( JY ).NE.ZERO )THEN 143 TEMP = ALPHA*Y( JY ) 150 JY = JY + INCY
|
H A D | sgerf.f | 84 INTEGER I, INFO, IX, J, JY, KX local 120 JY = 1 122 JY = 1 - ( N - 1 )*INCY 126 IF( Y( JY ).NE.ZERO )THEN 127 TEMP = ALPHA*Y( JY ) 132 JY = JY + INCY 141 IF( Y( JY ).NE.ZERO )THEN 142 TEMP = ALPHA*Y( JY ) 149 JY = JY + INCY
|
H A D | zgercf.f | 84 INTEGER I, INFO, IX, J, JY, KX 120 JY = 1 122 JY = 1 - ( N - 1 )*INCY 126 IF( Y( JY ).NE.ZERO )THEN 127 TEMP = ALPHA*DCONJG( Y( JY ) ) 132 JY = JY + INCY 141 IF( Y( JY ).NE.ZERO )THEN 142 TEMP = ALPHA*DCONJG( Y( JY ) ) 149 JY = JY + INCY
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/GotoBLAS2/reference/ |
H A D | chemvf.f | 212 JY = KY 226 JY = JY + INCY 249 JY = KY 253 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 262 Y( JY ) = Y( JY ) + ALPHA*TEMP2 264 JY = JY + INCY 286 JY = KY 300 JY = JY + INCY 328 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 337 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | zhemvf.f | 212 JY = KY 226 JY = JY + INCY 250 JY = KY 254 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 263 Y( JY ) = Y( JY ) + ALPHA*TEMP2 265 JY = JY + INCY 288 JY = KY 302 JY = JY + INCY 330 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 339 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | zhbmvf.f | 247 JY = KY 260 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 263 JY = JY + INCY 295 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 305 Y( JY ) = Y( JY ) + ALPHA*TEMP2 307 JY = JY + INCY 346 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 349 JY = JY + INCY 381 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 391 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/reference/ |
H A D | zhemvf.f | 212 JY = KY 226 JY = JY + INCY 250 JY = KY 254 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 263 Y( JY ) = Y( JY ) + ALPHA*TEMP2 265 JY = JY + INCY 288 JY = KY 302 JY = JY + INCY 330 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 339 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | chemvf.f | 212 JY = KY 226 JY = JY + INCY 249 JY = KY 253 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 262 Y( JY ) = Y( JY ) + ALPHA*TEMP2 264 JY = JY + INCY 286 JY = KY 300 JY = JY + INCY 328 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 337 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | zhbmvf.f | 247 JY = KY 260 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 263 JY = JY + INCY 295 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 305 Y( JY ) = Y( JY ) + ALPHA*TEMP2 307 JY = JY + INCY 346 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 349 JY = JY + INCY 381 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 391 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
/dports/math/gotoblas/GotoBLAS2/reference/ |
H A D | zhemvf.f | 212 JY = KY 226 JY = JY + INCY 250 JY = KY 254 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 263 Y( JY ) = Y( JY ) + ALPHA*TEMP2 265 JY = JY + INCY 288 JY = KY 302 JY = JY + INCY 330 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( J, J ) ) 339 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | chemvf.f | 212 JY = KY 226 JY = JY + INCY 249 JY = KY 253 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 262 Y( JY ) = Y( JY ) + ALPHA*TEMP2 264 JY = JY + INCY 286 JY = KY 300 JY = JY + INCY 328 Y( JY ) = Y( JY ) + TEMP1*REAL( A( J, J ) ) 337 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
H A D | zhbmvf.f | 247 JY = KY 260 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 263 JY = JY + INCY 295 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 305 Y( JY ) = Y( JY ) + ALPHA*TEMP2 307 JY = JY + INCY 346 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( KPLUS1, J ) ) 349 JY = JY + INCY 381 Y( JY ) = Y( JY ) + TEMP1*DBLE( A( 1, J ) ) 391 Y( JY ) = Y( JY ) + ALPHA*TEMP2 [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/SSEIG/ |
H A D | dssr2.f90 | 173 JY = KY + (JJ-1)*INCY 175 IF ( INCY .LT. 0 ) JY = JY + (JC-1)*INCY 200 JY = KY + (JJ-1)*INCY 202 IF ( INCY .LT. 0 ) JY = JY + (JC-1)*INCY 285 JY = KY + INCY 289 TEMP1 = ALPHA*Y( JY ) 301 JY = JY + INCY 321 JY = KY 325 TEMP1 = ALPHA*Y( JY ) 328 IY = JY + INCY [all …]
|
H A D | sssr2.f90 | 173 JY = KY + (JJ-1)*INCY 175 IF ( INCY .LT. 0 ) JY = JY + (JC-1)*INCY 200 JY = KY + (JJ-1)*INCY 202 IF ( INCY .LT. 0 ) JY = JY + (JC-1)*INCY 285 JY = KY + INCY 289 TEMP1 = ALPHA*Y( JY ) 301 JY = JY + INCY 321 JY = KY 325 TEMP1 = ALPHA*Y( JY ) 328 IY = JY + INCY [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/udpack/ |
H A D | udgrdn.f | 6 SUBROUTINE UDGRDN(MODE,IX,IY,K,JX,JY,JK) argument 8 INTEGER JX(0:3),JY(0:3),JK(0:3) local 17 JY(0)=IY 18 JY(1)=IY+K 19 JY(2)=IY+KM 20 JY(3)=IY 30 JY(0)=IY 31 JY(1)=IY-KM 32 JY(2)=IY-KM 33 JY(3)=IY+1-2*KM
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/blas/ |
H A D | zgerc.f | 84 INTEGER I, INFO, IX, J, JY, KX 120 JY = 1 122 JY = 1 - ( N - 1 )*INCY 126 IF( Y( JY ).NE.ZERO )THEN 127 TEMP = ALPHA*DCONJG( Y( JY ) ) 132 JY = JY + INCY 141 IF( Y( JY ).NE.ZERO )THEN 142 TEMP = ALPHA*DCONJG( Y( JY ) ) 149 JY = JY + INCY
|
H A D | sger.f | 84 INTEGER I, INFO, IX, J, JY, KX 120 JY = 1 122 JY = 1 - ( N - 1 )*INCY 126 IF( Y( JY ).NE.ZERO )THEN 127 TEMP = ALPHA*Y( JY ) 132 JY = JY + INCY 141 IF( Y( JY ).NE.ZERO )THEN 142 TEMP = ALPHA*Y( JY ) 149 JY = JY + INCY
|
H A D | dger.f | 84 INTEGER I, INFO, IX, J, JY, KX 120 JY = 1 122 JY = 1 - ( N - 1 )*INCY 126 IF( Y( JY ).NE.ZERO )THEN 127 TEMP = ALPHA*Y( JY ) 132 JY = JY + INCY 141 IF( Y( JY ).NE.ZERO )THEN 142 TEMP = ALPHA*Y( JY ) 149 JY = JY + INCY
|
H A D | zgeru.f | 86 INTEGER I,INFO,IX,J,JY,KX 122 JY = 1 124 JY = 1 - (N-1)*INCY 128 IF (Y(JY).NE.ZERO) THEN 129 TEMP = ALPHA*Y(JY) 134 JY = JY + INCY 143 IF (Y(JY).NE.ZERO) THEN 144 TEMP = ALPHA*Y(JY) 151 JY = JY + INCY
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
H A D | sger.f | 154 INTEGER I,INFO,IX,J,JY,KX 190 JY = 1 192 JY = 1 - (N-1)*INCY 196 IF (Y(JY).NE.ZERO) THEN 197 TEMP = ALPHA*Y(JY) 202 JY = JY + INCY 211 IF (Y(JY).NE.ZERO) THEN 212 TEMP = ALPHA*Y(JY) 219 JY = JY + INCY
|
H A D | zgerc.f | 154 INTEGER I,INFO,IX,J,JY,KX 190 JY = 1 192 JY = 1 - (N-1)*INCY 196 IF (Y(JY).NE.ZERO) THEN 197 TEMP = ALPHA*DCONJG(Y(JY)) 202 JY = JY + INCY 211 IF (Y(JY).NE.ZERO) THEN 212 TEMP = ALPHA*DCONJG(Y(JY)) 219 JY = JY + INCY
|