- 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
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
With InterCall you can:
o import routines written in Fortran, C, or Pascal and call them as if
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
o Current users of numerical libraries who want a simple development
o Teachers of courses such as numerical methods.
o Engineers, scientists, economists, physicists, mathematicians,
How Does One Use InterCall?
Loads the InterCall package In:= <<InterCall`;
Load the numerical library databases In:= <<InterData`;
Import IMSL's dqdag integration routine In:= GetDefault[
The ouput indicates the calling syntax Out= dqdag[$F_, $A_,
Integrate Sin[x] from x = 0 to x = Pi In:= dqdag[ Sin[#]&,
0, Pi ]
using IMSL. Out= 2.
Import IMSL's devasb routine for finding In:= GetDefault[
eigenvalues of a band-symmetric matrix. Out= devasb[$A_] ->
Define a band-symmetric matrix. In:= matrix =
Find the three smallest eigenvalues. In:= devasb[ matrix,
(NEVAL is documented in the IMSL manual) $NEVAL ->
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.
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.
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
InterCall is distributed by a number of methods:
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:
PO Box 522
Nedlands, WA 6909
Phone/Fax +61 8 9386 5666
Email: john at analytica.com.au
InterCall was developed by:
Dr. Terry Robb
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
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:
Next by thread: