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

@@ -8,6 +8,7 @@ C-----------------------------------------------------------------------
       SUBROUTINE RCPCOR
       INCLUDE 'COMDIF'
       DIMENSION RM1(3,3),XA(3),HA(3)
+      CHARACTER STRING*80
       IF (KI .EQ. 'AH') THEN
         WRITE (COUT,10000)
         CALL GWRITE (ITP,' ')
@@ -58,7 +59,8 @@ C  Index faces for ABSORP when they are set so that the face normal is
 C  in the equator plane and normal to the microscope viewing direction
 C  at the Kappa angles -45, 78, kappa (-60 start), phi (0 start)
 C-----------------------------------------------------------------------
-      SUBROUTINE FACEIN 
+      SUBROUTINE FACEIN
+      CHARACTER STRING*80 
       INCLUDE 'COMDIF'
       DATA ISENSE/-1/
       NATT = 0
@@ -79,7 +81,8 @@ C-----------------------------------------------------------------------
 C  Get the adjusted angles and transform them
 C-----------------------------------------------------------------------
   100 WRITE (COUT,11000)
-      CALL ALFNUM (ANS)
+      CALL ALFNUM (STRING)
+      ANS = STRING(1:1)
 C      write (cout,99990)
 C99990 format (' Type omk, kap, phk for face ',$)
 C      call freefm (itr)