home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 06_07 / link / test.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-04-05  |  1001 b   |  26 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TEST.PAS                           *)
  3. (* Beispiel für Aufruf des FORTRAN-Unterprogramms         *)
  4. (* GGUBS.FOR                                              *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Test;
  7. {$M 16384,0,16384}
  8. USES Dos, Fortran;
  9.  
  10. VAR Typ                : Typen;
  11.     ArgInt, Anzahl_Arg : INTEGER;
  12.     ArgReal            : REAL;
  13.     ArgPointer         : Pointer_Array;
  14.  
  15. BEGIN
  16.   (* Erstellung des aufrufenden Programms CGGUBS.EXE *)
  17.   Exec('MAKECALL.EXE','GGUBS(I4,R4) /O\FORTRAN\GGUBS.OBJ');
  18.   (* Spezifizierung der Parameter *)
  19.   Anzahl_Arg := 2;  ArgInt     := 2;  ArgReal := 3.14;
  20.   Typ[1]     := 'I4';     Typ[2]  := 'R4';
  21.   ArgPointer[1] := @ArgInt;  ArgPointer[2] := @ArgReal;
  22.   (* Aufruf des Unterprogramms *)
  23.   Call_Fortran_Subroutine('GGUBS',Anzahl_Arg,
  24.                                   Typ,ArgPointer);
  25.   WriteLn(ArgInt,' ',ArgReal);
  26. END.