#pragma linkage (cfort,FORTRAN) #include <stdio.h> void cfort(float[]); main() { float matrix[3] = {0.0F,1.0F,2.0F}; cfort(matrix); printf ("Updated values in C: %f %f %f\n", matrix[0], matrix[1], matrix[2]); }
SUBROUTINE CFORT ( ARG ) REAL*4 ARG(3) PRINT *, 'FORTRAN ARG VALUES:', ARG DO J = 1, 3 ARG(J) = ARG(J) + 1.0 ENDDO END