C
C SUBROUTINE 'QGSEND'
C ===================
C
C WRITE CHARACTER STRING TO GRAPHICS SCREEN
C
C
      SUBROUTINE QGSEND(STR)
C
C PARAMETERS
C
C      STR (I)  CHARACTER STRING OR SUBSTRING TO BE SENT. THE
C               NUMBER OF CHARACTERS SENT WILL BE EQUAL TO THE
C               LENGTH OF THE STRING OR SUBSTRING
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*(*) STR
      COMMON /QQUNS/ LUNIN, LUNOUT
      SAVE /QQUNS/
C
C SEND STRING
C -----------
C
      CALL TTSEND (LUNOUT, STR, 2)
      RETURN
      END
