SELECT CASE (num) CASE (6,9,99,66) ! IF(num==9.OR. .. .OR.char==66) THEN PRINT*, "Woof woof" CASE (10:65,67:98) ! ELSEIF((num.GE.10.AND.LE.65) .OR. ... PRINT*, "Bow wow" CASE (100:) ! ELSEIF (num.GE.100) THEN PRINT*, "Bark" CASE DEFAULT ! ELSE PRINT*, "Meeeoow" END SELECT ! ENDIF
An IF .. ENDIF construct could be used but a SELECT CASE is neater and more efficient.
For more information, click here