SUBROUTINE DRAW_SPY_DUMP
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Spy Dump display.  Write the dump to the file
C-   pointed to by the logical SPY_DUMP_FILE, then call EVEFIL to view the 
C-   file.
C-
C-   Inputs  : Common block input
C-   Outputs : file and screen output
C-   Controls: none
C-
C-   Created  30-MAR-1992   Philippe Laurens, Steven Klocek
C-
C----------------------------------------------------------------------
      IMPLICIT          NONE
C
      INCLUDE          'LV1_MPOOL_RAW.INC'
      INTEGER           I, J
      PARAMETER LUN = 57
      PARAMETER FNAME = 'SPY_DUMP_FILE.DAT'
C
      OPEN  (          UNIT =  LUN,
     &                 FILE = FNAME,
     &               STATUS = 'NEW',
     &      CARRIAGECONTROL = 'LIST' )
C
      WRITE (LUN, 1000 ) ( 2*(J-1), 
     &                     J,
     &                    (DATABLOCK(J+I),I=0,15),
     &                     J=1,5414,16)
C
 1000 FORMAT (1X, Z4.4, I6, 2X, 8Z5.4, 2X, 8Z5.4)
C
      CLOSE ( UNIT = LUN, STATUS = 'KEEP' )
C
      CALL EVEFIL(FNAME)
C       EVEFIL turns broadcast trapping on.
      CALL BROADC(.FALSE.)              
C----------------------------------------------------------------------
  999 RETURN
      END