function f = fortran(s)
%FORTRAN  Fortran representation of a symbolic expression.
%   FORTRAN(S) is a fragment of Fortran that evaluates symbolic expression S.
%
%   Examples:
%      syms x
%      f = taylor(log(1+x));
%      fortran(f) =
%
%         t0 = x-x**2/2+x**3/3-x**4/4+x**5/5
%
%      H = sym(hilb(3));
%      fortran(H) =
%
%         H(1,1) = 1            H(1,2) = 1.E0/2.E0    H(1,3) = 1.E0/3.E0
%         H(2,1) = 1.E0/2.E0    H(2,2) = 1.E0/3.E0    H(2,3) = 1.E0/4.E0
%         H(3,1) = 1.E0/3.E0    H(3,2) = 1.E0/4.E0    H(3,3) = 1.E0/5.E0
%
%   See also PRETTY, LATEX, CCODE.

%   Copyright 1993-2002 The MathWorks, Inc.
%   $Revision: 1.6 $  $Date: 2002/04/15 03:12:27 $

t = inputname(1);
if isempty(t), t = 'T'; end
maple([t ':=' char(s)]);
f = maple(['fortran(' t ');']);
maple([t ':=''' t '''']);