Fortran-If-then-construct

Fortran-if-thenコンストラクト

*if…then* ステートメントは、論理式とそれに続く1つ以上のステートメントで構成され、 *end if* ステートメントで終了します。

構文

*if…then* ステートメントの基本構文は次のとおりです-

if (logical expression) then
   statement
end if

ただし、 if ブロックに名前を付けると、名前付き if ステートメントの構文は次のようになります-

[name:] if (logical expression) then
   ! various statements
   . . .
end if [name]

論理式が true と評価された場合、 if…then ステートメント内のコードブロックが実行されます。 論理式の評価が false の場合、 end if ステートメントの後の最初のコードセットが実行されます。

流れ図

フロー図

例1

program ifProg
implicit none
   ! local variable declaration
   integer :: a = 10

   ! check the logical condition using if statement
   if (a < 20 ) then

   !if condition is true then print the following
   print*, "a is less than 20"
   end if

   print*, "value of a is ", a
 end program ifProg

上記のコードをコンパイルして実行すると、次の結果が生成されます-

a is less than 20
value of a is 10

例2

この例は、名前付き if ブロックを示しています-

program markGradeA
implicit none
   real :: marks
   ! assign marks
   marks = 90.4
   ! use an if statement to give grade

   gr: if (marks > 90.0) then
   print *, " Grade A"
   end if gr
end program markGradeA

上記のコードをコンパイルして実行すると、次の結果が生成されます-

Grade A