Revert "simplex wip: compiles"

[moebius3.git] / findcurve.c

diff --git a/findcurve.c b/findcurve.c
index 1dd094108a4ff20544e9911748fbe88767848c4a..055018f3bfb6abf87e5dba0aabbcf8dcb59dc906 100644 (file)
--- a/findcurve.c
+++ b/findcurve.c
@@ -26,16 +26,14 @@ static int NP;
 static double *INPUT; /* dyanmic array, on main's stack */
 static double PREP[NPREP];
 
-#define X(xi) gsl_vector_get(xg, (xi))
-
-static void printcore(gsl_vector *xg) {
+static void printcore(const double *X) {
   int i, j;
   DECLARE_F_G;
   CALCULATE_F_G;
   printf("[");
   for (i=0; i<NP; i++)
     for (j=0; j<3; j++)
-      printf(" %25.18g,", POINT(i,j));
+      printf(" %25.18g,", POINT(i)[j]);
   printf(" ]\n");
 }
 
@@ -46,7 +44,8 @@ static void prepare(double X[] /* startpoint */) {
 
 //#define DEBUG
 
-static double cb_f(const gsl_vector *xg, void *params) {
+static double cb_Efunc(void *xp) {
+  const double *X = xp;
   int P;
   DECLARE_F_G;
   CALCULATE_F_G;