1       SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)  subroutine
14 *  SSPMV  performs the matrix-vector operation  argument
101       REAL ONE,ZERO
105       REAL TEMP1,TEMP2
129           CALL XERBLA('SSPMV ',INFO)  argument
160    10             CONTINUE
164    20             CONTINUE
172    30             CONTINUE
177    40             CONTINUE
196    50             CONTINUE
199    60         CONTINUE
213    70             CONTINUE
218    80         CONTINUE
234    90             CONTINUE
237   100         CONTINUE
263 *     End of SSPMV .  argument