C-->Frotran, Fortran-->C 호출을 linux에서는어떻게하나

해결 봤습니다.
http://owen.sj.ca.us/rkowen/howto/FandC/FandC.call.html

f2c.f calls f2cfn.c

--------------------------------------------------------------------------------

PROGRAM F2C
C
CHARACTER*32 NAME
INTEGER AGE
REAL TEMP
C
NAME = "Knut"
C add null character at end for portable & safe handling by C
NAME(LEN(NAME):LEN(NAME)) = CHAR(0)
C note that LEN(NAME) = 32 in this case
AGE = 4
TEMP = 98.6
CALL NAMEAGE(NAME, AGE, TEMP)
END

--------------------------------------------------------------------------------

f2cfn.c called by f2c.f

--------------------------------------------------------------------------------

#include <string.h>
#ifdef _CRAY
# include <fortran.h>
# define nameage NAMEAGE
#else
# if !defined(_AIX) && !defined(__hpux)
# define nameage nameage_
# endif
# define _fcd char *
# define _fcdtocp(a) (a)
# define _fcdlen(a) strlen(a)
#endif

void nameage(_fcd name, int *age, float *temp) {
char *cp;
size_t len;

cp = _fcdtocp(name); /* convert to C char* */
len = _fcdlen(name);

/* strip trailing blanks */
while (cp[len-1] == ' ' || cp[len-1] == '\0') --len;
printf("Hello %.*s, who is %d years old, "
"has a temperature of %4.1f\n", len, cp, *age, *temp);
}

Compilation Steps for the Above Example
Cray - PVPs - UNICOS
cc -c f2cfn.c
cf77 f2c.f f2cfn.o
(or substitute f90 for cf77)
IBM - SP2 - AIX
xlc -c f2cfn.c
xlf f2c.f f2cfn.o
SGI - IRIX
gcc -c f2cfn.c
f77 f2c.f f2cfn.o
SUN - SunOS
gcc -c f2cfn.c
f77 f2c.f f2cfn.o
HP - UX
gcc -c f2cfn.c
f77 f2c.f f2cfn.o
PC - Linux
gcc -c f2cfn.c
g77 f2c.f f2cfn.o
Output for the Above Example
Hello Knut, who is 4 years old, has a temperature of 98.6

--------------------------------------------------------------------------------

c2f.c calls c2ffn.f

--------------------------------------------------------------------------------

#include <string.h>
#ifdef _CRAY
# include <fortran.h>
# define nameage NAMEAGE
#else
# if !defined(_AIX) && !defined(__hpux)
# define nameage nameage_
# endif
# define _fcd char *
# define _cptofcd(a,b) (a)
# define _fcdlen(a) strlen(a)
#endif

void nameage(_fcd name, int *nlen, int *age, float *temp);

int main() {
char *name = "Knut";
_fcd fp;
int nlen,age = 4;
float temp = 98.6;

nlen = strlen(name);
fp = _cptofcd(name, nlen); /* convert to Fortran string */

nameage(fp, &nlen, &age, &temp);
return 0;
}

--------------------------------------------------------------------------------

c2ffn.f called by c2f.c

--------------------------------------------------------------------------------

SUBROUTINE NAMEAGE(NAME, NLEN, AGE, TEMP)
CHARACTER*(*) NAME
INTEGER NLEN,AGE
REAL TEMP
C
WRITE(6,1000) NAME(1:NLEN),AGE,TEMP
1000 FORMAT(1X,'Hello ',A,', who is ',I2,
. ' years old, has a temperature of ', f4.1)
RETURN
END

Compilation Steps for the Above Example
To discover which libraries are necessary for Fortran modules, compile a short Fortran test program and add the -V or -v option (or whatever) to get a verbose execution listing to show what arguments are being passed to each compilation stage.
Cray - PVPs - UNICOS
cf77 -c c2ffn.f
cc -c c2f.c
cf77 c2f.o c2ffn.o
(or substitute f90 for cf77)
IBM - SP2 - AIX
xlf -c c2ffn.f
cc c2f.c c2ffn.o -lxlf90 -lxlf -lm
SGI - IRIX
f77 -c c2ffn.f
gcc c2f.c c2ffn.o -lF77 -lm -lU77 -lI77 -lisam -lmpc -lc
SUN - SunOS
f77 -c c2ffn.f
gcc c2f.c c2ffn.o -L/usr/lang/SC0.0 -lF77 -lm -lc
HP - UX
f77 -c c2ffn.f
gcc c2f.c c2ffn.o -lcl -lisamstub -lc
PC - Linux
g77 -c c2ffn.f
gcc -c c2f.c
g77 c2f.o c2ffn.o
Output for the Above Example
Hello Knut, who is 4 years old, has a temperature of 98.6