![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395197x1.png)
8
The commands to compile and execute UniVec.p and UniVecmain.f
hostname% pc
hostname% f77 UniVec.o UniVecmain.f
UniVecmain.f:
MAIN: hostname% a.out 24
Conformant Arrays
For conformant arrays, with
function ip(var x:array[lb..ub:integer] of real):real;
...
double precision v1(10) double precision z
z = ip ( v1, %VAL(0), %VAL(9) )
...
Pascal passes the bounds by value, so FORTRAN must pass them by value, too.
One bounds pair may apply to several arrays if they are declared in the same parameter group:
function ip(var x,y:array[lb..ub:integer] of real):real;
...
double precision v1(10), v2(10) double precision z
z = ip ( v1, v2, %VAL(0), %VAL(9) )
...
Examples of
The | 173 |