DEFINE (MAXCARD8,<MAXCARD/8+1>)
#$ GETIN - FAST READ OF A STRING FROM A SPECIFIED LUN
#
   INTEGER FUNCTION GETIN (LUN, RSTR, CSTR)
#
   CHARACTER CSTR(MAXLINE)
   INTEGER LUN, NCHAR
   REAL*8 RSTR(MAXCARD8)
#
   READ (LUN,1,END=100,ERR=101) NCHAR, RSTR
   1 FORMAT (Q, MAXCARD8 A8)
   WHILE (NCHAR > 0 & CSTR(NCHAR) == BLANK)	#KILL ANY TRAILING BLANKS
      DECREMENT (NCHAR)
   IF (NCHAR > MAXCARD)				#PREVENT ARRAY OVERFLOW
      NCHAR=MAXCARD
   CSTR(NCHAR+1)=EOS
   RETURN (NCHAR)
#
   100 CSTR(1)=EOS
   RETURN(EOF)
#
   101 CSTR(1)=EOS
   RETURN(BAD)
#
   END
#