Jovan Ivković
/
Linpack
Important changes to repositories hosted on mbed.com
Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.
To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.
It is also possible to export all your personal repositories from the account settings page.
Diff: main.cpp
- Revision:
- 7:931219974070
- Parent:
- 6:5e0f3eedaf66
- Child:
- 8:66f6deeb2556
diff -r 5e0f3eedaf66 -r 931219974070 main.cpp
--- a/main.cpp Tue Jan 03 19:59:24 2017 +0000
+++ b/main.cpp Tue Jan 03 20:00:57 2017 +0000
@@ -63,7 +63,7 @@
int do_benchmark ( void )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -261,9 +261,9 @@
/*
Terminate.
- Free Mem
- */
-
+ Free Mem
+ */
+
free ( a );
free ( b );
free ( ipvt );
@@ -314,7 +314,7 @@
void daxpy ( int n, double da, double dx[], int incx, double dy[], int incy )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -419,7 +419,7 @@
double ddot ( int n, double dx[], int incx, double dy[], int incy )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -525,7 +525,7 @@
int dgefa ( double a[], int lda, int n, int ipvt[] )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -633,7 +633,7 @@
void dgesl ( double a[], int lda, int n, int ipvt[], double b[], int job )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -741,7 +741,7 @@
void dscal ( int n, double sa, double x[], int incx )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -817,7 +817,7 @@
int idamax ( int n, double dx[], int incx )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -907,7 +907,7 @@
double r8_abs ( double x )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -942,7 +942,7 @@
double r8_epsilon ( void )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -989,7 +989,7 @@
double r8_max ( double x, double y )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -1024,7 +1024,7 @@
double r8_random ( int iseed[4] )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose:
@@ -1100,7 +1100,7 @@
double *r8mat_gen ( int lda, int n )
{
-/******************************************************************************/
+ /******************************************************************************/
/*
Purpose: