1       SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)  subroutine
14 *  ZHPMV  performs the matrix-vector operation  argument
103       DOUBLE COMPLEX ONE
105       DOUBLE COMPLEX ZERO
109       DOUBLE COMPLEX TEMP1,TEMP2
110       INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
136           CALL XERBLA('ZHPMV ',INFO)  argument
167    10             CONTINUE
171    20             CONTINUE
179    30             CONTINUE
184    40             CONTINUE
203    50             CONTINUE
206    60         CONTINUE
220    70             CONTINUE
225    80         CONTINUE
241    90             CONTINUE
244   100         CONTINUE
270 *     End of ZHPMV .  argument