File: fooc.c

package info (click to toggle)
libtool 1.5.22-4
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 13,252 kB
  • ctags: 645
  • sloc: sh: 11,093; ansic: 4,354; makefile: 816; cpp: 91; fortran: 19
file content (17 lines) | stat: -rw-r--r-- 275 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#include "foo.h"


int csub(int arg)
{
  return (2*arg);
}


int fwrapper(int arg)
{
  int res;
  printf("Calling the Fortran 77 subroutine from the C wrapper...\n");
  F77_FUNC(fsub,FSUB)(&arg,&res);
  printf("Returned from the Fortran 77 subroutine...\n");
  return res;
}