- Fixed a bug which caused the SICServer to die when a socket was broken.

- Fixed many things in DIFRAC subsystem:
  * Recoded tcentr.f etc so that the course centering will work and will not
    go into an endless loop.
  * fixed boundary overwrites which occurred when yesno or alfnum where
    uset to get a single character and several were given.
  * Addeded documentation for DIFRAC
- Added tcl-files which  support the WWW status system

difrac/profil.f

@@ -183,8 +183,10 @@ C  The profile is suitable for analysis to find the limits
 C  J1 is the beginning of the low angle search
 C  J2 is the beginning of the high angle search
 C-----------------------------------------------------------------------
-      J1 = MAXI - STEPOF*CON*AS - A2*ID12
-      J2 = MAXI + STEPOF*CON*CS + A1*ID12
+C      J1 = MAXI - STEPOF*CON*AS - A2*ID12
+C      J2 = MAXI + STEPOF*CON*CS + A1*ID12
+      J1 = MAXI - ((STEPOF*AS)/STEP) - A2*ID12
+      J2 = MAXI + ((STEPOF*CS)/STEP) + A1*ID12
       IF (J1 .LE. NWIND .OR. J2 .GE. NP-NWIND) THEN
         ILOW = 1
         IHIGH = NP
@@ -255,6 +257,9 @@ 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
@@ -266,9 +271,12 @@ 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)
+      BTOT = 0.5*(B1/FRAC1 + B2/FRAC2)*NP
       TOP1 = PEAK - BTOT
       BOT1 = SQRT(PEAK + 0.25*(B1/(FRAC1*FRAC1) + B2/(FRAC2*FRAC2)))
       FRAC1 = 0.5*(FRAC1 + FRAC2)