INTEGER :: suma
suma = suma +1
IF( condicion ) THEN
sentencias/s
ENDIF
IF( condicion ) THEN
sentencias/s
ELSE
sentencias/s
ENDIF
IF( condicion ) THEN
sentencias/s
ELSEIF (condicion1) THEN
sentencias/s
ELSEIF (condicion2) THEN
sentencias/s
.....
ELSE
sentencia/s
ENDIF
IF (condicion) sentencia
x y (x.AND.y) (x.OR.y)
.FALSE. .FALSE. .FALSE. .FALSE.
.FALSE. .TRUE. .FALSE. .TRUE.
.TRUE. .FALSE. .FALSE. .TRUE.
.TRUE. .TRUE. .TRUE. .TRUE.