$!                                              23 June 2000.  SMS.
$!
$!    Run the NTP DTSS time provider.
$!
$ def = f$environment( "PROCEDURE")
$ dev_dir = f$parse( def, , , "DEVICE")+ f$parse( def, , , "DIRECTORY")
$!
$ set default 'dev_dir'
$!
$ ds = "define /system"
$!
$ ds DTSS$_TP_HOSTNAME       time.nist.gov  ! Trusted host.
$ ds DTSS$_TP_INACCURACY     86             ! Known delay from trusted host.
$ ds DTSS$_TP_POLL_RATE      86400          ! Poll period (s).
$ ds DTSS$_TP_TIME_STAMPS    3              ! Inquiries/poll.
$ ds DTSS$_TP_MAXERROR       60             ! Max error (s).
$ ds DTSS$_TP_FIRSTSYNC      1              ! Ignore max err on first poll.
$ ds DTSS$_TP_VERBOSE        1              ! Verbose.
$!
$ run DTSS$NTP_PROVIDER.EXE
$!