18 const double WLAL = 1215.6845;
30 const long VERSION_MAGIC = 20070717L;
31 const static char chFile[] =
"fe2ovr_la.dat";
38 lgErr = lgErr || ( fscanf( io,
"%ld", &i ) != 1 );
39 if( lgErr || i != VERSION_MAGIC )
41 fprintf(
ioQQQ,
" File %s has incorrect version: %ld\n", chFile, i );
42 fprintf(
ioQQQ,
" I expected to find version: %ld\n", VERSION_MAGIC );
47 for( i=0; i <
NFEII; i++ )
49 lgErr = lgErr || ( fscanf( io,
"%le", &help ) != 1 );
52 for( i=0; i <
NFEII; i++ )
54 lgErr = lgErr || ( fscanf( io,
"%le", &help ) != 1 );
57 for( i=0; i <
NFEII; i++ )
59 lgErr = lgErr || ( fscanf( io,
"%le", &help ) != 1 );
62 for( i=0; i <
NFEII; i++ )
64 lgErr = lgErr || ( fscanf( io,
"%le", &help ) != 1 );
67 for( i=0; i <
NFE2PR; i++ )
68 lgErr = lgErr || ( fscanf( io,
"%le", &
fe2pt[i] ) != 1 );
69 for( i=0; i <
NFE2PR; i++ )
70 lgErr = lgErr || ( fscanf( io,
"%le", &
fe2pf[i] ) != 1 );
82 for(
int i=0; i <
NFEII; i++ )
95 for(
int i=0; i <
NFEII; i++ )
105 for(
int i=0; i <
NFEII; i++ )
118 static long int nZoneEval;
126 static double BigFeWidth,
159 for( i=0; i <
NFEII; i++ )
182 for( i=0; i <
NFEII; i++ )
190 weight = ( displa <= 0.66666 ) ? 1. :
MAX2(0.,1.-(displa-0.666666)/0.66666);
208 (1. - 1./(1. + 1.6*
Fe2TauLte[i]))*weight;
240 double du = slope*(te -
fe2pt[i]);
241 fe2par_v =
fe2pf[i] + du;