extern "FORTRAN"
{ void cfort(float[]); }
#include <stdio.h>
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
|