現在作成中 as of 2010-04-28 (水) 17:38:29
陰山 聡
まずはじめに(全部大文字の)FORTRANという言語は存在しない。 Fortran90やFortran95という言語ならある。 FORTRAN77という言語はあった*1。
| f95 - f90 | << | f90 - f77 |
任意サイズの3次元実数配列を受け取り、平均値を返す関数
real function mean_value(f) real, dimension(:,:,:) :: f mean_value = sum(f) / (size(f,1)*size(f,2)*size(f,3)) end function mean_value
3次元実数配列を受け取って
空間中に分布する磁場(3成分のベクトル場)
Bx(100,100,100), By(100,100,100), Bz(100,100,100)
の全磁気エネルギーは、
energy = sum(Bx**2+By**2+Bz**2)/2
と一行(定義式そのもの)を書けば良い。
○○○○○○○○○○○○○○○○○○○○○○○○