5. Interpolation routine

CALL RSINCH (names, names, access, rval, rval, chextr, propler, prolag, istop, base, iret)

namsd	IN	K8	data structure name RESULTAT
nomsy	IN	K16	symbolic name
access	IN	K16	name of the access variable
rval	IN	R8	real value of the access variable
chextr	IN	K19	name of the field to be created. (if it exists, we destroy it)
prolidr	IN	K8	type of extension wanted on the right: “CONSTANT”, “LINEAIRE”, “EXCLU”
proliga	IN	K8	type of extension wanted on the left: “CONSTANT”, “LINEAIRE”, “EXCLU”
istop	IN	I	in case of interpolation error: = 0, don’t write a message, don’t stop. = 1, write message, don’t stop. = 2, write message, stop.
base	IN	K8	base of the created field
iret	OUT	I	return code: 1) the field is calculated: = 0, the field is interpolated between 2 values. = 1, the field is extended to the left. = 2, the field is extended to the right. 2) the field is not calculated: = 10, there is no field for interpolation. = 11, extension to the left is forbidden. = 12, extension to the right is forbidden. = 20, the access variable is illegal.

Interpolation for a symbolic name and an access variable, of a field in a structure SD_RESULTAT