integer i, Sum
integer a(9)
external FixVec
...
call FixVec ( a, Sum )
...
------------------------------
void fixvec_ (
int v[9], int *sum )
{
int i;
*sum = 0;
for ( i = 0; i <= 8; i++ )
*sum = *sum + v[i];
}
|
|
extern void vecref_
( int[], int * );
...
int i, sum;
int v[9] = ...
vecref_( v, &sum );
...
------------------------------
subroutine VecRef( v, total)
integer i, total, v(9)
total = 0
do i = 1,9
total = total + v(i)
end do
...
|
|