Fortran if...then語句結構

if ... then 語句由一個邏輯表示式後跟一個或多個語句和終止 end if 語句。


if… then 語句的基本語法:

if (logical expression) then      
end if

但是可以給一個名稱,if 塊,那麼語法命名 if 語句如下:

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

如果邏輯表示式的計算結果為true,那麼塊程式碼內的 if ... then 語句會被執行。如果在結束後的邏輯表示式計算為false,那麼第一個程式碼塊之後的 if 語句會被執行。


Flow Diagram

範例 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