C     .TITLE DIS
C
C   3 JAN 75 (PDH) OUTPUT FRAME COUNT AS WELL
C   2 JAN 75 - PAUL HENDERSON
C
C  SUBROUTINE TO DUMMY UP A 'WRITE TO DISK' VERSION OF 'DISPLY'
C
      SUBROUTINE DISPLY (M,IT,IVECT,FIRST,LAST)
      INTEGER FIRST,FRAME,UNIT,IVECT(8000)
      COMMON /TAGS/ITAG,INDEX,FRAME,UNIT
C
      WRITE (UNIT) INDEX,FRAME
C
C  NOW WRITE OUT SIZE OF ARRAY AND ARRAY
C
      WRITE (UNIT) LAST-FIRST+1
      WRITE (UNIT)(IVECT(K),K=FIRST,LAST)
      RETURN
      END
