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

@@ -5,7 +5,7 @@ C-----------------------------------------------------------------------
       INCLUDE 'COMDIF'
       DIMENSION A(3),ALP(3),SYS(7),TRANS(3,3,7),AA(3,3),PRIM(3),
      $          ANPRIM(3),TRANSF(3,3),H(3,3)
-      CHARACTER CATMOD*1,SYS*1
+      CHARACTER CATMOD*1,SYS*1,LINE*80
       DATA SYS/'P','A','B','C','I','F','R'/
       DATA TRANS/ 1, 0, 0,   0, 1, 0,   0, 0, 1,   1, 0, 0,   0,.5,.5,
      $            0, 0, 1,  .5, 0,.5,   0, 1, 0,   0, 0, 1,  .5,.5, 0,
@@ -20,7 +20,8 @@ C-----------------------------------------------------------------------
         ALP(I) = RADEG*ATAN2(SANG(I),CANG(I))
   100 CONTINUE
   110 WRITE (COUT,10000)
-      CALL ALFNUM (CATMOD)
+      CALL ALFNUM (LINE)
+      CATMOD = LINE(1:1)
       IF (CATMOD .EQ. ' ') CATMOD = 'P'
       READ (CATMOD,11000) ATMOD
       WRITE (COUT,12000) A,ALP,CATMOD