126       SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP)  subroutine
133       DOUBLE PRECISION ALPHA
134       INTEGER INCX,N
135       CHARACTER UPLO
138       DOUBLE PRECISION AP(*),X(*)
144       DOUBLE PRECISION ZERO
170           CALL XERBLA('DSPR  ',INFO)  argument
202    10                 CONTINUE
205    20         CONTINUE
215    30                 CONTINUE
219    40         CONTINUE
256 *     End of DSPR  argument