From 3ca88c4e7f597d10e8d995a2268dbdc948ff1b7b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jean-Luc=20Peuri=C3=A8re?= <jlp@nerim.net>
Date: Mon, 14 Mar 2005 20:10:22 +0000
Subject: ome more warnings cleaning

---
 intern/opennl/superlu/mmd.c           | 7 +++++++
 intern/opennl/superlu/sgstrs.c        | 2 +-
 intern/opennl/superlu/smyblas2.c      | 7 +++++++
 intern/opennl/superlu/strsv.c         | 2 ++
 intern/opennl/superlu/superlu_timer.c | 3 ++-
 5 files changed, 19 insertions(+), 2 deletions(-)

(limited to 'intern')

diff --git a/intern/opennl/superlu/mmd.c b/intern/opennl/superlu/mmd.c
index cc45aea7b41..e103c7de175 100644
--- a/intern/opennl/superlu/mmd.c
+++ b/intern/opennl/superlu/mmd.c
@@ -5,6 +5,13 @@ typedef int shortint;
 /* prototypes -------------------- */
 int  genmmd_(int *, int *, int *, int *, int *, int *, int *, 
 					int *, int *, int *, int *, int *);
+int mmdint_(int *, int *, shortint *, shortint *, shortint *, shortint *, shortint *, 
+			shortint *, shortint *);
+int mmdelm_(int *, int *, shortint *, shortint *, shortint *, shortint *, shortint *, 
+			shortint *, shortint *, int *, int *);
+int mmdupd_(int *, int *, int *, shortint *, int *, int *, shortint *, 
+			shortint *, shortint *, shortint *, shortint *, shortint *, int *, int *);
+int mmdnum_(int *, shortint *, shortint *, shortint *);
 
 
 /* *************************************************************** */
diff --git a/intern/opennl/superlu/sgstrs.c b/intern/opennl/superlu/sgstrs.c
index 5f7b9b57195..b83545f8ce6 100644
--- a/intern/opennl/superlu/sgstrs.c
+++ b/intern/opennl/superlu/sgstrs.c
@@ -28,7 +28,7 @@
 void susolve(int, int, float*, float*);
 void slsolve(int, int, float*, float*);
 void smatvec(int, int, int, float*, float*, float*);
-
+void sprint_soln(int , float *);
 
 void
 sgstrs (trans_t trans, SuperMatrix *L, SuperMatrix *U,
diff --git a/intern/opennl/superlu/smyblas2.c b/intern/opennl/superlu/smyblas2.c
index 729e17f7674..cb2d5cb65af 100644
--- a/intern/opennl/superlu/smyblas2.c
+++ b/intern/opennl/superlu/smyblas2.c
@@ -20,6 +20,13 @@
  * triangular matrix is stored in a 2D array M(1:nrow,1:ncol). 
  * The solution will be returned in the rhs vector.
  */
+
+/* local prototypes*/
+void slsolve ( int, int, float *, float *);
+void susolve ( int, int, float *, float *);
+void smatvec ( int, int, int, float *, float *, float *);
+
+
 void slsolve ( int ldm, int ncol, float *M, float *rhs )
 {
     int k;
diff --git a/intern/opennl/superlu/strsv.c b/intern/opennl/superlu/strsv.c
index 2f6a92c0d0d..415f96f5f74 100644
--- a/intern/opennl/superlu/strsv.c
+++ b/intern/opennl/superlu/strsv.c
@@ -1,3 +1,5 @@
+int strsv_(char *, char *, char *, int *, float *, int *, float *, int *);
+
 
 /* Subroutine */ int strsv_(char *uplo, char *trans, char *diag, int *n, 
 	float *a, int *lda, float *x, int *incx)
diff --git a/intern/opennl/superlu/superlu_timer.c b/intern/opennl/superlu/superlu_timer.c
index 4f68f3a7f1a..f9e130c8c5a 100644
--- a/intern/opennl/superlu/superlu_timer.c
+++ b/intern/opennl/superlu/superlu_timer.c
@@ -36,8 +36,9 @@ double SuperLU_timer_() {
 #ifndef CLK_TCK
 #define CLK_TCK 60
 #endif
+double SuperLU_timer_(void);
 
-double SuperLU_timer_()
+double SuperLU_timer_(void)
 {
 #ifdef NO_TIMER
     /* no sys/times.h on WIN32 */
-- 
cgit v1.2.3