4. Structure access routines SD_RESULTAT

CALL RSORAC (name, access, ival, rval, rval, rval, kval, kval, cval, prec, crit, nutrou, ndim, ndimu)

IN	nomsd	K8	data structure name RESULTAT
IN	access	K16	name of the access variable.
IN	ival	I	value of the access variable if integer
IN	rval	R8	value of the access variable if real
IN	Kval	K..	value of the access variable if character
IN	cval	C16	value of the access variable if complex
IN	prec	R8	precision requested
IN	write	K8	criteria requested
IN	ndim	I	dimension of the nutrou list.
OUT	nutrou	I	list of order numbers found.
OUT	nbhole	I	number of order numbers found. if the found number nbtrouis greater than ndim, so we make nbhole = -nbhole

Retrieving from an access variable, the order number (s) of a SD_RESULTAT structure.

Convention:

• if access = “LONUTI”: retrieving the useful length of the. ORDR

• if access = “LONMAX”: retrieving the maximum length of. ORDR

• if access = “DERNIER”: retrieving the last order number

• if access = “PREMIER”: retrieving the first order number

• if access = “TOUT_ORDRE”: retrieval of all order numbers.

CALL RSEXCH (kstop, names, names, names, iorder, check, iret)

Retrieving from a symbolic name and an order number, the name of a field in a SD_RESULTAT structure.

This routine manages the fields in the SD_RESULTAT structure and uses the RSUTCH routine.

CALL RSNOCH (names, names, iorder)

IN	nomsd	K8	data structure name RESULTAT
IN	nomsy	K16	symbolic name
IN	iordr	I	order number

Note (=store) from a symbolic name and an order number, the name of a field in a SD_RESULTAT structure.

CALL RSADPA (name, cel, npara, para, para, iorder, itype, leveu, ctype)

IN	nomsd	K8	data structure name RESULTAT
IN	cel	K1	parameter access condition: “L”: reading, “E”: writing.
IN	npara	I	number of parameters searched
IN	lpara	K16	list of parameter names
IN	iordr	I	order number
IN	itype	I	code indicating that you want the type = 0 type steps ? 0 we provide the type
OUT	ljeveu	I	list of addresses JEVEUXdans ZI, ZR,…
OUT	ctype	K4	list of JEVEUX address types Whole, Real, Complex, “K8” “K16” “” K24 “” K24 “” “K32” “K80” character.

Retrieving JEVEUX addresses from a SD_RESULTAT structure using an order number and a list of name (s) of parameter (s) or access variable (s).

CALL RSNOPA (name, icon, name jv, nbacc, nbpara)

IN	nomsd	K8	data structure name RESULTAT
IN	nomjv	K19	vector name JEVEUXpour write the list of names
IN	icode	I	= 0, access variables only = 1, parameters only = 2, access variables and parameters
OUT	nbacc	I	number of access variables
OUT	nbpara	I	number of parameters

Retrieving the names and the number of parameters in a SD_RESULTAT structure as well as the names and the number of access variables. These names are stored in a vector JEVEUX named nomjv.

CALL RSUTNC (nomsd, nomsy, ndim, ndim, nomch, nuordr, nbhole)

IN	nomsd	K8	data structure name RESULTAT
IN	nomsy	K16	symbolic name
IN	ndim	I	array dimensions
OUT	nomch	K16	array of field names
OUT	nuordr	I	table of the order numbers of the fields found
OUT	nbhole	I	number of fields found if the found number nbtrouis greater than ndim, so we make nbhole = -nbhole

Retrieval from a symbolic name, noted fields and their associated order numbers in a SD_RESULTAT structure.

CALL RSUTOR (name, check, name, name, node, etc)

IN	nomsd	K8	data structure name RESULTAT
IN	chextr	K19	name of the field to search for
OUT	nomsy	K16	symbolic name
OUT	feed	I	order number
OUT	iret	I	return code: =1, the field has been found, =0 otherwise

Retrieving from a field, the order number and possibly the symbolic name in a SD_RESULTAT structure.