Fortran コマンドは Maple コードを Fortran 77 コードに変換します。

- パラメータ x が代数式の場合、その数式を変数に割り当てる Fortran 文が生成されます。

- x が代数式のリスト、rtable、または Maple 配列の場合、要素を Fortran 配列に割り当てる Fortran 文の式列が生成されます。rtable または Maple 配列の場合、初期化されている要素のみが変換されます。

- x が  形式の式のリスト ( は名前、 は代数式) である場合、x は代入文の式列を意味するものとして解釈されます。この場合、等価な意味を持つ Fortran の代入文の列が生成されます。

- x がプロシージャの場合、Fortran 関数またはサブルーチンが生成されます。

- x がモジュールの場合、Fortran プログラムが生成されます。詳細は FortranDetails ヘルプページを参照してください。

パラメータ cgopts には 1 つ以上の CodeGeneration オプションを指定できます。オプションの詳細は CodeGenerationOptions を参照してください。このコマンドでのみ使用可能な limitvariablelength=false オプションを指定すると、7 文字以上の名前を使用することができます。デフォルトでは、このような名前は Fortran 77 規格に適合しないため、自動的に置き換えられます。

CodeGeneration パッケージによる Maple コードから他の言語への変換についての詳細は、Translation Details を参照してください。Fortran への変換に特化した情報については、FortranDetails を参照してください。

with(CodeGeneration):

Fortran(x+y*z-2*x*z, resultname="w");

      w = x + y * z - 2 * x * z

Fortran([[x, 2*y], [5, z]], resultname="w");

      w(1,1) = x
      w(1,2) = 2 * y
      w(2,1) = 5
      w(2,2) = z

cs := [s=1.0+x, t=ln(s)*exp(-x), r=exp(-x)+x*t]:

Fortran(cs, optimize);

      s = 0.10D1 + x
      t1 = log(s)
      t2 = exp(-x)
      t = t1 * t2
      r = t2 + x * t

s := Fortran(x+y+1, declare=[x::float, y::integer], output=string);

f := proc(x, y, z) return x*y-y*z+x*z; end proc:

Fortran(f, defaulttype=integer);

      integer function f (x, y, z)
        integer x
        integer y
        integer z
        f = x * y - y * z + x * z
        return
      end

f := proc(n)
    local x, i;
    x := 0.0;
    for i to n do
        x := x + i;
    end do;
end proc:

Fortran(f);

      doubleprecision function f (n)
        integer n
        doubleprecision x
        integer i
        doubleprecision cgret
        x = 0.0D0
        do 100, i = 1, n, 1
          x = x + dble(i)
          cgret = x
100     continue
        f = cgret
        return
      end

f := proc(x::Array(numeric, 5..7))
    return x[5]+x[6]+x[7];
end proc:

Fortran(f);

      doubleprecision function f (x)
        doubleprecision x(5:7)
        f = x(5) + x(6) + x(7)
        return
      end

m := module() export p; local q;
    p := proc(x,y) if y>0 then trunc(x); else ceil(x); end if; end proc:
    q := proc(x) sin(x)^2 end proc:
end module:

Fortran(m, resultname=t0);

Warning, the function names {ceil} are not recognized in the target language
      doubleprecision function q (x)
        doubleprecision x
        q = sin(x) ** 2
        return
      end

      integer function p (x, y)
        doubleprecision x
        integer y
        if (0 .lt. y) then
          p = int(aint(x))
          return
        else
          p = int(ceil(x))
          return
        end if
      end

      program m
      end

f := proc(N)
    printf("%d is a Number.\n", N);
end proc:

Fortran(f);

      subroutine f (N)
        doubleprecision N
        print *, N, ' is a Number.'
      end

p:=proc() local longvar: end proc;

CodeGeneration[Fortran](p);

CodeGeneration[Fortran](p,limitvariablelength=false);