47   int i,j,irow,jcol,LDA;  in F77_zgbmv()  local
55         irow=*ku+*kl-i;  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()
63      irow=*ku+*kl-i;  in F77_zgbmv()
65         A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_zgbmv()
66         A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_zgbmv()
69         irow=*ku+*kl-i;  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
196               irow=*k-i;  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()
204            irow=*k-i;  in F77_zhbmv()
206               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_zhbmv()
207               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_zhbmv()
212            irow=*k-i;  in F77_zhbmv()
214               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_zhbmv()
215               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_zhbmv()
218               irow=*k-i;  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
317               irow=*k-i;  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()
325            irow=*k-i;  in F77_ztbmv()
327               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ztbmv()
328               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ztbmv()
333           irow=*k-i;  in F77_ztbmv()
335              A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ztbmv()
336              A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ztbmv()
339              irow=*k-i;  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
381               irow=*k-i;  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()
389            irow=*k-i;  in F77_ztbsv()
391               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ztbsv()
392               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ztbsv()
397            irow=*k-i;  in F77_ztbsv()
399              A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ztbsv()
400              A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ztbsv()
403               irow=*k-i;  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()