%NOLIST !+ ! INCTDMSCK Template include file for standard TDMS ! return status check subroutine. !- %LIST %PAGE %SBTTL "Internal subroutine: TDMS_return_status_check" TDMS_return_status_check: !++ ! ! FUNCTIONAL DESCRIPTION: ! ! This simple subroutine checks the return status of the last ! TDMS call, and stops the process if there is any problem. ! ! IMPLICIT INPUTS: ! ! The status of the last TDMS call is referenced. ! ! IMPLICIT OUTPUTS: ! ! Error messages are sent to the output device if there has been ! a failure in the previous TDMS call. ! ! SIDE EFFECTS: ! ! Execution is stopped upon an error. ! !-- ! Signal if status is not normal Ret_status = TSS$SIGNAL IF Ret_status <> TSS$_NORMAL ! Stop execution if there is a problem with signalling CALL LIB$STOP IF Ret_status <> TSS$_NORMAL ! End of routine RETURN