- First implementation of Hdbqueue
- First implementation of new object model for SICS
This commit is contained in:
12
fomerge.c
12
fomerge.c
@ -647,22 +647,12 @@ static int putElastic(SicsInterp *pSics, SConnection *pCon,
|
||||
}
|
||||
status = CalculateFitFromData(fitter,(float *)fTimeBin,lSum,iTime);
|
||||
free(lSum);
|
||||
if(status != 1)
|
||||
{
|
||||
SCWrite(pCon,"WARNING: problem locating elastic peak",eWarning);
|
||||
}
|
||||
GetFitResults(fitter,&fCenter,&fStdDev,&fFWHM,&fVal);
|
||||
fVal = fCenter - fElastic;
|
||||
if(fVal < 0.)
|
||||
fVal = - fVal;
|
||||
/* bad value, leave at theoretical value */
|
||||
if(fVal > 10.)
|
||||
{
|
||||
SCWrite(pCon,
|
||||
"WARNING: bad fit result, using theoretical elastic peak position",
|
||||
eWarning);
|
||||
}
|
||||
else
|
||||
if(fVal < 10.)
|
||||
{
|
||||
fElastic = fCenter;
|
||||
}
|
||||
|
Reference in New Issue
Block a user