1#include "foo.h" 2 3 4int csub(int arg) 5{ 6 return (2*arg); 7} 8 9 10int fwrapper(int arg) 11{ 12 int res; 13 printf("Calling the Fortran 77 subroutine from the C wrapper...\n"); 14 F77_FUNC(fsub,FSUB)(&arg,&res); 15 printf("Returned from the Fortran 77 subroutine...\n"); 16 return res; 17} 18