linse/sicspsi
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

M.Z.

Browse Source
This commit is contained in:
cvs
2004-06-15 06:26:18 +00:00
parent 961a0227a3
commit 2a49eb287c
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tecsdriv.c
View File

@ -114,8 +114,11 @@
self->fTarget = atof(result);
iRet=CocGet(pMe->pData,"tlimit",result); /* get parameter */
if (iRet<0) goto Error;
fVal = atof(result);
iRet = EVCSetPar(self, "upperlimit", fVal,pCon);
iRet = EVCGetPar(self, "upperlimit", &fVal);
if (abs(fVal - atof(result)) > 1.0e-4 * abs(fVal)) {
fVal = atof(result);
iRet = EVCSetPar(self, "upperlimit", fVal,pCon);
}
iRet = EVControlWrapper(pCon,pSics,pData,argc,argv);
if (iRet != 0) {
iRet=CocGet(pMe->pData,"status",result); /* show status */