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