^ARGPRECISION
Return the precision of an implied-decimal argument
WTSupported in traditional Synergy on Windows
|
WNSupported in Synergy .NET on Windows
|
USupported on UNIX
|
VSupported on OpenVMS
|
precision = ^ARGPRECISION(argument)
Return value
precision
The precision of the specified argument. (d)
Arguments
argument
The ordinal position of the argument whose precision will be returned.
Discussion
If there is no precision, 0 is returned.
Examples
record implied ,d10.2 proc xcall getprec(implied) end subroutine getprec arg ,n proc open(15,o,'tt:') writes(15,"precision ="+%string(^argprecision(1))) xreturn end