条件分岐（if）

条件によって特定の処理を実行させたり、させなかったりしたい場合があります。
そのような場合、fortranではif文やcase文を使います。

この記事ではif文を使った条件分岐について説明します。
記事の最後にサンプルプログラムを掲載しています。

if文の記述ルール

if文の基本形は以下のとおりです。条件１を満たしている（真である）場合に、処理１が実行されます。

if (条件１) 処理１

複数の処理を実行したければ、以下のように書きます。ちなみに、処理の数が一つの場合でも以下の書式は使えます。

if (条件１) then
__処理１
__処理２
end if

条件１を満たしている（真である）場合には処理１を実行し、満たしていない（偽である）場合には処理２を実行するプログラムは以下のように else を用いて記述します。

if (条件１) then
__処理１
else
__処理２
end if

条件１と条件２の両方を満たしている場合に、処理１を実行させたければ、以下のように .and. を用います。and の前と後に . (ドット)を付けるのを忘れないで下さいね。

if ((条件1) .and. (条件2)) 処理１

条件１と条件２のいずれかを満たしている場合に、処理１を実行させたければ、以下のように .or. を用います。同じく or の前と後に . (ドット)を付けて下さい。

if ((条件1) .or. (条件2)) 処理１

.and. と .or. を同時に使うときは、以下のように優先したい条件をかっこでくくります。以下の例では、条件１と条件２のいずれかが満たされ、かつ条件３が満たされた場合に、処理１が実行されます。

if ( ((条件1) .or. (条件2)) .and. (条件３) ) 処理１

以下のように、if文の中にif文を入れることもできます。この場合、条件１と条件２が満たされれば、処理１が実行されます。

if (条件1) then
__if (条件２) then
____処理１
__end if
end if

条件の記述方法（比較演算子）

変数Aが変数Bより大きい場合に、処理１を実行させるには以下のように記述します。

if (A > B) then
__処理１
end if

上記の > （不等号の記号）は、比較演算子と呼ばれます。比較演算子には以下のようなものがあります。等しい場合は、== のようにイコールを２回続けて記載する点に注意して下さい。

__A == B__! AはBと等しい
__A != B__! AはBと異なる
__A > B___! AはBより大きい
__A < B___! AはBより小さい
__A >= B__! AはB以上である
__A <= B__! AはB以下である

if文のちょっとしたtips

tipsを以下に列挙します。読みやすいプログラムや、速いプログラムを書くときに役に立つと思うので、頭の片隅に置いておいて下さいね。

・if文の中にif文を入れる場合は、あまり多重にしない。プログラムの可読性が下がります。アルゴリズムを工夫して２重ぐらいにとどめましょう。

・条件が多いときは、case文を使いましょう。可読性が上がります。case文は別記事で解説します。→ 条件分岐（case）

・if文の処理には掛け算１回分と同程度の時間がかかります。繰り返し回数の多いループ文の中では可能な限りif文を減らしましょう。ループ文は別記事で解説します。→ 繰り返し（do）

サンプルプログラム

サンプルプログラムを下記します。4-6行目は変数の型宣言、8-11行目は変数に初期値を代入、18-24行目は実数型変数と実数の比較、26-36行目は実数型変数同士の比較、38-42行目は文字型変数と文字列の比較です。

44-45行目では、実数型変数と実数の比較結果が真の場合に、論理型変数に .true. を代入し、この論理型変数の真偽判定を46-50行目で実行しています。if文が複雑になることを回避するために、こんな書き方をする場合があります。ちなみに、論理型変数の真偽判定では、
if (lg == .true.) then
のような書き方もできますが、== .true. は省略できます。

以下のFortranプログラムをコピペし、****.f90の名前で保存して下さい(****の部分は適当でいいです)。コピペが面倒な場合は、こちらからダウンロードして下さい(右クリックメニューから保存)。→ sample05.f90

program sample05
  implicit none
!--------------------------------------------------------------------
  real(8) :: a, b, c
  character(len=80) :: o
  logical :: lg
!--------------------------------------------------------------------
  a = 1.0
  b = 2.0
  c = 3.0
  o = 'dog'
 
  write(*,'(a,f3.1)') 'a = ', a
  write(*,'(a,f3.1)') 'b = ', b
  write(*,'(a,f3.1)') 'c = ', c
  write(*,'(a,a10)') 'o = ', o
 
  if (a &gt; 0.0) write(*,'(a)') 'True: a is greater than 0.0.'
 
  if (a &gt;= 1.0) then
    write(*,'(a)') 'True: a is greater than  or equal to 1.0.'
  else
    write(*,'(a)') 'False: a is less than 1.0.'
  end if
 
  if (a &gt; b) then
    write(*,'(a)') 'True: a is greater than b.'
  else
    write(*,'(a)') 'False: a is less than or equal to b.'
  end if
 
  if ( ((a &gt; b) .or. (c &gt; b)) .and. (c &gt; a) ) then
    write(*,'(a)') 'True: ((a &gt; b) .or. (c &gt; b)) .and. (c &gt; a)'
  else
    write(*,'(a)') 'False'
  end if
 
  if (o == 'cat') then
    write(*,'(a)') 'True: o is cat.'
  else
    write(*,'(a)') 'False: o is not cat.'
  end if
 
  lg = .false.
  if (a &gt; 0.0) lg = .true.
  if ( lg ) then
    write(*,'(a)') 'True'
  else
    write(*,'(a)') 'False'
  end if
 
!--------------------------------------------------------------------
end program sample05