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, 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 }

192

Pascal 4.0 User’s Guide

Page 216
Image 216
HP SunSoft Pascal 4.0 manual Fortran subroutine, UniVec.f, Pascal main program, UniVecmain.p, 192