- 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/profil.f

@@ -257,9 +257,6 @@ C-----------------------------------------------------------------------
         DO 220 I = 1,ILOW-1
           B1 = B1 + ACOUNT(I)
   220   CONTINUE
-C---mk
-      B1 = B1/ILOW
-C---      
       ENDIF
       FRAC1 = (FRAC*NP + ILOW - 1)/NPK
       PEAK = 0.0
@@ -271,12 +268,9 @@ C---
         DO 230 I = IHIGH+1,NP
           B2 = B2 + ACOUNT(I)
   230   CONTINUE
-      IDIV = NP - IHIGH
-      IF(IDIV .LE. 0)IDIV =1
-      B2 = B2/IDIV
       ENDIF
       FRAC2 = (FRAC*NP + NP - IHIGH)/NPK
-      BTOT = 0.5*(B1/FRAC1 + B2/FRAC2)*NP
+      BTOT = 0.5*(B1/FRAC1 + B2/FRAC2)
       TOP1 = PEAK - BTOT
       BOT1 = SQRT(PEAK + 0.25*(B1/(FRAC1*FRAC1) + B2/(FRAC2*FRAC2)))
       FRAC1 = 0.5*(FRAC1 + FRAC2)
@@ -306,7 +300,9 @@ C-----------------------------------------------------------------------
         CALL GWRITE (ITP,' ')
       ENDIF
   240 CALL RSW(9,JSW)
-      IF (JSW .NE. 0 .and. istan .ne. 0) CALL PRFWRT (NP)
+C------- always write profile at TRICS!
+C      IF (JSW .NE. 0 .and. istan .ne. 0) CALL PRFWRT (NP)
+      CALL PRFWRT (NP)
 C-----------------------------------------------------------------------
 C  Prepare the profile for display on the c.r.t. if wanted
 C  Code below here is not needed for profile analysis