4.10) Decisions With More Freedom To Test
1 program example9 2 real :: a 3 real :: b 4 a=10.0 5 b=5.0 6 if ( a > b ) then 7 print *, ‘a is greater than b’ 8 else if ( a > 4.0 ) then 9 print *, 'a is greater than 4.0' 10 else 11 print *, ‘increase the value of a’ 12 endif 13 end program example9