8
The FORTRAN subroutine, UniVec.f
The univ Arrays
The univ arrays that are in, out, in out, or var parameters pass by reference.
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, | program UniVec; |
UniVecmain.p |
|
| 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 } |
|
|
192 | Pascal 4.0 User’s Guide |