41 void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku,   in F77_cgbmv()  argument
52      LDA = *ku+*kl+2;  in F77_cgbmv()
54      for( i=0; i<*ku; i++ ){  in F77_cgbmv()
55         irow=*ku+*kl-i;  in F77_cgbmv()
56         jcol=(*ku)-i;  in F77_cgbmv()
62      i=*ku;  in F77_cgbmv()
63      irow=*ku+*kl-i;  in F77_cgbmv()
68      for( i=*ku+1; i<*ku+*kl+1; i++ ){  in F77_cgbmv()
69         irow=*ku+*kl-i;  in F77_cgbmv()
70         jcol=i-(*ku);  in F77_cgbmv()
76      cblas_cgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, alpha, A, LDA, x,  in F77_cgbmv()
81      cblas_cgbmv( CblasColMajor, trans, *m, *n, *kl, *ku, alpha, a, *lda, x,  in F77_cgbmv()
84      cblas_cgbmv( UNDEFINED, trans, *m, *n, *kl, *ku, alpha, a, *lda, x,  in F77_cgbmv()