switch statment fortran code example

Example: fortran select case

select case(a)
case(1)

case default

end select