1       SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)  subroutine
14 *  CHBMV  performs the matrix-vector  operation  argument
137       COMPLEX ONE
139       COMPLEX ZERO
143       COMPLEX TEMP1,TEMP2
144       INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L
147       LOGICAL LSAME
205    10             CONTINUE
209    20             CONTINUE
217    30             CONTINUE
222    40             CONTINUE
240    50             CONTINUE
242    60         CONTINUE
257    70             CONTINUE
265    80         CONTINUE
280    90             CONTINUE
282   100         CONTINUE
308 *     End of CHBMV .  argument