subroutine sblas2()
*
CALL SGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,
$ BETA, Y, INCY )
*
CALL SGBMV ( TRANS, M, N, KL, KU, ALPHA, A, LDA, X, INCX,
$ BETA, Y, INCY )
*
CALL SSYMV ( UPLO, N, ALPHA, A, LDA, X, INCX,
$ BETA, Y, INCY )
*
CALL SSBMV ( UPLO, N, K, ALPHA, A, LDA, X, INCX,
$ BETA, Y, INCY )
*
CALL SSPMV ( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY )
*
CALL STRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
*
CALL STBMV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )
*
CALL STPMV ( UPLO, TRANS, DIAG, N, AP, X, INCX )
*
CALL STRSV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
*
CALL STBSV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )
*
CALL STPSV ( UPLO, TRANS, DIAG, N, AP, X, INCX )
*
CALL SGER ( M, N, ALPHA, X, INCX, Y, INCY, A, LDA )
*
CALL SSYR ( UPLO, N, ALPHA, X, INCX, A, LDA )
*
CALL SSPR ( UPLO, N, ALPHA, X, INCX, AP )
*
CALL SSYR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA )
*
CALL SSPR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, AP )
*
stop
end
.