Conditionals

A conditional is a programming construct that implements decisions.

• If the weather is good then we will go for a walk, else we will stay inside and watch TV.
• If it is cold enough to snow I will wear my heavy coat, else if it is warmer and just rains I will wear my rainjacket. The expression following each if or else must be true or false, i.e. a logical expression (in Fortran terminology).

Conditional Operators

Conditional operators are used to construct logical (Boolean) expressions.

Numeric Operators

These are used to compare numerical values. Fortran has two sets, one with letters and one with symbols. Note that /= has a / for “not.” The periods around the letter-based operators are required.

Logical Operators

It is important to note that .OR. is an inclusive or. It evaluates to .TRUE. if either operand is true. This is different from many human languages, for which “or” is generally, though not always, exclusive. An exclusive “or” is true only if exactly one of the conditions is true. You can have cake or ice cream (but not both). An exclusive or can be constructed with

(a .AND. .NOT. b) .OR. (.NOT. a .AND. b)

where a and b are logical expressions.

Conditional Operator Precedence

Like arithmetic operators, conditional operators have a precedence ordering.

• .NOT. has the highest rank
• >,>=,<,<= are equal and outrank == or /=
• ==,/= are equal and outrank .AND.
• .AND. outranks .OR.

As always, use parentheses to change grouping or to improve clarity.

IF-THEN-ELSE

The ELSEIF/ELSE IF and ELSE are optional. The parentheses around the logical expression are required.

   IF ( logical ) THEN
      code
   ELSEIF ( logical) THEN
      more code
   ELSE
      yet more code
   ENDIF

Only one branch will be executed. Once any logical expression is determined to be true, the corresponding code will be executed and then the flow will proceed beyond the if block.

Exercise Experiment with various truth values for bool1 and bool2.

program ifdemo
implicit none
   
   logical :: L1=.true., L2=.true.

   if (L1) then
      print *, "The if"
   else if (L2) then
      print *, "The else if"
   else
      print *, "The else"
   endif

end program  

SELECT CASE

Many “else ifs” can become confusing. The SELECT CASE construct can simplify the statements, under the right conditions. “Expression” refers to any valid expression that can be evaluated to “value0”, “value1”, etc.

   SELECT CASE (expression)
      CASE(:value0)   ! Expression <= value0
         code
      CASE(value1)
        code
      CASE(value2)
        code
      CASE(value3:)  ! Expression >=value3
        code
      CASE (value4,value5,value6) !Multiples OK
        code
      CASE (value7:value9)
        code
      CASE DEFAULT    ! Optional
        code
   END SELECT

“Expression” must be character, integer, or logical. Ranges are only applicable for numeric or character expressions. DEFAULT is for the action, if any, to be taken if the expression does not evaluate to any of the options available.

Example

program selectcase
implicit none

   integer :: i
   integer :: x 
   real    :: y

   x=15

   select case (x)
      case  (:0)
         y=-real(x)
      case (1)
         y=x+3.
      case (2:9)
         y=float(x)/2.
      case (10:20)
         y=float(x)/3.
      case default
         y=0.
   end select

   print *, x, y

end program

Exercise:

This is the National Football Conference standings in late 2020: The Packers only need a win over the Chicago Bears to secure the No. 1 seed in the NFC. A loss or tie by the Seattle Seahawks would also give Green Bay the top spot. If the Packers lose, though, the Seahawks or New Orleans Saints could claim the top spot. The Saints would secure the No. 1 seed with a Packers loss, a win and a Seattle win. Seattle can get it with a win, a Green Bay loss and a New Orleans loss or tie.

Write a program to determine whether the Packers will win the No. 1 seed. Given the following conditions (not what happened), who won?

Packers lose to Bears
Seattle wins
The Saints tie

Hint: code can often be simplified with the introduction of logical variables which are sometimes also called flags.
Hint: if a variable is already a logical it is not necessary to test it against .true. or .false.
Hint: a loss or tie is not a win.

program nfc
implicit none

logical  :: packers_win, seahawks_win, saints_win
logical  :: packers_lose, seahawks_lose, saints_lose
logical  :: packers_advance=.false.
logical  :: seahawks_advance=.false.
logical  :: saints_advance=.false.

   packers_win=.false.; packers_lose=.true.
   seahawks_win=.true.; seahawks_lose=.false.
   saints_win=.false.; saints_lose=.false.

   if ( packers_win .or. ( .not. seahawks_win ) ) then
      packers_advance=.true.
   endif

   if ( seahawks_win ) then
       if ( packers_lose .and. .not. saints_win ) then
          seahawks_advance=.true.
       endif
    endif

    if ( saints_win ) then
       if ( packers_lose .and. seahawks_win ) then
          saints_advance=.true.
       endif
    endif

    if ( packers_advance ) then
        print *, "Packers advance!"
    else if ( seahawks_advance ) then
        print *, "Seahawks advance!"
    else if ( saints_advance ) then
        print *, "Saints advance!"
    else
        print *, "Error: no match to conditions."
    endif

end program nfc