1       SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)  subroutine
13 *  STBMV  performs one of the matrix-vector operations  argument
142       REAL ZERO
146       REAL TEMP
147       INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L
148       LOGICAL NOUNIT
151       LOGICAL LSAME
216    10                     CONTINUE
219    20             CONTINUE
230    30                     CONTINUE
235    40             CONTINUE
245    50                     CONTINUE
248    60             CONTINUE
260    70                     CONTINUE
265    80             CONTINUE
281    90                 CONTINUE
283   100             CONTINUE
296   110                 CONTINUE
299   120             CONTINUE
309   130                 CONTINUE
333 *     End of STBMV .  argument