SUBROUTINE DRAW_TRIG_FILT_RUN
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Display the contents of the file pointed to by the
C-     logical name TRIG_FILT_RUN.
C-
C-   Inputs  : file input
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created  26-MAR-1992   Philippe Laurens, Steven Klocek
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C
      LOGICAL OK
      INTEGER LUN
C
C       Open the file
      LUN = 85
      CALL D0OPEN(LUN, 'TRIG_FILT_RUN', 'IF', OK)
      IF (OK .EQV. .FALSE.) THEN
        CALL OUTMSG('1Could not open file TRIG_FILT_RUN')
        GOTO 999
      ENDIF
C
C       Write the file contents
C
      CALL DRAW_FILE_CONTENTS('Contents of TRIG_FILT_RUN', LUN)
C
C       Close the file 
C
      CLOSE (LUN)
C----------------------------------------------------------------------
  999 RETURN
      END