PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/difrac/keyget.f
+++ b/difrac/keyget.f
@@ -0,0 +1,28 @@
+C-----------------------------------------------------------------------
+C  Function KEYSIN -- MS Fortran specific
+C-----------------------------------------------------------------------
+      INTEGER FUNCTION KEYSIN (STRING)
+      CHARACTER  STRING*(*)
+C-----------------------------------------------------------------------
+C   Do some housekeeping
+C-----------------------------------------------------------------------
+      MAX = LEN(STRING)
+      STRING = ' '
+      INDEX = 0
+C-----------------------------------------------------------------------
+C   Loop until we get nothing back
+C-----------------------------------------------------------------------
+10    IC = KEYIN ()
+      IF (IC .NE. 0) THEN
+	INDEX = INDEX + 1
+	STRING(INDEX:INDEX) = CHAR(IC)
+	IF (INDEX .GE. MAX) THEN
+	  KEYSIN = MAX
+	  RETURN
+	ENDIF
+	GO TO 10
+      ENDIF
+      KEYSIN = INDEX
+      RETURN
+      END
+