cleaning (links and backup files)
[unres.git] / 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