rpc_clear_timeout Obsolete | The call no longer exists. Removed the call from the documentation. |
Description: | ||
rpc_clear_timeout will change the amount of time before all subsequent rpc_call()s will timeout. | ||
Input: | ||
INTEGER | handle | Server handle. |
INTEGER | seconds | Timeout in seconds. |
Output: | ||
LOGICAL | <Return Value> | FALSE - timeout setting failed. TRUE - timeout successful. |
Error Conditions: | ||
None. | ||
Remarks: | ||
None. | ||
Examples: | ||
None. |
util_round Obsolete | The call no longer exists. This function has been replaced by the function util_rounder, 603 which has a return value used to indicate errors. |
Description: | ||
Round off RVAL to NSIGD significant digits. | ||
Input: | ||
REAL | rval | The value to be rounded. |
INTEGER | nsigd | Number of significant digits NSIGD must be positive to get a meaningful answer. |
Output: | ||
REAL | <Return Value> | Rounded value of RVAL. |
Error Conditions: | ||
None. |
FUNCTION UTIL_ROUNDER( RVAL, NSIGD, ROUT )
/*
Round off RVAL to NSIGD significant digits in ROUT.
Input:
RVAL Real The value to be rounded.
NSIGD Integer Number of significant digits
NSIGD must be positive to get a meaningful
answer. If it is not, a warning will be issued
that NSIGD will be assumed to be one.
Output:
ROUT Real Rounded value of RVAL
UTIL_ROUNDER Integer Return status ( =0 if no error )
*/
REAL RVAL, ROUT
INTEGER NSIGD
/*
Initialize
*/
IF( NSIGD <= 0 ) THEN
UTIL_ROUNDER = 1
ELSE
UTIL_ROUNDER = 0
END IF
ROUT = UTIL_ROUND( RVAL, NSIGD )
RETURN
END