jagannat@caip.rutgers.edu (Subbarao Jagannatha) (02/08/91)
This is the summary of my experiences in calling Fortran routines
from C main program in SUN OS 4.03 environment.
1. I was getting the run-time error of segmentation violation
at every WRITE statements in Fortran. There was no warning
or error messages while compiling or linking. Initially I thought
it could be Fortran I/O initialization problem. But, the source
of the problem was found to be the name of a function in C (scale),
which clashed with a Fortran library subroutine by the same
name. There is a long list of Fortran library subroutine names.
The credit for debugging should go to Mr. Jim Wade of SUN.
2. The SUN-3 debugger is good. SUN-4(SPARC) gives problems
while using debugger.
Few more points about calling Fortran from C:
1. If the name of Fortran subroutine called from C main is "test",
then use the statement "test_();" in C main for calling it.
Here no arguments are passed to Fortran.
2. If you wish to pass large number of arguments to Fortran,
the easier way could be to use "common" statement in Fortran.
For example, to pass the following structure in C :
struct object_data {
float surface[50][12];
int bound[50][50];
float intersect[80][8];
int vertex[80][15];
} dbs_ ;
Note: the underscore after the variable name dbs is required.
Use the following statements at the begining of Fortran program:
integer bound(50,50), vertex(15,80)
real*4 surface(12,50), intersect(8,80)
common /dbs/surface,bound,intersect,vertex
3. Do not use any integer*2 declaration in Fortran for any common
arguments. Also do not use any "short int" declarations in C,
for any common arguments. I am aware of only these two, but there
may be some more restrictions.
4. For compiling use the "cc" command for both C and Fortran programs.
The programs should be linked to Fortran and C library using options:
-lF77 -lU77 -lI77 -lc -lm
5. Call the routines "f_init();" at the begining of C main to
initialize Fortran I/O , and "f_exit();" at the end of C main.
I wish to acknowledge the help of Mr. Keith Bierman of SUN.
Also many other people gave me suggestions for which I am grateful.
Jagan
jagannat@caip.rutgers.edu
Rutgers University, New Jersey