fortran+c

fortran+c

[Alfonso Alba Garcia]

Hello everybody,

I would like to get information about how to compile fortran subroutines
in C programs an vice versa. I have managed to do it with small programs
in both directions. My problem is with common blocks, I don't know how
to access them from a C function.

For example, if I have a fortran MAIN program:

PROGRAM TRY
	common/block/A,B
	.
	.
	.
END

How can I have access to A and B from a C subroutine to manipulate them?

Thanks in advance.

Re: fortran+c. I forgot one thing:

[Alfonso Alba Garcia]

Sorry, I fogot to say that I'm using gcc and g77 in RH6.0. just in case
it is important. Thanks again.

Re: fortran+c

[Tim Prince]

>	common/block/A,B
>

As g77 falls squarely within the f2c style of fortran implementation, in case
of question you could use f2c to translate into gcc.  I would expect

extern struct{float A;float B;}block;
Tim Prince
tprince@computer.org

Re: fortran+c

[Tim Prince]

or, using the default f2c-compatible underscore-appending, lower-casing, and
typedefing (f2c.h probably #includes g2c.h and may not be found in the standard
include directories on your system) :

#include "f2c.h"

struct {
    real a, b;
} block_;
Tim Prince
tprince@computer.org

fortran+c

[Alfonso Alba Garcia]

Hello everybody,

I would like to get information about how to compile fortran subroutines
in C programs an vice versa. I have managed to do it with small programs
in both directions. My problem is with common blocks, I don't know how
to access them from a C function.

For example, if I have a fortran MAIN program:

PROGRAM TRY
	common/block/A,B
	.
	.
	.
END

How can I have access to A and B from a C subroutine to manipulate them?

Thanks in advance.

Re: fortran+c

[Tim Prince]

or, using the default f2c-compatible underscore-appending, lower-casing, and
typedefing (f2c.h probably #includes g2c.h and may not be found in the standard
include directories on your system) :

#include "f2c.h"

struct {
    real a, b;
} block_;
Tim Prince
tprince@computer.org

Re: fortran+c

[Tim Prince]

>	common/block/A,B
>

As g77 falls squarely within the f2c style of fortran implementation, in case
of question you could use f2c to translate into gcc.  I would expect

extern struct{float A;float B;}block;
Tim Prince
tprince@computer.org

Re: fortran+c. I forgot one thing:

[Alfonso Alba Garcia]

Sorry, I fogot to say that I'm using gcc and g77 in RH6.0. just in case
it is important. Thanks again.