- Added forceclear to scancom

2000-04-07 08:39:25 +00:00
parent cd04929deb
commit 9c9a2d45a5
4 changed files with 11 additions and 5 deletions
--- a/hkl.c
+++ b/hkl.c
@ -817,7 +817,7 @@
     }
     
     /* loop till success */
-     for(i = 0, myPsi = 0.; i < iRetry; i++, myPsi += 10.); 
+     for(i = 0, myPsi = fPsi; i < iRetry; i++, myPsi += 10.)
     {
       /* just try it*/
       iRet = ICAL(self,fHKL, myPsi, iHamil, self->iQuad,fSet,fDelom);
@ -876,6 +876,8 @@
       iTest += MotorCheckBoundary(self->pPhi,fSet[4], &fHard,pError,131);
       if(iTest == 3) /* none of them burns */
       {
+           sprintf(pBueffel,"Solution found at psi = %4.1f",myPsi);
+           SCWrite(pCon,pBueffel,eWarning);
           return 1;
       }
     }