PSI sics-cvs-psi_pre-ansto

difrac/angval.f

@@ -0,0 +1,20 @@
+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