[Date Index]
[Thread Index]
[Author Index]
Re: matrix
*To*: mathgroup at smc.vnet.net
*Subject*: [mg8693] Re: matrix
*From*: Paul Abbott <paul at physics.uwa.edu.au>
*Date*: Fri, 19 Sep 1997 02:47:36 -0400
*Organization*: University of Western Australia
*Sender*: owner-wri-mathgroup at wolfram.com
Ferruccio Renzoni wrote:
> I need to write on file a matrix 100*100 (numerics) produced by Mathematica
> in order to read it with a Fortran program (I am not very good with MathLink,
> so that's the easiest solution for me to make a "link" between the two
> programs). The writing takes too long (it has to be repeated several times).
> Which is the fastest way of writing on file compatible with Fortran?
If you are using Unix you could use InterCall. InterCall is a
Mathematica package designed to make it easy to link Mathematica and
fortran. See
http://www.wolfram.com/~terryr/
_______________________________________________________________________________
I n t e r C a l l
What is InterCall?
InterCall is a Mathematica package that provides:
o easy access to all the routines in the NAG, IMSL, LINPACK, MINPACK and
ITPACK subroutine libraries.
o interactive access to any other library or user-written code.
o straightforward declaration of default settings for arguments in
external
routines.
With InterCall you can:
o import routines written in Fortran, C, or Pascal and call them as if
they
were Mathematica functions.
o call external routines on a remote computer.
o develop and test the robustness and correctness of external libraries.
o write your own interface to other external libraries.
Why Use InterCall?
o To extend the type of problems that Mathematica can solve.
o The full scope of routines in standard numerical libraries become
available to Mathematica users.
o Intelligent defaults are supplied automatically by InterCall when you
call an external routine.
o Inspecting and modifying defaults is simple and uses commands named
GetDefault and SetDefault.
o Independent documentation, for calling external routines from within
Mathematica, is not required.
Who Should Use InterCall?
o Anyone whose work involves numeric processing and who wants
Mathematica's ease of use.
o Mathematica users who need to access numerical libraries on a
remote machine.
o Current users of numerical libraries who want a simple development
environment.
o Teachers of courses such as numerical methods.
o Engineers, scientists, economists, physicists, mathematicians,
statisticians etc.
How Does One Use InterCall?
Loads the InterCall package In[1]:= <<InterCall`;
Load the numerical library databases In[2]:= <<InterData`;
Import IMSL's dqdag integration routine In[3]:= GetDefault[
dqdag ]
The ouput indicates the calling syntax Out[3]= dqdag[$F_, $A_,
$B_] ->
$RESULT
Integrate Sin[x] from x = 0 to x = Pi In[4]:= dqdag[ Sin[#]&,
0, Pi ]
using IMSL. Out[4]= 2.
Import IMSL's devasb routine for finding In[5]:= GetDefault[
devasb ]
eigenvalues of a band-symmetric matrix. Out[5]= devasb[$A_] ->
$EVAL
Define a band-symmetric matrix. In[6]:= matrix =
{{0,-1,-1,-1,-1,-1},
{1,2,3,4,5,6}};
Find the three smallest eigenvalues. In[7]:= devasb[ matrix,
(NEVAL is documented in the IMSL manual) $NEVAL ->
3]
Out[7]=
{0.25380682011337,
1.7894724116954,
2.964906355386}
InterCall completely integrates the symbolic capabilities of
Mathematica with the numeric routines of any external library. You can
pass a Mathematica function, array, or any other expression, as an
argument to any external routine and InterCall will send the correct
type of information to that external routine.
System Requirements:
InterCall runs under Mathematica version 3, and requires a Unix kernel
or a Macintosh with a TCP/IP network connection.
Remote drivers to access external code on a remote computer are
available for Alliant, CrayC90, CrayYMP, CM2sun, CM5sun, Convex, DEC,
HP9000, HP9000_RISC, HP9000S700, IBMRS6000, NeXT, Sequent,SGI, Solaris,
SPARC, VAX, VP. A driver
for DEC Alpha (OSF) is under development.
InterCall includes:
o all the files needed to run InterCall on your computer.
o various remote drivers (available upon request)
o a detailed TeX manual describing how to use InterCall with Notebook
examples
InterCall is distributed by a number of methods:
Educational
Commercial/Government
o email/ftp with TeX manuals $275 $475
o email/ftp with manuals sent by post $300 $500
o tar or Mac formatted disk $315 $515
with printed manuals sent by post
o full installation done by rlogin $375 $575
via internet - printed manuals post
For more information on InterCall, please contact:
Analytica
PO Box 522
Nedlands, WA 6909
Australia
Phone/Fax +61 8 9386 5666
Email: john at analytica.com.au
WWW: http://www.analytica.com.au/
InterCall was developed by:
Dr. Terry Robb
Wolfram Research
_______________________________________________________________________________
Cheers,
Paul
____________________________________________________________________
Paul Abbott Phone: +61-8-9380-2734
Department of Physics Fax: +61-8-9380-1014
The University of Western Australia
Nedlands WA 6907 mailto:paul at physics.uwa.edu.au
AUSTRALIA http://www.pd.uwa.edu.au/~paul
God IS a weakly left-handed dice player
____________________________________________________________________
Prev by Date:
**Re: Union & precision <<take 2>>**
Next by Date:
**FindMinimum on a potentially Complex-valued function**
Previous by thread:
**Re: matrix**
Next by thread:
**"mesh" question**
| |