f77demo/fooc.c

   1 #include "foo.h"
   2
   3
   4 int csub(int arg)
   5 {
   6   return (2*arg);
   7 }
   8
   9
  10 int 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 }