Lines Matching refs:jcol
47 int i,j,irow,jcol,LDA; in F77_zgbmv() local
56 jcol=(*ku)-i; in F77_zgbmv()
57 for( j=jcol; j<*n; j++ ){ in F77_zgbmv()
58 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_zgbmv()
59 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_zgbmv()
70 jcol=i-(*ku); in F77_zgbmv()
71 for( j=jcol; j<(*n+*kl); j++ ){ in F77_zgbmv()
72 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_zgbmv()
73 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_zgbmv()
181 int i,irow,j,jcol,LDA; in F77_zhbmv() local
197 jcol=(*k)-i; in F77_zhbmv()
198 for( j=jcol; j<*n; j++ ) { in F77_zhbmv()
199 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_zhbmv()
200 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_zhbmv()
219 jcol=i; in F77_zhbmv()
220 for( j=jcol; j<(*n+*k); j++ ) { in F77_zhbmv()
221 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_zhbmv()
222 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_zhbmv()
299 int irow, jcol, i, j, LDA; in F77_ztbmv() local
318 jcol=(*k)-i; in F77_ztbmv()
319 for( j=jcol; j<*n; j++ ) { in F77_ztbmv()
320 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbmv()
321 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbmv()
340 jcol=i; in F77_ztbmv()
341 for( j=jcol; j<(*n+*k); j++ ) { in F77_ztbmv()
342 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ztbmv()
343 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_ztbmv()
363 int irow, jcol, i, j, LDA; in F77_ztbsv() local
382 jcol=(*k)-i; in F77_ztbsv()
383 for( j=jcol; j<*n; j++ ) { in F77_ztbsv()
384 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbsv()
385 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbsv()
404 jcol=i; in F77_ztbsv()
405 for( j=jcol; j<(*n+*k); j++ ) { in F77_ztbsv()
406 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ztbsv()
407 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_ztbsv()