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

@@ -474,7 +474,7 @@ C-----------------------------------------------------------------------
       SUBROUTINE ALEDIT (NTOT)
       INCLUDE 'COMDIF'
       DIMENSION NDEL(100)
-      CHARACTER IOPT*1
+      CHARACTER IOPT*1,LINE*80
 C-----------------------------------------------------------------------
 C  Read in the existing list of h,k,l values and write it to terminal
 C-----------------------------------------------------------------------
@@ -504,7 +504,8 @@ C-----------------------------------------------------------------------
 C  Get the edit option IOPT
 C-----------------------------------------------------------------------
       WRITE (COUT,13000)
-      CALL ALFNUM (IOPT)
+      CALL ALFNUM (LINE)
+      IOPT = LINE(1:1)
       IF (IOPT .EQ. ' ') IOPT = 'U'
 C-----------------------------------------------------------------------
 C  Option E. Exit from AL with 0 reflns
@@ -519,7 +520,8 @@ C-----------------------------------------------------------------------
       IF (IOPT .EQ. 'U') THEN
         ITRUE = 0
         WRITE (COUT,14100)
-        CALL YESNO ('N',ANS)
+        CALL YESNO ('N',LINE)
+        ANS = LINE(1:1)
         IF (ANS .EQ. 'Y') ITRUE = 1
         RETURN
       ENDIF
@@ -530,7 +532,8 @@ C-----------------------------------------------------------------------
         IF (IOPT .EQ. 'N') NTOT = 0
         ISYMOR = 0
         WRITE (COUT,14000)
-        CALL YESNO ('Y',ANS)
+        CALL YESNO ('Y',LINE)
+        ANS = LINE(1:1)
         IF (ANS .EQ. 'Y') THEN
           ISYMOR = 1
           IOUT = -1