Il Linguaggio Fortran 90/95

94 Istruzioni di controllo
d = b**2-4.*a*c
IF (d > 0.) THEN
PRINT*, "Radici reali e distinte"
x1 = (-b-SQRT(d))/(2.*a)
x2 = (-b+SQRT(d))/(2.*a)
ELSE IF (d == 0.) THEN
PRINT*, "Radici reali e coincidenti"
x1 = -b/(2.*a)
x2 = x1
ELSE
PRINT*, "Radici complesse coniugate"
x1 = CMPLX(-b,-SQRT(-d))/(2.*a)
x2 = CONJG(x1)
END IF
WRITE(*,*) x1, x2
STOP
END PROGRAM eq_2
E’ importante osservare che, per motivi di efficienza, sarebbe opportuno che venissero esaminate
(e quindi scritte) per prime le espressioni logiche a più elevata probabilità di risultare
vere, in modo da rendere probabilisticamente minimo il numero di espressioni da calcolare fino
a trovare quella vera. Si noti ancora che non è necessario che le espressioni logiche siano mutuamente
esclusive, ma è solo necessario che per j > i espressione_logica_j possa risultare
vera se espressione_logica_i è falsa (ma potrebbe esserlo anche se espressione_logica_i
risultasse vera). Infine, si consideri che se la valutazione di un’espressione logica è onerosa, essa
può essere conveniente sostituirla con un’altra espressione ”algebricamente” equivalente che sia,
però, di più semplice valutazione. Ad esempio, piuttosto che verificare che risulti √ x > 2, si
può in maniera più efficiente controllare che sia x > 4.
Come visto precedentemente, la forma generale dei costrutti IF e IF THEN ELSE prevede
anche la presenza di un nome opzionale. Assegnare un nome a questi costrutti può tornare
particolarmente utile in presenza di blocchi IF innestati. Si fa presente che due costrutti IF
si dicono innestati o ”annidati” quando uno di essi giace completamente all’interno dell’altro.
In questi casi la presenza di un ”riferimento” ai singoli blocchi può contribuire a rendere un
programma più semplice da gestire e da interpretare, come mostrato dal seguente esempio:
outer: IF (x > 0.0) THEN
...
ELSE outer
inner: IF (y < 0.0) THEN
...
ENDIF inner
ENDIF outer
E’ sempre consigliabile assegnare dei nomi ai costrutti IF quando questi sono annidati in quanto
il nome indica esplicitamente a quale costruttoIF è associata una determinata clausolaELSE IF