https://github.com/janverschelde/PHCpack
Tip revision: 1b7c69d37cd919359b5166b1c97d94c065360905 authored by Jan Verschelde on 17 November 2021, 01:50:30 UTC
loaded multipliers for the normalization of complex vectors in octo double precision into local variables
loaded multipliers for the normalization of complex vectors in octo double precision into local variables
Tip revision: 1b7c69d
series.c
/* The file series.c contains the definitions of the functions with
* prototypes documented in series.h. */
#include <stdio.h>
#include "series.h"
int standard_Newton_series ( int idx, int maxdeg, int nbr, int verbose )
{
int fail = 0;
int idxnbr[3];
double *c;
/* printf("idx = %d, nbr = %d, verbose = %d\n",idx,nbr,verbose); */
idxnbr[0] = idx;
idxnbr[1] = maxdeg;
idxnbr[2] = nbr;
fail = _ada_use_c2phc4c(691,idxnbr,&verbose,c,0);
return fail;
}
int dobldobl_Newton_series ( int idx, int maxdeg, int nbr, int verbose )
{
int fail = 0;
int idxnbr[3];
double *c;
idxnbr[0] = idx;
idxnbr[1] = maxdeg;
idxnbr[2] = nbr;
fail = _ada_use_c2phc4c(692,idxnbr,&verbose,c,0);
return fail;
}
int quaddobl_Newton_series ( int idx, int maxdeg, int nbr, int verbose )
{
int fail = 0;
int idxnbr[3];
double *c;
idxnbr[0] = idx;
idxnbr[1] = maxdeg;
idxnbr[2] = nbr;
fail = _ada_use_c2phc4c(693,idxnbr,&verbose,c,0);
return fail;
}
int standard_Newton_power_series ( int idx, int maxdeg, int nbr, int verbose )
{
int fail = 0;
int idxnbr[3];
double *c;
/* printf("idx = %d, nbr = %d, verbose = %d\n",idx,nbr,verbose); */
idxnbr[0] = idx;
idxnbr[1] = maxdeg;
idxnbr[2] = nbr;
fail = _ada_use_c2phc4c(694,idxnbr,&verbose,c,0);
return fail;
}
int dobldobl_Newton_power_series ( int idx, int maxdeg, int nbr, int verbose )
{
int fail = 0;
int idxnbr[3];
double *c;
idxnbr[0] = idx;
idxnbr[1] = maxdeg;
idxnbr[2] = nbr;
fail = _ada_use_c2phc4c(695,idxnbr,&verbose,c,0);
return fail;
}
int quaddobl_Newton_power_series ( int idx, int maxdeg, int nbr, int verbose )
{
int fail = 0;
int idxnbr[3];
double *c;
idxnbr[0] = idx;
idxnbr[1] = maxdeg;
idxnbr[2] = nbr;
fail = _ada_use_c2phc4c(696,idxnbr,&verbose,c,0);
return fail;
}
int standard_Pade_approximant
( int idx, int numdeg, int dendeg, int nbr, int verbose )
{
int fail = 0;
int pars[4];
double *c;
pars[0] = idx;
pars[1] = numdeg;
pars[2] = dendeg;
pars[3] = nbr;
fail = _ada_use_c2phc4c(704,pars,&verbose,c,0);
return fail;
}
int dobldobl_Pade_approximant
( int idx, int numdeg, int dendeg, int nbr, int verbose )
{
int fail = 0;
int pars[4];
double *c;
pars[0] = idx;
pars[1] = numdeg;
pars[2] = dendeg;
pars[3] = nbr;
fail = _ada_use_c2phc4c(705,pars,&verbose,c,0);
return fail;
}
int quaddobl_Pade_approximant
( int idx, int numdeg, int dendeg, int nbr, int verbose )
{
int fail = 0;
int pars[4];
double *c;
pars[0] = idx;
pars[1] = numdeg;
pars[2] = dendeg;
pars[3] = nbr;
fail = _ada_use_c2phc4c(706,pars,&verbose,c,0);
return fail;
}