# SELECT CASE and END SELECT

Statement: Transfers program control to a selected block of statements according to the value of a controlling expression.

## Example

     CHARACTER*1 cmdchar
     . . .
     Files: SELECT CASE (cmdchar)
       CASE ('0')
         WRITE (*, *) "Must retrieve one to nine files"
       CASE ('1':'9')
         CALL RetrieveNumFiles (cmdchar)
       CASE ('A', 'a')
         CALL AddEntry
       CASE ('D', 'd')
         CALL DeleteEntry
       CASE ('H', 'h')
         CALL Help
       CASE DEFAULT
         WRITE (*, *) "Command not recognized; please re-enter"
     END SELECT Files

Parent topic: S