Substitute a value for a token in a text string. The VALUE supplied is formatted as a character string (if necessary) and used to replace all valid occurrences of the TOKEN sub-string in the TEXT supplied. The substitution is not recursive.

CALL TRN_STOK[x]( TOKEN, VALUE, TEXT, NSUBS, STATUS )

TOKEN = C

VALUE = ?

TEXT = C

NSUBS = I

STATUS = I

• There is a routine for each standard type x. Replace x by I (integer), R (real) or D (double precision). Omit x altogether if a character string is being supplied for the VALUE argument.

• When VALUE is a numerical quantity, the token replacement will be enclosed in parentheses if it is negative.

• To be replaced, a token sub-string within TEXT must be correctly delimited (i.e. surrounded by non-alphanumeric characters). It may also be enclosed in angle brackets (e.g. a_token$>$), in which case the brackets will be regarded as part of the token and will also be replaced.

• To be valid, a token must begin with an alphabetic character and contain only alphanumeric characters (including underscore). It may be of any length. No embedded blanks are allowed.