source/cluster/wham/src-M/noyes.f

   1       LOGICAL FUNCTION NOYES()
   2       CHARACTER*1 ANSWER
   3   101 READ (*,'(A1)') ANSWER
   4       IF ( (ANSWER.EQ.'y') .OR. (ANSWER.EQ.'Y') ) THEN
   5         NOYES=.TRUE.
   6         RETURN
   7       ELSE IF ( (ANSWER.EQ.'n') .OR. (ANSWER.EQ.'N') ) THEN
   8         NOYES=.FALSE.
   9         RETURN
  10       ELSE
  11 *       PRINT *,CHAR(7)
  12        PRINT *,'Incorrect keyword. Enter Y or N - '
  13         GOTO 101
  14       ENDIF
  15       END
  16