Sentencias de control fortran

SENTENCIA CASE

SENTENCIA CASE
 La sentencia CASE equivale en cierta forma a una sentencia IF-ELSE IF

compleja. Su forma general es la siguiente:

SELECT CASE (expresion caso) CASE(selector de caso 1 o lista_de_valores1) bloque de sentencias 1 CASE (selector de caso 2 o lista_de_valores2) bloque de sentencias 2 CASE DEFAULT bloque de sentencias 3 END SELECT
 El bloque SELECT CASEejecuta un bloque determinado de sentencias

cuando el valor de la expresión caso coincide o pertenece al rango dado de su correspondiente selector de caso. CASE. El bloque de sentencias de este casopor defecto se ejecuta cuando el valor de la expresión caso no coincide con ningún selector de caso.

 Opcionalmente puede existir un CASE DEFAULT en un bloque SELECT

SENTENCIA CASE
 expresióncaso es una expresión entera, lógica o de caracteres.  Selector de caso es una lista de uno o más valores posibles del mismo tipo

que la expresión caso. Cada selector de caso debe ser mutuamenteexcluyente. Los valores pueden escribirse como:
 valor

 valormin: valormax
 : valormax  valormin:  o una combinación de las formas anteriores separadas por comas.

 Es recomendable ponernombre a un bloque SELECT CASE largo y

complicado. Por un lado, el programador estructura mejor los programas y, por otro, el compilador encuentra errores en su código de forma más precisa.SENTENCIA CASE CON NOMBRE
 Su sintaxis general es:

[nombre:] SELECT CASE (expresión caso) CASE (selector de caso 1) [nombre] bloque de sentencias 1 [CASE (selector de caso 2) [nombre] bloque desentencias 2] … [CASE DEFAULT [nombre] bloque de sentencias n] END SELECT [nombre]

EJEMPLOS DE BLOQUE SELECT CASE
 Determinar si un número entero entre 1 y 10 es par o impar y

visualizar unmensaje adecuado en consecuencia.
INTEGER :: valor parimpar: SELECT CASE (valor) CASE (1, 3, 5, 7, 9) WRITE (*,*) ‘el valor es impar’ CASE (2, 4, 6, 8, 10) WRITE (*,*) ‘el valor es par’ CASE (11:) WRITE...