Il Linguaggio Fortran 90/95

96 Istruzioni di controllo
Una cosa importante da tenere a mente è che tutti i selettori devono escludersi a vicenda,
nel senso che uno stesso valore non può apparire in più di un selettore.
Un altro esempio interessante è rappresentato dal seguente programma il quale rappresenta
semplicemente una variazione dell’esempio già visto in precedenza per il calcolo delle radici reali
di una equazione algebrica di secondo grado; l’unica differenza è rappresentata dal fatto che in
questo caso le condizioni sul segno del discriminante vengono gestite da un costrutto SELECT
CASE piuttosto che da un costrutto IF THEN ELSE:
PROGRAM eq2bis
! Scopo: calcolare le (eventuali) radici reali di una
! equazione algebrica di secondo grado
IMPLICIT NONE
REAL, PARAMETER :: epsilon=1.0e-8
! Coefficienti dell’equazione e discriminante
REAL :: a, b, c, delta
! Radici reali
REAL :: root1, root2
! Variabili di appoggio
REAL :: rt_d, two_a
! Selettore del costrutto SELECT CASE
INTEGER :: selettore
!
PRINT*, "Introdurre i coefficienti:"
READ(*,*) a,b,c
delta = b**2 - 4.0*a*c
! Valuta il selettore
selettore = INT(delta/epsilon)
SELECT CASE (selettore)
CASE(1:) ! Radici reali e distinte
rt_d = SQRT(delta)
two_a = 2.0*a
root1 = (-b+rt_d)/two_a
root2 = (-b-rt_d)/two_a
PRINT*, "Le radici sono: ",root1,root2
CASE(0) ! Radici reali e coincidenti
root1 = -b / 2.0 * a
PRINT*, "La radice (di molteplicita’ 2) e’: ",root1
CASE(:-1) ! Radici complesse e coniugate
PRINT*, "L’equazione non ammette radici reali"
END SELECT
END PROGRAM eq2bis
Un esempio di impiego del precedente programma potrebbe essere il seguente:
C:\MYPROG>eq2case