Skip to content
Snippets Groups Projects
Commit 9946c6a6 authored by nadolski's avatar nadolski
Browse files

LNLS New format

parent 5cb9c194
Branches
Tags
No related merge requests found
Show whitespace changes
Inline Side-by-side
tracy/tracy/src/tracy.cc
+ 73
− 88
View file @ 9946c6a6
......@@ -34,7 +34,6 @@
#include "pascalio.cc"
#include "lsoc.cc" //for COD correction
#include "prtmfile.cc"
#include "rdmfile.cc"
......@@ -70,35 +69,32 @@ template class ss_vect<double>;
template class ss_vect<tps> ;
template void GtoL(ss_vect<double> &, Vector2 &, Vector2 &, const double,
const double, const double);
template void GtoL(ss_vect<double> &, Vector2 &, Vector2 &,
const double, const double, const double);
template void GtoL(ss_vect<tps> &, Vector2 &, Vector2 &,
const double, const double, const double);
template void GtoL(ss_vect<tps> &, Vector2 &, Vector2 &, const double,
const double, const double);
template void LtoG(ss_vect<tps> &, Vector2 &, Vector2 &,
double, double, double);
template void
LtoG(ss_vect<tps> &, Vector2 &, Vector2 &, double, double, double);
template void LtoG(ss_vect<double> &, Vector2 &, Vector2 &,
double, double, double);
template void LtoG(ss_vect<double> &, Vector2 &, Vector2 &, double, double,
double);
template void p_rot(double, ss_vect<double> &);
template void p_rot(double, ss_vect<tps> &);
template void get_B2(const double, const double[], const ss_vect<double> &,
double &, double &);
template void get_B2(const double, const tps [], const ss_vect<tps> &,
tps &, tps &);
template void get_B2(const double, const tps[], const ss_vect<tps> &, tps &,
tps &);
template void radiate(ss_vect<double> &, const double, const double,
const double[]);
template void radiate(ss_vect<tps> &, const double, const double,
const tps []);
template void radiate(ss_vect<tps> &, const double, const double, const tps[]);
template void Drift(double, ss_vect<double> &);
......@@ -116,7 +112,6 @@ template void quad_fringe(double, ss_vect<double> &);
template void quad_fringe(double, ss_vect<tps> &);
template void Drift_Pass(CellType &, ss_vect<double> &);
template void Drift_Pass(CellType &, ss_vect<tps> &);
......@@ -124,8 +119,7 @@ template void Drift_Pass(CellType &, ss_vect<tps> &);
template void thin_kick(int, double[], double, double, double,
ss_vect<double> &);
template void thin_kick(int, double [], double, double, double,
ss_vect<tps> &);
template void thin_kick(int, double[], double, double, double, ss_vect<tps> &);
template void Mpole_Pass(CellType &, ss_vect<double> &);
......@@ -143,15 +137,11 @@ template void Wiggler_pass_EF(const elemtype &elem, ss_vect<double> &x);
template void Wiggler_pass_EF(const elemtype &elem, ss_vect<tps> &x);
template void Wiggler_pass_EF2(int nstep, double L,
double kxV, double kxH, double kz,
double BoBrhoV, double BoBrhoH, double phi,
ss_vect<double> &x);
template void Wiggler_pass_EF2(int nstep, double L, double kxV, double kxH,
double kz, double BoBrhoV, double BoBrhoH, double phi, ss_vect<double> &x);
template void Wiggler_pass_EF2(int nstep, double L,
double kxV, double kxH, double kz,
double BoBrhoV, double BoBrhoH, double phi,
ss_vect<tps> &x);
template void Wiggler_pass_EF2(int nstep, double L, double kxV, double kxH,
double kz, double BoBrhoV, double BoBrhoH, double phi, ss_vect<tps> &x);
template void Wiggler_pass_EF3(const elemtype &elem, ss_vect<double> &x);
......@@ -176,53 +166,48 @@ template void Solenoid_Pass(CellType &, ss_vect<tps> &);
template void LinearInterpolation2(double &, double &, double &, double &,
CellType &, bool &, int);
template void LinearInterpolation2(tps &, tps &, tps &, tps &,
CellType &, bool &, int);
template void LinearInterpolation2(tps &, tps &, tps &, tps &, CellType &,
bool &, int);
template void SplineInterpolation2(double &, double &, double &, double &,
CellType &, bool &, int);
template void SplineInterpolation2(tps &, tps &, tps &, tps &,
CellType &, bool &, int);
template void SplineInterpolation2(tps &, tps &, tps &, tps &, CellType &,
bool &, int);
template void spline(const double [], const double [], int const,
double const, const double, double []);
template void spline(const double[], const double[], int const, double const,
const double, double[]);
template void spline(const double [], const tps [], int const,
double const, const double, tps []);
template void spline(const double[], const tps[], int const, double const,
const double, tps[]);
template void splint(const double[], const double [], const double [],
const int, const double &, double &);
template void splint(const double[], const double[], const double[], const int,
const double &, double &);
template void splint(const double[], const double [], const double [],
const int, const tps &, tps &);
template void splint(const double[], const double[], const double[], const int,
const tps &, tps &);
template void splint(const double[], const tps [], const tps [],
const int, const tps &, tps &);
template void splint(const double[], const tps[], const tps[], const int,
const tps &, tps &);
template void splin2(const double [], const double [],
double **, double **, const int, const int,
const double &, const double &, double &);
template void splin2(const double[], const double[], double **, double **,
const int, const int, const double &, const double &, double &);
template void splin2(const double [], const double [],
double **, double **, const int, const int,
const tps &, const tps &, tps &);
template void splin2(const double[], const double[], double **, double **,
const int, const int, const tps &, const tps &, tps &);
template void Insertion_Pass(CellType &, ss_vect<double> &);
template void Insertion_Pass(CellType &, ss_vect<tps> &);
template void Elem_Pass(const long, ss_vect<double> &);
template void Elem_Pass(const long, ss_vect<tps> &);
template void Cell_Pass(const long, const long, ss_vect<double> &, long &);
template void Cell_Pass(const long, const long, ss_vect<tps> &, long &);
/* Global variable used through the code */
globvalrec globval;
......@@ -234,36 +219,36 @@ bool cellconcat;
long rseed0, rseed;
double normcut_;
double d_sign(double a, double b)
{
double d_sign(double a, double b) {
double x;
x = (a >= 0 ? a : -a);
return (b >= 0 ? x : -x);
}
int P_eof(FILE *f)
{
int P_eof(FILE *f) {
register int ch;
if (feof(f)) return 1;
if (f == stdin) return 0; /* not safe to look-ahead on the keyboard! */
if (feof(f))
return 1;
if (f == stdin)
return 0; /* not safe to look-ahead on the keyboard! */
ch = getc(f);
if (ch == EOF) return 1;
if (ch == EOF)
return 1;
ungetc(ch, f);
return 0;
}
/* Check if at end of line (or end of entire file). */
int P_eoln(FILE *f)
{
int P_eoln(FILE *f) {
register int ch;
ch = getc(f);
if (ch == EOF) return 1;
if (ch == EOF)
return 1;
ungetc(ch, f);
return (ch == '\n');
}
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

The place to be for your source code