47   int i,j,irow,jcol,LDA;  in F77_cgbmv()  local
55         irow=*ku+*kl-i;  in F77_cgbmv()
58            A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;  in F77_cgbmv()
59            A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_cgbmv()
63      irow=*ku+*kl-i;  in F77_cgbmv()
65         A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_cgbmv()
66         A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_cgbmv()
69         irow=*ku+*kl-i;  in F77_cgbmv()
72            A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;  in F77_cgbmv()
73            A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;  in F77_cgbmv()
181 int i,irow,j,jcol,LDA;  in F77_chbmv()  local
196               irow=*k-i;  in F77_chbmv()
199                  A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;  in F77_chbmv()
200                  A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_chbmv()
204            irow=*k-i;  in F77_chbmv()
206               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_chbmv()
207               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_chbmv()
212            irow=*k-i;  in F77_chbmv()
214               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_chbmv()
215               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_chbmv()
218               irow=*k-i;  in F77_chbmv()
221                  A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;  in F77_chbmv()
222                  A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;  in F77_chbmv()
299   int irow, jcol, i, j, LDA;  in F77_ctbmv()  local
317               irow=*k-i;  in F77_ctbmv()
320                  A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;  in F77_ctbmv()
321                  A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ctbmv()
325            irow=*k-i;  in F77_ctbmv()
327               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ctbmv()
328               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ctbmv()
333           irow=*k-i;  in F77_ctbmv()
335              A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ctbmv()
336              A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ctbmv()
339              irow=*k-i;  in F77_ctbmv()
342                 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;  in F77_ctbmv()
343                 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;  in F77_ctbmv()
363   int irow, jcol, i, j, LDA;  in F77_ctbsv()  local
381               irow=*k-i;  in F77_ctbsv()
384                  A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;  in F77_ctbsv()
385                  A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ctbsv()
389            irow=*k-i;  in F77_ctbsv()
391               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ctbsv()
392               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ctbsv()
397            irow=*k-i;  in F77_ctbsv()
399              A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;  in F77_ctbsv()
400              A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;  in F77_ctbsv()
403               irow=*k-i;  in F77_ctbsv()
406 	         A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;  in F77_ctbsv()
407                  A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;  in F77_ctbsv()