C
C SUBROUTINE 'QGCLOS'
C ===================
C
C CLOSE THE GRAPHICS PACKAGE
C
      SUBROUTINE QGCLOS
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      LOGICAL PSCRIP, PSON
      COMMON /QQPS/ PSCRIP, PSON, LUNP
      SAVE /QQPS/
C
C CODE
C ----
C
      IF (.NOT.PSCRIP) RETURN
      CLOSE (LUNP,STATUS='DELETE')
C     CLOSE (LUNP,DISPOSE='DELETE')
      RETURN
      END
