Basic Characteristics RAPID

Example
Syntax
PROC add_matrix(VAR num array1{*,*,*}, num array2{*,*,*})
IF Dim(array1,1) Dim(array2,1) OR Dim(array1,2) Dim(array2,2) OR
Dim(array1,3) Dim(array2,3) THEN
TPWrite "The size of the matrices are not the same";
Stop;
ELSE
FOR i1 FROM 1 TO Dim(array1, 1) DO
FOR i2 FROM 1 TO Dim(array1, 2) DO
FOR i3 FROM 1 TO Dim(array1, 3) DO
array1{i1,i2,i3} := array1{i1,i2,i3} + array2{i1,i2,i3};
ENDFOR
ENDFOR
ENDFOR
ENDIF
RETURN;
ENDPROC
Two matrices are added. If the size of the matrices differs, the program stops and
an error message appears.
This procedure can take any three-dimensional arrays of data type num as an
input.
Dim ’(’
[ArrPar’:=’] ’,’
[DimNo’:=’] ’)’
A REF parameter requires that the corresponding argument be either a constant, a variable
or an entire persistent. The argument could also be an IN parameter, a VAR
parameter or an entire PERS parameter.
A function with a return value of the data type num.
Related information
Described in:
Array parameters Basic Characteristics - Routines
Array declaration Basic Characteristics - Data
9-Dim-2 RAPID Reference Manual