21 lines
1014 B
Fortran
21 lines
1014 B
Fortran
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
|