8
The FORTRAN subroutine, StrVar.f
subroutine StrVar ( s10, s80, vls ) character s10*10, s80*80 structure /VarLenStr/
integer nbytes character a*25
end structure
record /VarLenStr/ vls character ax*10, sx*80, vx*5 data ax / "abcdefghij" /,
&sx / "abcdefghijklmnopqrstuvwxyz" /,
&vx / "oyvay" /
s10(1:10) = ax(1:10) s80(1:80) = sx(1:80) vls.a(1:5) = vx(1:5) vls.nbytes = 5 return
end
The Pascal main program, | program StrVarmain(output); |
StrVarmain.p
type
varstr = varying [25] of char;
var
a:alfa;
s:string;
v:varstr;
procedure strvar(var xa: alfa; var xs: string; var xv: varstr); external fortran;
begin
strvar(a, s, v); writeln(a); writeln(s); writeln(v); writeln('length(v)= ', length(v): 2)
end. { StrVarmain }
188 | Pascal 4.0 User’s Guide |