; FN$USER_INIT_TIMER - Initialize a timer and counters
;
;       edit #001       12-Feb-1991     J. Gallagher (4GL Solutions)
;       a user timer to get around the problem with VMS 5.X SORT
;
; one long word buffer output
;
$DTR$FUN_DEF FN$USER_INIT_TIMER, LIB$INIT_TIMER, 1
    $DTR$FUN_OUT_ARG  TYPE = FUN$K_STATUS
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, OUT_PUT=TRUE
    $DTR$FUN_NOOPTIMIZE
$DTR$FUN_END_DEF

; FN$USER_SHOW_TIMER - Displays a timer and counters
;
;       edit #001       12-Feb-1991     J. Gallagher (4GL Solutions)
;       a user timer to get around the problem with VMS 5.X SORT
;
; no output to DTR (printing is done to SYS$OUTPUT)
;
$DTR$FUN_DEF FN$USER_SHOW_TIMER, LIB$SHOW_TIMER, 1
    $DTR$FUN_OUT_ARG  TYPE = FUN$K_STATUS
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 1
    $DTR$FUN_NOVALUE
    $DTR$FUN_NOOPTIMIZE
$DTR$FUN_END_DEF