HP SunSoft Pascal 4.0 - Manual (Page 216)

192 Pascal 4.0 User’s Guide
8
The univ Arrays
The univ arrays that are in , out , in out , or var parameters pass by
reference.
The FORTRAN subroutine,
UniVec.f
subroutine UniVec ( V, Last, Sum )
integer V(0:2), Last, Sum, i
Sum = 0
do i = 0, Last
Sum = Sum + V(i)
end do
return
end
The Pascal main program,
UniVecmain.p
program UniVec;
type
VecTyp = array [0..9] of integer;
procedure univec(var V:univ VecTyp; in Last: integer;
var Sum: integer); external fortran;
var
Sum: integer;
V: array [0..2] of integer;
begin
V[0] := 7;
V[1] := 8;
V[2] := 9;
univec(V, 2, Sum);
writeln(Sum)
end. { UniVec }