C
C SUBROUTINE 'QGREAD'
C ===================
C
C READ CHARACTER STRING FROM THE TERMINAL
C
      SUBROUTINE QGREAD (CHSTR)
C
C PARAMETERS
C
C      CHSTR (O)   CHARACTER STRING TO RETURN INPUT
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*(*) CHSTR
      COMMON /QQUNS/ LUNIN, LUNOUT
      SAVE /QQUNS/
C
C READ STRING
C -----------
C
      READ (LUNIN,'(A)') CHSTR
      RETURN
      END
