SELECT CASE Construct II

This is useful if one of several paths must be chosen based on the value of a single expression.

The syntax is as follows,

 
 [ < name >: ] SELECT CASE (< case-expr >)

		 [ CASE (< case-selector >) [ < name > ]

		 		 < exec-stmts > ] ...

		 [ CASE DEFAULT [ < name > ]

		 		 < exec-stmts > ]

END SELECT  [ < name > ]

Note,

• the < case-expr > must be scalar and INTEGER, LOGICAL or CHARACTER valued;
• the < case-selector > is a parenthesised single value or range, for example, (.TRUE.), (1) or (99:101);
• there can only be one CASE DEFAULT branch;
• control cannot jump into a CASE construct.

For more information, click here