next_track.c
/* The file next_track.c defines the functions of next_track.h. */
#include <stdlib.h>
#include <stdio.h>
#include "next_track.h"
int initialize_standard_homotopy
( int fixed_gamma, double regamma, double imgamma )
{
int fail,*b;
double c[2];
c[0] = regamma;
c[1] = imgamma;
fail = _ada_use_c2phc4c(500,&fixed_gamma,b,c);
return fail;
}
int initialize_dobldobl_homotopy
( int fixed_gamma, double regamma, double imgamma )
{
int fail,*b;
double c[2];
c[0] = regamma;
c[1] = imgamma;
fail = _ada_use_c2phc4c(501,&fixed_gamma,b,c);
return fail;
}
int initialize_quaddobl_homotopy
( int fixed_gamma, double regamma, double imgamma )
{
int fail,*b;
double c[2];
c[0] = regamma;
c[1] = imgamma;
fail = _ada_use_c2phc4c(502,&fixed_gamma,b,c);
return fail;
}
int initialize_multprec_homotopy ( int fixed_gamma, int decimals )
{
int fail;
double *c;
fail = _ada_use_c2phc4c(512,&fixed_gamma,&decimals,c);
return fail;
}
int initialize_varbprec_homotopy
( int fixed_gamma, int nc_target, char *target, int nc_start, char *start )
{
int fail,i;
const int len = nc_target + nc_start;
int b[len];
int a[3];
double *c;
a[0] = fixed_gamma;
a[1] = len;
a[2] = nc_target;
for(i=0; i<nc_target; i++) b[i] = (int) target[i];
for(i=0; i<nc_start; i++) b[nc_target+i] = (int) start[i];
fail = _ada_use_c2phc4c(516,a,b,c);
return fail;
}
int initialize_standard_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(503,&k,b,c);
return fail;
}
int initialize_dobldobl_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(504,&k,b,c);
return fail;
}
int initialize_quaddobl_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(505,&k,b,c);
return fail;
}
int initialize_multprec_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(513,&k,b,c);
return fail;
}
int initialize_varbprec_solution ( int nv, int nc, char *sol )
{
int fail,i;
int a[2];
int b[nc];
double *c;
a[0] = nc;
a[1] = nv;
for(i=0; i<nc; i++) b[i] = (int) sol[i];
fail = _ada_use_c2phc4c(517,a,b,c);
return fail;
}
int next_standard_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(506,&k,b,c);
return fail;
}
int next_dobldobl_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(507,&k,b,c);
return fail;
}
int next_quaddobl_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(508,&k,b,c);
return fail;
}
int next_multprec_solution ( int k )
{
int fail,*b;
double *c;
fail = _ada_use_c2phc4c(514,&k,b,c);
return fail;
}
char *next_varbprec_solution
( int want, int maxprc, int maxitr, int verbose, int *nc, int *fail )
{
int a[4],len;
double *c;
char *sol;
a[0] = want;
a[1] = maxprc;
a[2] = maxitr;
a[3] = verbose;
*fail = _ada_use_c2phc4c(518,a,&len,c);
{
int i,b[len];
*fail = _ada_use_c2phc4c(520,a,b,c);
if(len != a[0])
*fail = 518;
else
{
sol = (char*) calloc(len,sizeof(char));
for(i=0; i<a[0]; i++) sol[i] = ' ';
for(i=0; i<a[0]; i++) sol[i] = (char) b[i];
for(i=0; i<a[0]; i++) printf("%c",sol[i]);
}
}
return sol;
}
int clear_standard_tracker ( void )
{
int fail,*a,*b;
double *c;
fail = _ada_use_c2phc4c(509,a,b,c);
return fail;
}
int clear_dobldobl_tracker ( void )
{
int fail,*a,*b;
double *c;
fail = _ada_use_c2phc4c(510,a,b,c);
return fail;
}
int clear_quaddobl_tracker ( void )
{
int fail,*a,*b;
double *c;
fail = _ada_use_c2phc4c(511,a,b,c);
return fail;
}
int clear_multprec_tracker ( void )
{
int fail,*a,*b;
double *c;
fail = _ada_use_c2phc4c(515,a,b,c);
return fail;
}
int clear_varbprec_tracker ( void )
{
int fail,*a,*b;
double *c;
fail = _ada_use_c2phc4c(519,a,b,c);
return fail;
}