SIMSCRIPT II.5 Programming Language

SIMSCRIPT II.5 Programming Language
ements in the prereserved array space. Responsibility for reserving this space rests with the
calling routine.
Routine definition:
routine ADD.MATRICES given A, B, and C
define A, B, and C as real 2-dimensional arrays
normally mode is integer
for I = 1 to dim.f(A(*,*))
for J = 1 to dim.f(A(I,*))
let C(I,J) = A(I,J) + B(I,J)
return
end
Routine called within a program:
define COST1, COST2, TOTAL.COST as 2-dimensional real arrays
.
.
reserve A(*,*), B(*,*) and C(*,*) as N by M
.
.
call ADD.MATRICES given COST1(*,*), COST2(*,*)
and TOTAL.COST(*,*)
2. As an alternative to the above example, the result array could have been reserved by the
called routine and its pointer value returned as a yielded argument. This yielded argument
must be defined at the calling program level to be an array. Note that each call to the routine
reserves space for a new copy of the array. The calling program, therefore, is responsible
for managing the release of these multiple space allocations.
Routine definition:
routine ADD.MATRICES given A and B yielding C
define A, B, and C as 2-dimensional real arrays
normally mode is integer
let NROWS = dim.f(A(*,*))
let NCOLS = dim.f(A(1,*))
reserve C as NROWS by NCOLS
for I = 1 to NROWS
for J = 1 to NCOLS
let C(I,J) = A(I,J) + B(I,J)
return
end
Routine called within a program:
define COST1, COST2, TOTAL.COST
as 2-dimensional real arrays
reserve COST1, COST2 as N by M
68