Calling fortran subroutine from c

[Bigdakine]

I don't know if this is the right forum for this, and if not please suggest one
which fits.

I have to call a fortran sub routine from a C main program.

The fortran subroutine statement is

wload(starttime , duration, station, component, dataray, nsamp, calib, srate,
samplength, datadir)

And the variables are defined

real*8 starttime
real duration
character*(*) sta
character*(*) component
integer*4 dataray(1)
integer nsamp,samplengt h
real calib,srate
character*100 datadir

Of these, starttime, duration, station, component are inputs. dataray is an
integer vector created in the C-program via dataray = calloc(65000,
sizeof(int))

In the C-code I have the following variable defs..
double starttime
char sta[5], component[4]
char *datadir
float duration, calib, srate

But I can't get the call to the fortran sub to work with robustness. Do you
have any pointers as to how the c-variables should be defined and a function
prototype for wload_ that could accomplish that?

If you know of a good FAQ on this, that would work for me too...

Yours,

Stuart
Dr. Stuart A. Weinstein
Ewa Beach Institute of Tectonics
"To err is human, but to really foul things up requires a creationist"
"Creationis ts aren't impervious to Logic: They're oblivious to it."

[Fred L. Kleinschmidt]

Bigdakine wrote:

I don't know if this is the right forum for this, and if not please suggest one
which fits.

I have to call a fortran sub routine from a C main program.

The fortran subroutine statement is

wload(starttime , duration, station, component, dataray, nsamp, calib, srate,
samplength, datadir)

And the variables are defined

real*8 starttime
real duration
character*(*) sta
character*(*) component
integer*4 dataray(1)
integer nsamp,samplengt h
real calib,srate
character*100 datadir

Of these, starttime, duration, station, component are inputs. dataray is an
integer vector created in the C-program via dataray = calloc(65000,
sizeof(int))

In the C-code I have the following variable defs..
double starttime
char sta[5], component[4]
char *datadir
float duration, calib, srate

But I can't get the call to the fortran sub to work with robustness. Do you
have any pointers as to how the c-variables should be defined and a function
prototype for wload_ that could accomplish that?

If you know of a good FAQ on this, that would work for me too...

Yours,

Stuart

Dr. Stuart A. Weinstein
Ewa Beach Institute of Tectonics
"To err is human, but to really foul things up requires a creationist"
"Creationis ts aren't impervious to Logic: They're oblivious to it."

The answer will depend on your platform and what compilers you are
using. You need to look at the C and Fortran compiler manuals for your
platform. Note that the solution will probably not be portable.
--
Fred L. Kleinschmidt
Boeing Associate Technical Fellow
Technical Architect, Common User Interface Services
M/S 2R-94 [phone]

[Mark R.Bannister]

bi*******@aol.c omGetaGrip (Bigdakine) wrote in message news:<20******* *************** *****@mb-m17.aol.com>...

I don't know if this is the right forum for this, and if not please suggest one
which fits.

I have to call a fortran sub routine from a C main program.

The fortran subroutine statement is

wload(starttime , duration, station, component, dataray, nsamp, calib, srate,
samplength, datadir)

And the variables are defined

real*8 starttime
real duration
character*(*) sta
character*(*) component
integer*4 dataray(1)
integer nsamp,samplengt h
real calib,srate
character*100 datadir

Of these, starttime, duration, station, component are inputs. dataray is an
integer vector created in the C-program via dataray = calloc(65000,
sizeof(int))

In the C-code I have the following variable defs..
double starttime
char sta[5], component[4]
char *datadir
float duration, calib, srate

But I can't get the call to the fortran sub to work with robustness. Do you
have any pointers as to how the c-variables should be defined and a function
prototype for wload_ that could accomplish that?

If you know of a good FAQ on this, that would work for me too...

A quick search on Google revealed ...

http://www.aei.mpg.de/~jthorn/c2f.html

Regards,
Mark.

[E. Robert Tisdale]

Bigdakine wrote:

I don't know if this is the right forum for this
and, if not, please suggest one which fits.
comp.lang.fortr an
I need to call a fortran subroutine from a C main program.

The fortran subroutine statement is

wload(starttime , duration, station, component, dataray, nsamp, calib, srate,
samplength, datadir)

And the variables are defined

real*8 starttime
real duration
character*(*) station
character*(*) component
integer*4 dataray(1)
integer nsamp,samplengt h
real calib,srate
character*100 datadir

Of these, starttime, duration, station, component are inputs. dataray is an
integer vector created in the C-program via dataray = calloc(65000,
sizeof(int))

In the C-code I have the following variable defs..
double starttime
char sta[5], component[4]
char *datadir
float duration, calib, srate

But I can't get the call to the fortran sub to work with robustness.
Do you have any pointers as to how the c-variables should be defined
and a function prototype for wload_ that could accomplish that?

void wload_(double*, float*, char*, char*, int*, int*,
float*, float*, int*, char*, int, int, int);

wload_(&startti me, &duration, sta, component, dataray,
&nsamp, &calib, &srate, &samplength, datadir,
strlen(sta), strlen(componen t), strlen(datadir) );

[Kenny McCormack]

In article <ch**********@n ntp1.jpl.nasa.g ov>,
E. Robert Tisdale <E.************ **@jpl.nasa.gov > wrote:

Bigdakine wrote:

I don't know if this is the right forum for this
and, if not, please suggest one which fits.

comp.lang.fortr an

Unclear. I suspect the main reason this advice is given is b/c clf is not
anal about topicality, as clc, almost uniquely so, is.

Really, this question, how do I interface foo with bat, isn't topical for
either the followers of foo or the followers of bar. It falls in between,
in a land that neither wants to touch (*). In fact, it is really is
a vendor issue - it concerns the vendors of the two products in question
(i.e., the vendors of foo and bar together can answer the question).

(*) Somewhat related: I've often wondered where on Usenet, one could ask
questions about Cygwin. Talk about neither fish nor fowl! Neither the
Unix people or the Windows people would want to touch it.

[Bigdakine]

>Subject: Re: Calling fortran subroutine from c

From: "E. Robert Tisdale" E.************* *@jpl.nasa.gov
Date: 9/1/04 7:56 AM Hawaiian Standard Time
Message-id: <ch**********@n ntp1.jpl.nasa.g ov>

Bigdakine wrote:

I don't know if this is the right forum for this
and, if not, please suggest one which fits.

comp.lang.fortr an

I need to call a fortran subroutine from a C main program.

The fortran subroutine statement is

wload(starttime , duration, station, component, dataray, nsamp, calib,

srate,

samplength, datadir)

And the variables are defined

real*8 starttime
real duration
character*(*) station
character*(*) component
integer*4 dataray(1)
integer nsamp,samplengt h
real calib,srate
character*100 datadir

Of these, starttime, duration, station, component are inputs. dataray is an
integer vector created in the C-program via dataray = calloc(65000,
sizeof(int))

In the C-code I have the following variable defs..
double starttime
char sta[5], component[4]
char *datadir
float duration, calib, srate

But I can't get the call to the fortran sub to work with robustness.
Do you have any pointers as to how the c-variables should be defined
and a function prototype for wload_ that could accomplish that?

void wload_(double*, float*, char*, char*, int*, int*,
float*, float*, int*, char*, int, int, int);

wload_(&startti me, &duration, sta, component, dataray,
&nsamp, &calib, &srate, &samplength, datadir,
strlen(sta), strlen(componen t), strlen(datadir) );

Ahhh. Yes. I had forgotten that. Its been a while since I had to do this. The
dimensions get appeneded to the end.

Thanks! I'm sure that will do the trick!

Stuart
Dr. Stuart A. Weinstein
Ewa Beach Institute of Tectonics
"To err is human, but to really foul things up requires a creationist"
"Creationis ts aren't impervious to Logic: They're oblivious to it."

[E. Robert Tisdale]

Kenny McCormack wrote:

E. Robert Tisdale wrote:

Bigdakine wrote:

I don't know if this is the right forum for this
and, if not, please suggest one which fits.
comp.lang.fortr an

Language interoperabilit y *is* topical in comp.lang.fortr an
Platform specific questions are accepted in comp.lang.fortr an
only because there is no other appropriate forum.
Platform specific questions are handled in comp.lang.c
by redirecting them to a more appropriate forum.
Unclear.
I suspect the main reason this advice is given is b/c clf is not
anal about topicality, as clc, almost uniquely so, is.
Responding to off-topic posts is inappropriate behavior.
If you must respond, please try to be polite and helpful.
Redirect the post to a more appropriate forum.
Really, this question, how do I interface foo with bat, isn't topical for
either the followers of foo or the followers of bar. It falls in between,
in a land that neither wants to touch (*). In fact, it is really is
a vendor issue - it concerns the vendors of the two products in question
(i.e., the vendors of foo and bar together can answer the question).

(*) Somewhat related: I've often wondered where on Usenet,
one could ask questions about Cygwin. Talk about neither fish nor fowl!
Neither the Unix people or the Windows people would want to touch it.

In my opinion, language interoperabilit y is *always* topical
in the comp.lang.c as well as in the comp.lang.fortr an newsgroup
but Fortran programmers have more experience with it
because it is more important to them.

[CBFalconer]

Kenny McCormack wrote:

.... snip ...
(*) Somewhat related: I've often wondered where on Usenet, one
could ask questions about Cygwin. Talk about neither fish nor
fowl! Neither the Unix people or the Windows people would want
to touch it.

The cygwin mailing list. Much more restrictive than here, and you
also have no idea what the problem is.

--
A: Because it fouls the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?

[Kenny McCormack]

In article <41************ ***@yahoo.com>,
CBFalconer <cb********@wor ldnet.att.net> wrote:

Kenny McCormack wrote:

... snip ...

(*) Somewhat related: I've often wondered where on Usenet, one
could ask questions about Cygwin. Talk about neither fish nor
fowl! Neither the Unix people or the Windows people would want
to touch it.

The cygwin mailing list. Much more restrictive than here, and you
also have no idea what the problem is.

(I have no idea what your post means)

[CBFalconer]

Kenny McCormack wrote:

CBFalconer <cb********@wor ldnet.att.net> wrote:

Kenny McCormack wrote:

... snip ...

(*) Somewhat related: I've often wondered where on Usenet, one
could ask questions about Cygwin. Talk about neither fish nor
fowl! Neither the Unix people or the Windows people would want
to touch it.

The cygwin mailing list. Much more restrictive than here, and you
also have no idea what the problem is.

(I have no idea what your post means)

You wanted to know where to ask questions about Cygwin. I told
you.

--
A: Because it fouls the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?