Switch syntax

[zxu4]

I cann't find how to write switch statement in Fortran from help.
I want to write something like this:

Switch(num)
case 1:
...
case 2:
...
return

Any advice?

Thanks!

Roy

[Steven_L_Intel1]

select case (num)
case (1)
  some code here
case (2:5)
  some code here
case default
  some code here
end select