HP Pascal/iX Programmer's Guide (31502-90023)
9- 10
Calling FORTRAN 77 from HP Pascal
The table and example in this section assume that the HP Pascal program
and the FORTRAN 77 routine that it calls are both compiled in Native
Mode. If the FORTRAN 77 routine is in a Compatibility Mode SL instead,
you must write a switch stub to access it from your HP Pascal program
(see "Switch Stubs" ).
Table 9-3 matches corresponding HP Pascal and FORTRAN 77 or FORTRAN
66/V types. (It contains only the types that are acceptable for formal
intrinsic parameters.) The variable
n
is an integer.
Table 9-3. Corresponding HP Pascal and FORTRAN 77 or FORTRAN 66/V Types
-------------------------------------------------------------------------------
| | |
| HP Pascal Type | Corresponding FORTRAN 77 or |
| | FORTRAN 66/V Type |
| | |
-------------------------------------------------------------------------------
| | |
| Array: Not PACKED | An array of a corresponding type. |
| | (Pascal arrays are stored in row-major |
| | order; FORTRAN arrays are stored in |
| | column-major order.) |
| | |
-------------------------------------------------------------------------------
| | |
| Array: PACKED | Not available |
| | |
-------------------------------------------------------------------------------
| | |
| Boolean (false = 0, true = 1) | LOGICAL*1 (false = 0, true = 1) |
| | |
-------------------------------------------------------------------------------
| | |
| Char | CHARACTER |
| | |
-------------------------------------------------------------------------------
| | |
| Enumeration | Not available |
| | |
-------------------------------------------------------------------------------
| | |
| File | Not available |
| | |
-------------------------------------------------------------------------------
| | |
| Function | Function3 |
| | |
-------------------------------------------------------------------------------
| | |
| Function parameter or variable | Not available |
| | |
-------------------------------------------------------------------------------
| | |
| Integer | INTEGER*4 |
| | |
-------------------------------------------------------------------------------
| | |
| Longreal | REAL*8 or DOUBLE PRECISION |
| | |
-------------------------------------------------------------------------------
| | |
| PAC of
n
characters | CHARACTER*
x, x
in 1..
n
1,2 |
| | |
-------------------------------------------------------------------------------
| | |