1       SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)  subroutine
13 *  ZTBMV  performs one of the matrix-vector operations  argument
142       DOUBLE COMPLEX ZERO
146       DOUBLE COMPLEX TEMP
147       INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L
148       LOGICAL NOCONJ,NOUNIT
151       LOGICAL LSAME
217    10                     CONTINUE
220    20             CONTINUE
231    30                     CONTINUE
236    40             CONTINUE
246    50                     CONTINUE
249    60             CONTINUE
261    70                     CONTINUE
266    80             CONTINUE
283    90                     CONTINUE
288   100                     CONTINUE
291   110             CONTINUE
305   120                     CONTINUE
311   130                     CONTINUE
315   140             CONTINUE
326   150                     CONTINUE
331   160                     CONTINUE
334   170             CONTINUE
364 *     End of ZTBMV .  argument