Lines Matching +full:- +full:j
16 int i,j,LDA; in F77_sgemv() local
24 for( j=0; j<*n; j++ ) in F77_sgemv()
25 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_sgemv()
42 int i,j,LDA; in F77_sger() local
49 for( j=0; j<*n; j++ ) in F77_sger()
50 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_sger()
55 for( j=0; j<*n; j++ ) in F77_sger()
56 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_sger()
66 int i,j,LDA; in F77_strmv() local
79 for( j=0; j<*n; j++ ) in F77_strmv()
80 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_strmv()
94 int i,j,LDA; in F77_strsv() local
107 for( j=0; j<*n; j++ ) in F77_strsv()
108 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_strsv()
119 int i,j,LDA; in F77_ssymv() local
128 for( j=0; j<*n; j++ ) in F77_ssymv()
129 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_ssymv()
142 int i,j,LDA; in F77_ssyr() local
151 for( j=0; j<*n; j++ ) in F77_ssyr()
152 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_ssyr()
155 for( j=0; j<*n; j++ ) in F77_ssyr()
156 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_ssyr()
166 int i,j,LDA; in F77_ssyr2() local
175 for( j=0; j<*n; j++ ) in F77_ssyr2()
176 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_ssyr2()
179 for( j=0; j<*n; j++ ) in F77_ssyr2()
180 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_ssyr2()
192 int i,irow,j,jcol,LDA; in F77_sgbmv() local
201 irow=*ku+*kl-i; in F77_sgbmv()
202 jcol=(*ku)-i; in F77_sgbmv()
203 for( j=jcol; j<*n; j++ ) in F77_sgbmv()
204 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_sgbmv()
207 irow=*ku+*kl-i; in F77_sgbmv()
208 for( j=0; j<*n; j++ ) in F77_sgbmv()
209 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_sgbmv()
211 irow=*ku+*kl-i; in F77_sgbmv()
212 jcol=i-(*ku); in F77_sgbmv()
213 for( j=jcol; j<(*n+*kl); j++ ) in F77_sgbmv()
214 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_sgbmv()
228 int irow, jcol, i, j, LDA; in F77_stbmv() local
242 irow=*k-i; in F77_stbmv()
243 jcol=(*k)-i; in F77_stbmv()
244 for( j=jcol; j<*n; j++ ) in F77_stbmv()
245 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_stbmv()
248 irow=*k-i; in F77_stbmv()
249 for( j=0; j<*n; j++ ) in F77_stbmv()
250 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbmv()
254 irow=*k-i; in F77_stbmv()
255 for( j=0; j<*n; j++ ) in F77_stbmv()
256 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbmv()
258 irow=*k-i; in F77_stbmv()
260 for( j=jcol; j<(*n+*k); j++ ) in F77_stbmv()
261 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_stbmv()
274 int irow, jcol, i, j, LDA; in F77_stbsv() local
288 irow=*k-i; in F77_stbsv()
289 jcol=(*k)-i; in F77_stbsv()
290 for( j=jcol; j<*n; j++ ) in F77_stbsv()
291 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_stbsv()
294 irow=*k-i; in F77_stbsv()
295 for( j=0; j<*n; j++ ) in F77_stbsv()
296 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbsv()
300 irow=*k-i; in F77_stbsv()
301 for( j=0; j<*n; j++ ) in F77_stbsv()
302 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbsv()
304 irow=*k-i; in F77_stbsv()
306 for( j=jcol; j<(*n+*k); j++ ) in F77_stbsv()
307 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_stbsv()
321 int i,j,irow,jcol,LDA; in F77_ssbmv() local
331 irow=*k-i; in F77_ssbmv()
332 jcol=(*k)-i; in F77_ssbmv()
333 for( j=jcol; j<*n; j++ ) in F77_ssbmv()
334 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_ssbmv()
337 irow=*k-i; in F77_ssbmv()
338 for( j=0; j<*n; j++ ) in F77_ssbmv()
339 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_ssbmv()
343 irow=*k-i; in F77_ssbmv()
344 for( j=0; j<*n; j++ ) in F77_ssbmv()
345 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_ssbmv()
347 irow=*k-i; in F77_ssbmv()
349 for( j=jcol; j<(*n+*k); j++ ) in F77_ssbmv()
350 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_ssbmv()
365 int i,j,k,LDA; in F77_sspmv() local
375 for( j=0, k=0; j<*n; j++ ) in F77_sspmv()
376 for( i=0; i<j+1; i++, k++ ) in F77_sspmv()
377 A[ LDA*i+j ]=ap[ k ]; in F77_sspmv()
379 for( j=i; j<*n; j++, k++ ) in F77_sspmv()
380 AP[ k ]=A[ LDA*i+j ]; in F77_sspmv()
383 for( j=0, k=0; j<*n; j++ ) in F77_sspmv()
384 for( i=j; i<*n; i++, k++ ) in F77_sspmv()
385 A[ LDA*i+j ]=ap[ k ]; in F77_sspmv()
387 for( j=0; j<i+1; j++, k++ ) in F77_sspmv()
388 AP[ k ]=A[ LDA*i+j ]; in F77_sspmv()
402 int i, j, k, LDA; in F77_stpmv() local
416 for( j=0, k=0; j<*n; j++ ) in F77_stpmv()
417 for( i=0; i<j+1; i++, k++ ) in F77_stpmv()
418 A[ LDA*i+j ]=ap[ k ]; in F77_stpmv()
420 for( j=i; j<*n; j++, k++ ) in F77_stpmv()
421 AP[ k ]=A[ LDA*i+j ]; in F77_stpmv()
424 for( j=0, k=0; j<*n; j++ ) in F77_stpmv()
425 for( i=j; i<*n; i++, k++ ) in F77_stpmv()
426 A[ LDA*i+j ]=ap[ k ]; in F77_stpmv()
428 for( j=0; j<i+1; j++, k++ ) in F77_stpmv()
429 AP[ k ]=A[ LDA*i+j ]; in F77_stpmv()
441 int i, j, k, LDA; in F77_stpsv() local
455 for( j=0, k=0; j<*n; j++ ) in F77_stpsv()
456 for( i=0; i<j+1; i++, k++ ) in F77_stpsv()
457 A[ LDA*i+j ]=ap[ k ]; in F77_stpsv()
459 for( j=i; j<*n; j++, k++ ) in F77_stpsv()
460 AP[ k ]=A[ LDA*i+j ]; in F77_stpsv()
464 for( j=0, k=0; j<*n; j++ ) in F77_stpsv()
465 for( i=j; i<*n; i++, k++ ) in F77_stpsv()
466 A[ LDA*i+j ]=ap[ k ]; in F77_stpsv()
468 for( j=0; j<i+1; j++, k++ ) in F77_stpsv()
469 AP[ k ]=A[ LDA*i+j ]; in F77_stpsv()
481 int i,j,k,LDA; in F77_sspr() local
491 for( j=0, k=0; j<*n; j++ ) in F77_sspr()
492 for( i=0; i<j+1; i++, k++ ) in F77_sspr()
493 A[ LDA*i+j ]=ap[ k ]; in F77_sspr()
495 for( j=i; j<*n; j++, k++ ) in F77_sspr()
496 AP[ k ]=A[ LDA*i+j ]; in F77_sspr()
499 for( j=0, k=0; j<*n; j++ ) in F77_sspr()
500 for( i=j; i<*n; i++, k++ ) in F77_sspr()
501 A[ LDA*i+j ]=ap[ k ]; in F77_sspr()
503 for( j=0; j<i+1; j++, k++ ) in F77_sspr()
504 AP[ k ]=A[ LDA*i+j ]; in F77_sspr()
509 for( j=i; j<*n; j++, k++ ) in F77_sspr()
510 A[ LDA*i+j ]=AP[ k ]; in F77_sspr()
511 for( j=0, k=0; j<*n; j++ ) in F77_sspr()
512 for( i=0; i<j+1; i++, k++ ) in F77_sspr()
513 ap[ k ]=A[ LDA*i+j ]; in F77_sspr()
517 for( j=0; j<i+1; j++, k++ ) in F77_sspr()
518 A[ LDA*i+j ]=AP[ k ]; in F77_sspr()
519 for( j=0, k=0; j<*n; j++ ) in F77_sspr()
520 for( i=j; i<*n; i++, k++ ) in F77_sspr()
521 ap[ k ]=A[ LDA*i+j ]; in F77_sspr()
532 int i,j,k,LDA; in F77_sspr2() local
542 for( j=0, k=0; j<*n; j++ ) in F77_sspr2()
543 for( i=0; i<j+1; i++, k++ ) in F77_sspr2()
544 A[ LDA*i+j ]=ap[ k ]; in F77_sspr2()
546 for( j=i; j<*n; j++, k++ ) in F77_sspr2()
547 AP[ k ]=A[ LDA*i+j ]; in F77_sspr2()
550 for( j=0, k=0; j<*n; j++ ) in F77_sspr2()
551 for( i=j; i<*n; i++, k++ ) in F77_sspr2()
552 A[ LDA*i+j ]=ap[ k ]; in F77_sspr2()
554 for( j=0; j<i+1; j++, k++ ) in F77_sspr2()
555 AP[ k ]=A[ LDA*i+j ]; in F77_sspr2()
560 for( j=i; j<*n; j++, k++ ) in F77_sspr2()
561 A[ LDA*i+j ]=AP[ k ]; in F77_sspr2()
562 for( j=0, k=0; j<*n; j++ ) in F77_sspr2()
563 for( i=0; i<j+1; i++, k++ ) in F77_sspr2()
564 ap[ k ]=A[ LDA*i+j ]; in F77_sspr2()
568 for( j=0; j<i+1; j++, k++ ) in F77_sspr2()
569 A[ LDA*i+j ]=AP[ k ]; in F77_sspr2()
570 for( j=0, k=0; j<*n; j++ ) in F77_sspr2()
571 for( i=j; i<*n; i++, k++ ) in F77_sspr2()
572 ap[ k ]=A[ LDA*i+j ]; in F77_sspr2()