C-----------------------------------------------------------------------
C  This subroutine initializes the diffractometer angles.  It is assumed
C  that the encoders only show the fractional part of each angle and
C  therefore the integer part must be fixed.  This is done by reading 
C  the encoders and if the fractional parts have not changed since they
C  were written to the file when the routine was stopped, it is assumed 
C  that the integer parts are OK. If not the integer parts are read 
C  from the terminal
C-----------------------------------------------------------------------
      SUBROUTINE ANGVAL
      INCLUDE 'COMDIF'
C-----------------------------------------------------------------------
C  Find out if there is a diffractometer attached (debug purposes)
C-----------------------------------------------------------------------
C     WRITE (ITP,10000)
C     CALL YESNO ('Y',ANS)
      CALL INTON
      RETURN
10000 FORMAT (' Is there a diffractometer on the computer (Y) ? ',$)
      END
