Fortran – Nested If Construct

Fortran nested if construct

In this guide, we will discuss Fortran Nested If Construct. You can use one if or else if statement inside another if or else if statement(s).

Syntax

The syntax for a nested if statement is as follows −

if ( logical_expression 1) then
   !Executes when the boolean expression 1 is true 
   …
   
   if(logical_expression 2)then 
      ! Executes when the boolean expression 2 is true 
      …
   end if
end if

Example

program nestedIfProg
implicit none
   ! local variable declaration
   integer :: a = 100, b= 200
 
   ! check the logical condition using if statement
   if( a == 100 ) then
  
   ! if condition is true then check the following 
      
   if( b == 200 ) then
  
   ! if inner if condition is true 
   print*, "Value of a is 100 and b is 200" 
  
   end if
   end if
   
   print*, "exact value of a is ", a
   print*, "exact value of b is ", b
 
end program nestedIfProg

When the above code is compiled and executed, it produces the following result −

Value of a is 100 and b is 200
exact value of a is 100
exact value of b is 200

Next Topic : Click Here

This Post Has 2 Comments

Leave a Reply