Adasko's dir

[unres.git] / source / cluster / wham / src-NEWSC / noyes.f

diff --git a/source/cluster/wham/src-NEWSC/noyes.f b/source/cluster/wham/src-NEWSC/noyes.f
new file mode 100644 (file)
index 0000000..4cf326c
--- /dev/null
+++ b/source/cluster/wham/src-NEWSC/noyes.f
@@ -0,0 +1,16 @@
+      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
+