subroutine event_display_control_exists(it_exists)

c
c **********************************************************************
c
c look to see if the control file exists. 
c
c George Gollin, CPPM (Marseille) and university of Illinois (Urbana-Champaign)
c g-gollin@uiuc.edu, 1999
c
c **********************************************************************
c
c include files holding common blocks and parameter statements go here:
c note that they're in the same directory as this file.
c
#include "event_display.inc"
#include "event_display_data.inc"
c
c **********************************************************************
c 
      logical file_exists, it_exists
c
c
c **********************************************************************
c
c
c ask if the file exists:
      inquire(file=file_control(1:lenocc(file_control)), 
     .     exist=file_exists)
c
c
c load the info about its existence into the function name, then leave:
      it_exists=file_exists
c
c
      return
      end