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
diff options
context:
space:
mode:
authorJean-Luc Peurière <jlp@nerim.net>2005-03-09 22:45:59 +0300
committerJean-Luc Peurière <jlp@nerim.net>2005-03-09 22:45:59 +0300
commitc78e44cdc563853c250da78ee78ba622c39126b2 (patch)
treefb116af7e1edd94ef96ae883bea727be372e2bd2 /intern/opennl/superlu
parent77d44e88e95d86661fc8b29db923083ec747cf9d (diff)
big warning hunt commit
lot of casts, added prototypes, missing includes and some true errors
Diffstat (limited to 'intern/opennl/superlu')
-rw-r--r--intern/opennl/superlu/get_perm_c.c6
-rw-r--r--intern/opennl/superlu/lsame.c3
-rw-r--r--intern/opennl/superlu/memory.c4
-rw-r--r--intern/opennl/superlu/mmd.c6
-rw-r--r--intern/opennl/superlu/sp_preorder.c3
-rw-r--r--intern/opennl/superlu/ssp_defs.h3
-rw-r--r--intern/opennl/superlu/superlu_timer.c2
-rw-r--r--intern/opennl/superlu/sutil.c8
-rw-r--r--intern/opennl/superlu/util.c6
-rw-r--r--intern/opennl/superlu/xerbla.c1
10 files changed, 39 insertions, 3 deletions
diff --git a/intern/opennl/superlu/get_perm_c.c b/intern/opennl/superlu/get_perm_c.c
index 9cdf5a876bf..e255b4a76bd 100644
--- a/intern/opennl/superlu/get_perm_c.c
+++ b/intern/opennl/superlu/get_perm_c.c
@@ -12,7 +12,7 @@
extern int genmmd_(int *, int *, int *, int *, int *, int *, int *,
int *, int *, int *, int *, int *);
-void
+static void
get_colamd(
const int m, /* number of rows in matrix A. */
const int n, /* number of columns in matrix A. */
@@ -47,7 +47,7 @@ get_colamd(
SUPERLU_FREE(p);
}
-void
+static void
getata(
const int m, /* number of rows in matrix A. */
const int n, /* number of columns in matrix A. */
@@ -189,7 +189,7 @@ getata(
}
-void
+static void
at_plus_a(
const int n, /* number of columns in matrix A. */
const int nz, /* number of nonzeros in matrix A */
diff --git a/intern/opennl/superlu/lsame.c b/intern/opennl/superlu/lsame.c
index 29f27d38fa9..79fb4d428a5 100644
--- a/intern/opennl/superlu/lsame.c
+++ b/intern/opennl/superlu/lsame.c
@@ -1,3 +1,6 @@
+int lsame_(char *, char *);
+
+
int lsame_(char *ca, char *cb)
{
/* -- LAPACK auxiliary routine (version 2.0) --
diff --git a/intern/opennl/superlu/memory.c b/intern/opennl/superlu/memory.c
index 54d863ea9e9..279b60b5239 100644
--- a/intern/opennl/superlu/memory.c
+++ b/intern/opennl/superlu/memory.c
@@ -10,6 +10,10 @@
#include "ssp_defs.h"
+/* prototypes --------------------------------- */
+void copy_mem_int(int, void *, void *);
+void user_bcopy(char *, char *, int);
+
#if ( DEBUGlevel>=1 ) /* Debug malloc/free. */
int superlu_malloc_total = 0;
diff --git a/intern/opennl/superlu/mmd.c b/intern/opennl/superlu/mmd.c
index 05f26ce0995..cc45aea7b41 100644
--- a/intern/opennl/superlu/mmd.c
+++ b/intern/opennl/superlu/mmd.c
@@ -1,6 +1,12 @@
typedef int shortint;
+
+/* prototypes -------------------- */
+int genmmd_(int *, int *, int *, int *, int *, int *, int *,
+ int *, int *, int *, int *, int *);
+
+
/* *************************************************************** */
/* *************************************************************** */
/* **** GENMMD ..... MULTIPLE MINIMUM EXTERNAL DEGREE **** */
diff --git a/intern/opennl/superlu/sp_preorder.c b/intern/opennl/superlu/sp_preorder.c
index f82da2de1aa..c40ebc9a4f7 100644
--- a/intern/opennl/superlu/sp_preorder.c
+++ b/intern/opennl/superlu/sp_preorder.c
@@ -1,5 +1,8 @@
#include "ssp_defs.h"
+int check_perm(char *, int , int *);
+
+
void
sp_preorder(superlu_options_t *options, SuperMatrix *A, int *perm_c,
int *etree, SuperMatrix *AC)
diff --git a/intern/opennl/superlu/ssp_defs.h b/intern/opennl/superlu/ssp_defs.h
index 5b4e86b175b..61b324e74d8 100644
--- a/intern/opennl/superlu/ssp_defs.h
+++ b/intern/opennl/superlu/ssp_defs.h
@@ -225,7 +225,10 @@ extern void sPrint_SuperNode_Matrix(char *, SuperMatrix *);
extern void sPrint_Dense_Matrix(char *, SuperMatrix *);
extern void print_lu_col(char *, int, int, int *, GlobalLU_t *);
extern void check_tempv(int, float *);
+extern int print_int_vec(char *what, int n, int *vec);
+extern int sp_symetree(int *acolst, int *acolend, int *arow, int n, int *parent);
+
#ifdef __cplusplus
}
#endif
diff --git a/intern/opennl/superlu/superlu_timer.c b/intern/opennl/superlu/superlu_timer.c
index 798fd59d4ea..4f68f3a7f1a 100644
--- a/intern/opennl/superlu/superlu_timer.c
+++ b/intern/opennl/superlu/superlu_timer.c
@@ -11,6 +11,8 @@
/* We want this flag, safer than putting in build system */
#define NO_TIMER
+double SuperLU_timer_ ();
+
#ifdef SUN
/*
* It uses the system call gethrtime(3C), which is accurate to
diff --git a/intern/opennl/superlu/sutil.c b/intern/opennl/superlu/sutil.c
index 4689f34968a..78f0b8bc5cc 100644
--- a/intern/opennl/superlu/sutil.c
+++ b/intern/opennl/superlu/sutil.c
@@ -22,6 +22,14 @@
#include <math.h>
#include "ssp_defs.h"
+/* prototypes */
+void sprint_lu_col(char *msg, int jcol, int pivrow, int *xprune, GlobalLU_t *Glu);
+void scheck_tempv(int n, float *tempv);
+void sPrintPerf(SuperMatrix *, SuperMatrix *, mem_usage_t *,float , float ,
+ float *, float *, char *, SuperLUStat_t *);
+int print_float_vec(char *what, int n, float *vec);
+/* ********** */
+
void
sCreate_CompCol_Matrix(SuperMatrix *A, int m, int n, int nnz,
float *nzval, int *rowind, int *colptr,
diff --git a/intern/opennl/superlu/util.c b/intern/opennl/superlu/util.c
index 3c49d714d1c..824cabacee5 100644
--- a/intern/opennl/superlu/util.c
+++ b/intern/opennl/superlu/util.c
@@ -22,6 +22,12 @@
#include "ssp_defs.h"
#include "util.h"
+/* prototypes */
+flops_t LUFactFlops(SuperLUStat_t *stat);
+flops_t LUSolveFlops(SuperLUStat_t *stat);
+float SpaSize(int n, int np, float sum_npw);
+float DenseSize(int n, float sum_nw);
+
/*
* Global statistics variale
*/
diff --git a/intern/opennl/superlu/xerbla.c b/intern/opennl/superlu/xerbla.c
index cb94fa71d95..68cef9d84e4 100644
--- a/intern/opennl/superlu/xerbla.c
+++ b/intern/opennl/superlu/xerbla.c
@@ -1,5 +1,6 @@
#include <stdio.h>
+int xerbla_(char *, int *);
/* Subroutine */ int xerbla_(char *srname, int *info)
{