RE: [Dev-C++] Mixed Language Programming w/Dev-Cpp

[Per W. <pw...@ia...>]

And besides, the function prototypes below are of the normal fortran
quality, since - at least for all old fortran standrds - the language
haven't been known to support very long symbol names. I'm a but rusty, but
isn't it somewhere around 6 characters that's the limit?

There isn't many people tht would call Fortran code beautiful, but that's
the language.

/Per W

On Wed, 30 Oct 2002, Scott Williams wrote:

> Well. . . there wasn't any 'code' in my message, just a sketch of the
> fortran subroutine prototypes I'm trying to call from c.  If you read my
> message, you'll note the source of the 'code' is an existing numerical
> package.  The author's standards of variable naming/white space use are of
> little concern to me and certainly have nothing to do with the question
> posed.
> 
> Scott
> 
> -----Original Message-----
> From: Daniel Glenfield [mailto:sp...@ho...]
> Sent: Wednesday, October 30, 2002 3:08 AM
> To: se...@al...; dev...@li...
> Subject: Re: [Dev-C++] Mixed Language Programming w/Dev-Cpp
> 
> 
> That is really ugly code! I'm sorry but please give variables meaningful
> names! And use Whitespace!
> 
> Sorry, I've been reading Code Complete recently. Excellent book - by Steve
> McConnell. A bit dated in places but excellent for ALL programmers (language
> and experience independent).
> 
> 
> >From: "Scott Williams" Reply-To: To: "Dev-Cpp-Users@Lists. Sourceforge.
> >Net" Subject: [Dev-C++] Mixed Language Programming w/Dev-Cpp Date: Tue, 29
> >Oct 2002 15:33:56 -0500
> >
> >Hi,
> >
> >Wondering if anyone has experience with mixed language programming and
> >whether it can be done with Dev-Cpp?
> >
> >In particular, I'm writing a mathematical simulation in C (using Dev-Cpp)
> >and would like to make using of some existing numerical routines in
> >Fortran. My C knowledge is necessity-based self-taught and so limited;
> >don't know anything about Fortran. Neither do I know much about using
> >compilers/linkers/etc in command line mode (which is why I use Dev-Cpp--I
> >let it worry about that stuff).
> >
> >Still, I know that built-in to the gcc interface is the g77 compiler so
> >there must be a way to compile the fortran source to an object with g77 and
> >then link to & call the routines from C. Could it be as simple as added
> >fortran source files to my Dev-Cpp project? If so, any thoughts on how to
> >prototype the Fortran functions & subfunctions to make them accessible to
> >the C calling routines?
> >
> >BTW, I've tried f2c but have been unable to make that work. That approach
> >is suboptimal anyway because the resulting C code is far less efficient
> >than the original Fortran source.
> >
> >Perhaps specifics would help. The fortran code I'm trying to use is a
> >single file ode.f The entry point is the subroutine ode. Here's how the
> >file is laid out:
> >
> >// ode.f
> >
> >subroutine ode(f,neqn,y,t,tout,relerr,abserr,iflag,work,iwork) implicit
> >real*8(a-h,o-z)
> >
> >c f -- double precision subroutine f(t,y,yp) to evaluate c derivatives
> >yp(i)=dy(i)/dt c neqn -- number of equations to be integrated (integer*4) c
> >y(*) -- solution vector at t (real*8) c t -- independent variable (real*8)
> >c tout -- point at which solution is desired (real*8) c relerr,abserr --
> >relative and absolute error tolerances for local c error test (real*8). at
> >each step the code requires c dabs(local error) .le. dabs(y)*relerr +
> >abserr c for each component of the local error and solution vectors c iflag
> >-- indicates status of integration (integer*4) c work(*) (real*8) -- arrays
> >to hold information internal to c iwork(*) (integer*4) which is necessary
> >for subsequent calls
> >
> >. . . ode calls de: subroutine de(f,neqn,y,t,tout,relerr,abserr,iflag, 1
> >yy,wt,p,yp,ypout,phi,alpha,beta,sig,v,w,g,phase1,psi,x,h,hold, 2
> >start,told,delsgn,ns,nornd,k,kold,isnold) implicit real*8(a-h,o-z)
> >
> >. . . de calls step & intrp: subroutine step(x,y,f,neqn,h,eps,wt,start, 1
> >hold,k,kold,crash,phi,p,yp,psi, 2 alpha,beta,sig,v,w,g,phase1,ns,nornd)
> >implicit real*8(a-h,o-z)
> >
> >subroutine intrp(x,y,xout,yout,ypout,neqn,kold,phi,psi) implicit
> >real*8(a-h,o-z) // end ode.f
> >
> >The derivative function f is written in C (and that's where I was having
> >probs with the f2c route).
> >
> >All help is appreciated (sorry for the long post).
> >
> >Scott
> >
> >
> >
> >------------------------------------------------------- This sf.net email
> >is sponsored by:ThinkGeek Welcome to geek heaven. http://thinkgeek.com/sf
> >_______________________________________________ Dev-cpp-users mailing list
> >Dev...@li... TO UNSUBSCRIBE:
> >http://www.noicys.cjb.net/devcpp/ub.htm
> >https://lists.sourceforge.net/lists/listinfo/dev-cpp-users
> 
> _________________________________________________________________
> Surf the Web without missing calls! Get MSN Broadband.
> http://resourcecenter.msn.com/access/plans/freeactivation.asp
> 
> 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> Dev-cpp-users mailing list
> Dev...@li...
> TO UNSUBSCRIBE: http://www.noicys.cjb.net/devcpp/ub.htm
> https://lists.sourceforge.net/lists/listinfo/dev-cpp-users
>