$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!29-MAR-1991 
$!13-NOV-1992 updated
$!This file is executed by $ SETUP DAQ to define the symbol TRGMON 
$!This file is executed again before calling a program using the
$!shareable image TRGMON_DRIVER
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$
$!find_def_dir
$ this_file     = F$ENVIRONMENT("PROCEDURE")
$ this_dir      = F$PARSE(this_file,,,"DEVICE")  -
                + F$PARSE(this_file,,,"DIRECTORY")
$
$! This file is called by $ SETUP DAQ
$!define TRGMON to run TRGMON program 
$   TRGMON :==  @'this_dir'RUN_TRGMON 
$   
$! define logical pointing to documentation
$   DEFINE/NOLOG TRGMON_DOC 'this_dir'TRGMON.TXT
$
$!define implicit parameters
$
$   IF ( F$TRNLNM("D0TCC_NODE") .EQS. "" ) -
        THEN  DEFINE/NOLOG        D0TCC_NODE      D0HTCC::
$
$   DEFINE/NOLOG         MPOOL_CHANNEL   REM_MPOOL
$
$   IF (F$TRNLNM("TRGMON_RESOURCE") .EQS. "") THEN -
       DEFINE/NOLOG TRGMON_RESOURCE ONLINE:[COOR_EXEC]TRIGGER.RES
$   DEFINE/NOLOG         TRGMOND        'this_dir'TRGMOND.MENU
$   DEFINE/NOLOG         TRGMONOP       'this_dir'TRGMONOP.MENU
$   DEFINE/NOLOG         TRGMON_DRIVER  'this_dir'TRGMON_DRIVER.EXE
$
$!define Foreign Scaler RCP file if not already defined
$   DEFINE/NOLOG     TRGMON_FS_RCP 'this_dir'TRGMON_FS.RCP
$   
$   IF ( F$EDIT(P1,"UPCASE") .EQS. "L15" )  -
        THEN SAY " The L15 option is now obsolete, L1.5 is always included."
$
$   IF ( F$EDIT(P1,"UPCASE") .EQS. "OLD" ) 
$   THEN
$      IF (F$SEARCH("''this_dir'TRGMOND.MENU;-1") .NES. "" ) -
       THEN DEFINE/NOLOG        TRGMOND       'this_dir'TRGMOND.MENU;-1
$      IF (F$SEARCH("''this_dir'TRGMONOP.MENU;-1") .NES. "" ) -
       THEN DEFINE/NOLOG        TRGMONOP       'this_dir'TRGMONOP.MENU;-1
$      IF (F$SEARCH("''THIS_DIR'TRGMON_DRIVER.EXE;-1") .NES. "" ) -
       THEN DEFINE/NOLOG        TRGMON_DRIVER  'this_dir'TRGMON_DRIVER.EXE;-1
$   ENDIF
$