      SUBROUTINE GDRAGN
      RETURN
      END
      SUBROUTINE DD30(OP,IARRAY,RARRAY,ERROR)
      RETURN
      END
      SUBROUTINE DD99 (OP, IARRAY, RARRAY, ERROR)
      INTEGER OP, IARRAY(5000)
      REAL RARRAY(5000)
      INTEGER ERROR, ILENTH, RLENTH
      INTEGER VSXNDC, VSYNDC, VSXCHR, VSYCHR, VSLNSC, VSLNSS,
     *    VSLNWC, VLLNWS, VSFNTC, VSPENC, VSPENS, VSCSC,
     *    VSMRKC, VSMRKS, VSOLVL, VSHILS, VSBATC, VSOTYP,
     *    VSPIX,  VSCTAB, VSHIDS, VSPFIL, VSEDGE, VSPIXX,
     *    VSPIXY, VSCMOD, VSBGDC, VSBGDT, VSCINX, VSCNUM,
     *    VSCTYP, VSIINX, VSINUM, VSITYP, VSPMAX, SRFUSE,
     *    MODE, COLMOD
      REAL VSXCM, VSYCM, VSSCMX, VSSCMY, VSSNDX, VSSNDY, VSLWMN,
     *       VSLWMX, VSCSMN, VSCSMX

        WRITE (7,5)OP
    5   FORMAT(//5X,'OPCODE = ',I2)
        IF (OP.EQ.30) GO TO 300
        IF (OP.GT.6) GO TO 200
      RLENTH = IARRAY(2)
        IF (RLENTH.EQ.0) GO TO 500
      WRITE (7,10)RLENTH
 10     FORMAT (//5X, 'LENGTH OF THE RARRAY IS = ', I3)
      WRITE (7,20)
 20   FORMAT (//5X,'POINT#', 15X, 'X-COORD', 15X, 'Y-COORD', 15X,
     *          'Z-COORD')
      DO 30 I = 1,RLENTH,3
      WRITE (7,40)I, RARRAY(I), RARRAY(I+1), RARRAY(I+2)
 30     CONTINUE
 40     FORMAT (/6X, I3, 12X, F9.3, 12X, F9.3, 12X, F9.3)
      RETURN
 200    CONTINUE
      ILENTH = IARRAY(1) + 2
      RLENTH = IARRAY(2)
      IF (ILENTH.EQ.2) GO TO 600
      WRITE (7,210) ILENTH
 210    FORMAT (//5X, 'LENGTH OF THE IARRAY IS = ', I3)
      WRITE (7,220)
 220    FORMAT (//5X, 'INDEX', 10X, 'VALUE')
      DO 230 I = 3,ILENTH
      WRITE (7,240)I, IARRAY(I)
 230    CONTINUE
 240    FORMAT (/6X, I3, 13X, I10)
 245    IF (RLENTH.EQ.0) GO TO 500
      WRITE (7,250) RLENTH
 250    FORMAT (//5X, 'LENGTH OF THE RARRAY IS = ', I3)
      WRITE (7,260)
 260    FORMAT (//5X, 'INDEX', 10X, 'VALUE')
      DO 270 I = 1,RLENTH
      WRITE (7,280)I, RARRAY(I)
 270    CONTINUE
 280    FORMAT (/6X, I3, 15X, F9.3)
      RETURN
 300    CONTINUE
        VSXNDC = 1000
        VSYNDC = 1000
        VSCINX = 2000

      IARRAY(3) = VSXNDC
      IARRAY(4) = VSYNDC
      IARRAY(5) = VSXCHR
      IARRAY(6) = VSYCHR
      IARRAY(7) = VSLNSC
      IARRAY(8) = VSLNSS
      IARRAY(9) = VSLNWC
      IARRAY(10) = VLLNWS
      IARRAY(11) = VSFNTC
      IARRAY(12) = VSPENC
      IARRAY(13) = VSPENS
      IARRAY(14) = VSCSC
      IARRAY(15) = VSMRKC
      IARRAY(16) = VSMRKS
      IARRAY(17) = VSOLVL
      IARRAY(18) = VSHILS
      IARRAY(19) = VSBATC
      IARRAY(20) = VSOTYP
      IARRAY(21) = VSPIX
      IARRAY(22) = VSCTAB
      IARRAY(23) = VSHIDS
      IARRAY(24) = VSPFIL
      IARRAY(25) = VSEDGE
      IARRAY(26) = VSPIXX
      IARRAY(27) = VSPIXY
      IARRAY(28) = VSCMOD
      IARRAY(29) = VSBGDC
      IARRAY(30) = VSBGDT
      IARRAY(31) = VSCINX
      IARRAY(32) = VSCNUM
      IARRAY(33) = VSCTYP
      IARRAY(34) = VSIINX
      IARRAY(35) = VSINUM
      IARRAY(36) = VSITYP
      IARRAY(37) = VSPMAX
      IARRAY(38) = SRFUSE
      IARRAY(39) = MODE
      IARRAY(40) = COLMOD
      RARRAY(1) = VSXCM
      RARRAY(2) = VSYCM
      RARRAY(3) = VSSCMX
      RARRAY(4) = VSSCMY
      RARRAY(5) = VSSNDX
      RARRAY(6) = VSSNDY
      RARRAY(7) = VSLWMN
      RARRAY(8) = VSLWMX
      RARRAY(9) = VSCSMN
      RARRAY(10) = VSCSMX
      RETURN
 500    CONTINUE
      WRITE (7,550)
 550    FORMAT (//5X, 'RARRAY IS EMPTY')
      RETURN
 600    CONTINUE
      WRITE (7,650)
 650    FORMAT (//5X, 'IARRAY IS EMPTY EXCEPT FOR TWO LENGTHS')
      GO TO 245
      END
**IN -1
