1       SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)  subroutine
14 *  CHPMV  performs the matrix-vector operation  argument
103       COMPLEX ONE
105       COMPLEX ZERO
109       COMPLEX TEMP1,TEMP2
110       INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
136           CALL XERBLA('CHPMV ',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 CHPMV .  argument