Re: Linking my fortran subroutines with Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg111316] Re: Linking my fortran subroutines with Mathematica
- From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
- Date: Tue, 27 Jul 2010 04:18:09 -0400 (EDT)
Hi,
I never wrote fortran but it shouldn't be too hard.
First the fortran-file "function.f90" with the content
>>>>>
real*8 function fortfunc(a,b)
real*8 a,b
fortfunc=a*b
end function fortfunc
>>>>>
Second the interface.tm for the MathLink
>>>>>
#include "mathlink.h"
extern "C" double fortfunc_(double *a, double *b);
:Begin:
:Function: multiply
:Pattern: multiply[a_?NumericQ, b_?NumericQ]
:Arguments: { a, b }
:ArgumentTypes: { Real, Real }
:ReturnType: Real
:End:
double multiply( double a, double b)
{
return fortfunc_(&a, &b);
}
int main(int argc, char* argv[])
{
return MLMain(argc, argv);
}
>>>>>
Compile the fortran file with
g95 -Wall -c function.f90
process the .tm file with the mprep program to create the .c file
mprep -o interface.c interface.tm
compile the file and link it with the objectfile from your fortran code
g++ -I$mpath interface.c function.o -L$mpath -lMLi3
Here $mpath contains the path to the MathLink compiler stuff. On my
OSX this is
mpath=/Applications/Development/Mathematica7.app/SystemFiles/Links/
MathLink/DeveloperKit/CompilerAdditions/
on a linux box the Mathematica root is usually under /usr/local/
Wolfram/Mathematica/
Then you can start the executable
./a.out -linkname blub -linkmode listen
and use it inside a Mathematica session with e.g.
lnk = Install[LinkConnect["blub"]]
LinkPatterns[lnk]
multiply[10.0, 11.0]
Uninstall[lnk]
That's it.
Cheers
Patrick
Am Jul 26, 2010 um 1:06 PM schrieb Eduardo M. A. M.Mendes:
> Hi
>
> Many thanks.
>
> Won't you have an example?
>
> Cheers
>
> Ed
>
>
> -----Original Message-----
> From: Patrick Scheibe [mailto:pscheibe at trm.uni-leipzig.de]
> Sent: Sunday, July 25, 2010 10:35 PM
> To: emamm
> Cc: mathgroup at smc.vnet.net
> Subject: Re: [mg111250] Linking my fortran subroutines with
> Mathematica
>
> Hi,
>
> just make a wrapper for your Fortran functions so you can call them
> from
> C. Once this is done you can simply call them through the MathLink.
> You could start by compiling your Fortran functions into a .so or .dll
> or however the shared libraries are called on your OS. Then create a
> MathLink-template and call those functions from there..
>
> I really don't know how to explain this better since it is straight
> forward and you should have a running example in a few minutes.
>
> Cheers
> Patrick
>
> On Sun, 2010-07-25 at 01:58 -0400, emamm wrote:
>> Hello
>>
>> I am new to Mathematica. Although I have searched the web for answers
>> on how to link fortran to Mathematica without buying MathCode F90, I
>> have not found good examples on how to link Fortran to Mathematica.
>>
>> All my fortran functions were modified to accept a C-wrapper. I did
>> that to link them to another system. I have no problem to create
>> mex files
> on
>> either Windows or Linux using gcc,gfortran or g95 (all free
>> compilers!). My fortran functions work exactly as m-file on the other
> system
>> with lots of input and output arguments - The input arguments
>> determine the size of the output arguments via malloc on C.
>>
>> I believe that there is something similar to a mex file for
>> Mathematica but the documentation on Wolfram's site does not give me
>> much information.
>>
>> Would someone out there have a nice, neat example (not too simple,
>> please - addrow from Wolfram's site is way too simple!) on how to
>> link
>> fortran to Mathematica?
>>
>> Many thanks
>>
>> Ed
>>
>>
>> PS. MathCode F90 seems to do what I want but for a a price (and
>> what a
>> price!).
>>
>
>