- Improved centering in DIFRAC

- Fixed a bug in UserWait
- Improved scan message in scancom
- Added zero point correction in lin2ang
- fixed an issue with uuencoded messages

difrac/indmes.f

@@ -387,7 +387,7 @@ C-----------------------------------------------------------------------
       ATT = ATTEN(NATT+1)
       IF (IPRFLG .EQ. 0) THEN
         if(FRAC1 .GT. 0.01) THEN
-           PEAK = ATT*(SUM - 0.5*(BGRD1 + BGRD2)/FRAC1)
+           PEAK = ATT*(SUM - (0.5*(BGRD1 + BGRD2)/FRAC1)*NPK)
         ELSE
            PEAK = 0.
         END IF