Strings of characters – HP SunSoft Pascal 4.0 User Manual

Page 211

The FORTRAN–Pascal Interface

187

Strings of Characters

The

alfa

and

string

types pass simply; varying strings are a little tricky. All

pass by reference.

The Pascal main program,

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 }

The commands to compile and
execute

SimVar.p

and

SimVarmain.p

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