Fortran

Fortranの基本を紹介します。

よく使う基本機能

出力

print *, "Hello ", name

1次元配列の宣言(real)

real, dimension(N):: a

1次元配列の初期値指定(real)

data z/0.3,0.3,0.4/

2次元配列の宣言(real)

real, dimension(N,M):: b

2次元配列の初期値指定(real)

real::k(2,2)=reshape( (/0.0e0,-0.8,1.0,-0.07), (/2,2/) )

if文(ex.物性推算法による式の切替))

if ( Meth == 1 ) then
   m=0.48+1.574*Omega-0.176*Omega*Omega
else if ( Meth == 2 ) then
   m=0.37464+1.54226*Omega-0.26992*Omega*Omega
else
    print *, "select Methods"
end if

Doを使った繰り返し(ex.状態方程式のAmatrix計算)

DO i=1,N
DO j=1,N
AM(i,j)=sqrt(AA(i)*AA(j))*(1-k(i,j))
END DO
END DO

Fortranを使い始めて、初めにつまづいた規則

自由形で記述する場合、改行は改行の最終文字、改行後の行の最初の文字に&(アンパサンド)をつける
real::k(3,3)=reshape( (/0.0e0,-0.8, 0.03, 0.05, -0.001, 0.01, 0.02, &
& 1.0,-0.07), (/2,2/) )

Fortranコンパイラのインストール

こちらのブログに、インストール方法をまとめています。

Fortranで作成したdllファイルをRで呼び出す方法

こちらのブログに、Fortranで作成したdllファイルをRで呼び出す方法をまとめています。

当サイトに不具合、ご意見等ございましたらCEsolutionにお知らせください。

Page Top