Home
last modified time | relevance | path

Searched refs:JY (Results 176 – 200 of 1734) sorted by relevance

12345678910>>...70

/dports/math/cblas/lapack-3.10.0/BLAS/SRC/
H A Ddsymv.f174 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 Dzsymv.f180 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 Dzsymvf.f104 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 Ddsymvf.f105 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 Ddatrmv.f119 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 Dsatrmv.f119 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 Dzatrmv.f125 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 Dcatrmv.f125 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 Dzsyr2.f91 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 Dcsyr2.f91 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 Dwfn1_ad_dsyr2.f174 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 Dwfn1_ad_dsyr2.f174 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 Dcspmvf.f101 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 Dsspmvf.f101 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 Dchpmvf.f105 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 Dcsymvf.f104 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 Ddspmvf.f101 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 Dzhpmvf.f105 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 Dzspmvf.f101 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 Dcspmv.f177 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 Dcsymv.f183 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 Dchemv.f181 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 Dzhemv.f181 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 Ddspmv.f172 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 Dsspmv.f172 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

12345678910>>...70