#
#  THIS SUBROUTINE STARTS UP THE MTREK DRIVER ROUTINE, MTREKD.
#  IT COULD BE STARTED MANUALLY IF YOU WISH; OTHERWISE, FIGURE
#  OUT A WAY TO DO IT ON YOUR SYSTEM, MAKING SURE THAT ONLY
#  ONE VERSION CAN RUN AT A TIME.
#
#  THE VAX CODE HERE IS CORRECT; THE IAS CODE IS SPECIFIC TO ICR.
#
DEFINE(ICR,# ICR ONLY)
DEFINE(VAX,# VAX ONLY)
SUBROUTINE RUNMTR
ICR INTEGER IOP(4)
ICR INTEGER*4 RUNTSK
ICR DATA RUNTSK/6R...RUN/
 
ICR CALL SPWNNL(RUNTSK,IOP,'RUN MTR/TI=TT0',14,IDS)
VAX CALL SYS$CREPRC( , 'DR1:[ICR.RATFOR.MTREK]MTREKD.EXE',
VAX                  , , , , , 'MTREKD', , , , )
RETURN
END