1       SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)  subroutine
14 *  SSBMV  performs the matrix-vector  operation  argument
135       REAL ONE,ZERO
139       REAL TEMP1,TEMP2
140       INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L
143       LOGICAL LSAME
201    10             CONTINUE
205    20             CONTINUE
213    30             CONTINUE
218    40             CONTINUE
236    50             CONTINUE
238    60         CONTINUE
253    70             CONTINUE
261    80         CONTINUE
276    90             CONTINUE
278   100         CONTINUE
304 *     End of SSBMV .  argument