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.