- Minor fixes

This commit is contained in:
koennecke
2007-08-03 15:12:23 +00:00
parent 3cf163f7f2
commit 2ffaa4828a
2 changed files with 9 additions and 13 deletions

View File

@@ -749,25 +749,15 @@
fAxis[i] = (float)i;
}
iStat = CalculateFitFromData(self->pFitter,fAxis,lSum,iTime);
if(iStat != 1)
{
SCWrite(pCon,"WARNING: problem locating elastic peak",eWarning);
}
GetFitResults(self->pFitter,&fCenter,&fStdDev,&fFWHM,&fVal);
fVal = fCenter - self->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.)
{
self->fElastic = fCenter;
}
}
free(lSum);
free(fAxis);
}