Signed-off-by: Hongmei Gou <a0271...@ti.com>
---
linpack/linpack.c | 22 +++++++++++++++-------
1 file changed, 15 insertions(+), 7 deletions(-)
diff --git a/linpack/linpack.c b/linpack/linpack.c
index d663ff1..58365df 100644
--- a/linpack/linpack.c
+++ b/linpack/linpack.c
@@ -91,6 +91,14 @@ You must specify one of -DROLL or -DUNROLL to compile
correctly.
static REAL time[9][9];
+void print_time();
+void matgen();
+void dgefa();
+void dgesl();
+void daxpy();
+void dscal();
+void dmxpy ();
+
int main (void)
{
static REAL aa[200][200],a[200][201],b[200],x[200];
@@ -296,7 +304,7 @@ int main (void)
}
/*----------------------*/
-print_time (row)
+void print_time (row)
int row;
{
fprintf(stderr,"%11.2f%11.2f%11.2f%11.0f%11.2f%11.2f\n",
(double)time[0][row],
@@ -305,7 +313,7 @@ fprintf(stderr,"%11.2f%11.2f%11.2f%11.0f%11.2f%11.2f\n",
(double)time[0][row],
}
/*----------------------*/
-matgen(a,lda,n,b,norma)
+void matgen(a,lda,n,b,norma)
REAL a[],b[],*norma;
int lda, n;
@@ -335,7 +343,7 @@ function, references to a[i][j] are written a[lda*j+i]. */
}
/*----------------------*/
-dgefa(a,lda,n,ipvt,info)
+void dgefa(a,lda,n,ipvt,info)
REAL a[];
int lda,n,ipvt[],*info;
@@ -447,7 +455,7 @@ int idamax(),j,k,kp1,l,nm1;
/*----------------------*/
-dgesl(a,lda,n,ipvt,b,job)
+void dgesl(a,lda,n,ipvt,b,job)
int lda,n,ipvt[],job;
REAL a[],b[];
@@ -571,7 +579,7 @@ function, references to a[i][j] are written a[lda*i+j]. */
/*----------------------*/
-daxpy(n,da,dx,incx,dy,incy)
+void daxpy(n,da,dx,incx,dy,incy)
/*
constant times a vector plus a vector.
jack dongarra, linpack, 3/11/78.
@@ -685,7 +693,7 @@ int incx,incy,n;
}
/*----------------------*/
-dscal(n,da,dx,incx)
+void dscal(n,da,dx,incx)
/* scales a vector by a constant.
jack dongarra, linpack, 3/11/78.
@@ -826,7 +834,7 @@ REAL x;
}
/*----------------------*/
-dmxpy (n1, y, n2, ldm, x, m)
+void dmxpy (n1, y, n2, ldm, x, m)
REAL y[], x[], m[];
int n1, n2, ldm;
--
1.9.1
_______________________________________________
meta-arago mailing list
meta-arago@arago-project.org
http://arago-project.org/cgi-bin/mailman/listinfo/meta-arago
