8

The Pascal main program, SimVarmain.p

The commands to compile and execute SimVar.p and

SimVarmain.p

program SimVarmain(output);

var

t, f: boolean;

c: char;

i:integer;

r:real;

si: integer16;

sr: shortreal;

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

var si: integer16; var sr: shortreal); external fortran;

begin

simvar(t, f, c, i, r, si, sr);

writeln(t, f: 6, c: 2, i: 2, r: 4: 1, si: 2, sr: 4: 1) end. { SimVarmain }

hostname% f77 -c SimVar.f SimVar.f:

simvar:

hostname% pc SimVar.o SimVarmain.p -lpfc -lF77 hostname% a.out

true false z 9 9.9 9 9.9

Strings of Characters

The alfa and string types pass simply; varying strings are a little tricky. All pass by reference.

The FORTRAN–Pascal Interface

187