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