Welcome to mirror list, hosted at ThFree Co, Russian Federation.

git.blender.org/blender.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
path: root/intern
diff options
context:
space:
mode:
authorJean-Luc Peurière <jlp@nerim.net>2005-03-14 23:10:22 +0300
committerJean-Luc Peurière <jlp@nerim.net>2005-03-14 23:10:22 +0300
commit3ca88c4e7f597d10e8d995a2268dbdc948ff1b7b (patch)
tree498c58befbbc2a9720cdd58d1510098d29f12cc0 /intern
parent7e2e2b2370b8e01e91f4c904f89760447a00e184 (diff)
ome more warnings cleaning
Diffstat (limited to 'intern')
-rw-r--r--intern/opennl/superlu/mmd.c7
-rw-r--r--intern/opennl/superlu/sgstrs.c2
-rw-r--r--intern/opennl/superlu/smyblas2.c7
-rw-r--r--intern/opennl/superlu/strsv.c2
-rw-r--r--intern/opennl/superlu/superlu_timer.c3
5 files changed, 19 insertions, 2 deletions
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 */