doc/info/ja/f90.texi

   1 @menu
   2 * Functions and Variables for f90::
   3 @end menu
   4
   5 @node Functions and Variables for f90,  , f90, f90
   6 @section Functions and Variables for f90
   7
   8
   9 @deffn {関数} f90 (@var{expr_1}, ..., @var{expr_n})
  10
  11 １つ以上の式@var{expr_1}, ..., @var{expr_n}を
  12 Fortran 90プログラムとして印字します。
  13 出力は標準出力に印字されます。
  14
  15 @code{f90}は
  16 Fortran 90のいわゆる「自由形式」入力フォーマットで出力を印字します:
  17 列位置に特別な注意はありません。
  18 長い行は、
  19 アンパサンド@code{&}継続文字で固定幅に分割されます。
  20
  21 @code{load(f90)}はこの関数をロードします。
  22
  23 例:
  24
  25 @c ===beg===
  26 @c load (f90)$
  27 @c foo : expand ((xxx + yyy + 7)^4);
  28 @c f90 ('foo = foo);
  29 @c ===end===
  30 @example
  31 (%i1) load (f90)$
  32 (%i2) foo : expand ((xxx + yyy + 7)^4);
  33          4            3         3        2    2             2
  34 (%o2) yyy  + 4 xxx yyy  + 28 yyy  + 6 xxx  yyy  + 84 xxx yyy
  35           2        3             2
  36  + 294 yyy  + 4 xxx  yyy + 84 xxx  yyy + 588 xxx yyy + 1372 yyy
  37       4         3          2
  38  + xxx  + 28 xxx  + 294 xxx  + 1372 xxx + 2401
  39 (%i3) f90 ('foo = foo);
  40 foo = yyy**4+4*xxx*yyy**3+28*yyy**3+6*xxx**2*yyy**2+84*xxx*yyy**2&
  41 +294*yyy**2+4*xxx**3*yyy+84*xxx**2*yyy+588*xxx*yyy+1372*yyy+xxx**&
  42 4+28*xxx**3+294*xxx**2+1372*xxx+2401
  43 (%o3)                         false
  44 @end example
  45
  46 複数式。
  47 @code{with_stdout}関数を介して標準出力をファイルにとらえます。
  48
  49 @c ===beg===
  50 @c load (f90)$
  51 @c foo : sin (3*x + 1) - cos (7*x - 2);
  52 @c with_stdout ("foo.f90", f90 (x = 0.25, y = 0.625, 'foo = foo, 'stop, 'end));
  53 @c printfile ("foo.f90");
  54 @c ===end===
  55 @example
  56 (%i1) load (f90)$
  57 (%i2) foo : sin (3*x + 1) - cos (7*x - 2);
  58 (%o2)              sin(3 x + 1) - cos(7 x - 2)
  59 (%i3) with_stdout ("foo.f90",
  60                    f90 (x = 0.25, y = 0.625, 'foo = foo, 'stop, 'end));
  61 (%o3)                         false
  62 (%i4) printfile ("foo.f90");
  63 x = 0.25
  64 y = 0.625
  65 foo = sin(3*x+1)-cos(7*x-2)
  66 stop
  67 end
  68 (%o4)                        foo.f90
  69 @end example
  70
  71 @opencatbox
  72 @category{Translation and compilation} @category{Share packages} @category{Package f90}
  73 @closecatbox
  74
  75 @end deffn
  76