LOGICAL FUNCTION NOYES()
      CHARACTER*1 ANSWER
  101 READ (*,'(A1)') ANSWER
      IF ( (ANSWER.EQ.'y') .OR. (ANSWER.EQ.'Y') ) THEN
        NOYES=.TRUE.
	RETURN
      ELSE IF ( (ANSWER.EQ.'n') .OR. (ANSWER.EQ.'N') ) THEN
        NOYES=.FALSE.
	RETURN
      ELSE
*       PRINT *,CHAR(7)
       PRINT *,'Incorrect keyword. Enter Y or N - '
        GOTO 101
      ENDIF 
      END