8

See the following example:

The Pascal procedure,

SimVar.p

The FORTRAN main program,

SimVarmain.f

The commands to compile and execute SimVar.p and

SimVarmain.f

procedure simvar_(var t, f: boolean; var c: char; var i: integer; var r: real;

var si: integer16; var sr: shortreal);

begin

t := true; f := false; c := 'z'; i := 9;

r := 9.9; si := 9; sr := 9.9

end; { simvar_ }

logical*1

t, f

character

c

integer*4

i

double precision

d

integer*2

si

real

sr

call SimVar ( t, f, c, i, d, si, sr )

write(*, "(L2,L2,A2,I2,F4.1,I2,F4.1)")

&t, f, c, i, d, si,sr stop

end

hostname% pc -c SimVar.p

hostname% f77 SimVar.o SimVarmain.f -lpfc -lpc SimVarmain.f:

MAIN: hostname% a.out

T F z 9 9.9 9 9.9

The FORTRAN–Pascal Interface

169