REAL*4 MATRIX(3) / 1.0, 2.0, 3.0 /
CALL CENTRY(MATRIX)
PRINT *,
1 'UPDATED VALUES IN FORTRAN:', MATRIX
END
|
#pragma linkage (centry,FORTRAN)
#include <stdio.h>
void centry(float x[3])
{
int index;
printf
("C arg values: %f %f %f\n",
x[0], x[1], x[2]);
for (index = 0; index <= 2; index++)
x[index] -= 1.0F;
}
|