HP SunSoft Pascal 4.0 Manuel d'utilisateur Page 193

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 333
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 192
The FORTRAN–Pascal Interface 169
8
See the following example:
The Pascal procedure,
SimVar.p
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_ }
The FORTRAN main program,
SimVarmain.f
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
The commands to compile and
execute SimVar.p and
SimVarmain.f
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
Vue de la page 192
1 2 ... 188 189 190 191 192 193 194 195 196 197 198 ... 332 333

Commentaires sur ces manuels

Pas de commentaire