SELECT CASE statement
Standard: F77 F90 F95 F2003
  Example Program
[ construct-name : ] SELECT CASE ( expression )

The SELECT CASE statement may appear only as the first statement of a CASE construct. The expression must be scalar and of type Integer, Real or Character.
The SELECT CASE statement introduces a CASE construct. This selects a single block of statements for execution, based on the value of the expression. If no block is selected, execution continues following the END SELECT statement.
CASE construct, CASE statement, CASE DEFAULT statement, END SELECT statement