1       SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)  subroutine
14 *  ZHBMV  performs the matrix-vector  operation  argument
137       DOUBLE COMPLEX ONE
139       DOUBLE COMPLEX ZERO
143       DOUBLE 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 ZHBMV .  argument