Il Linguaggio Fortran 90/95

60 Tipi ed espressioni
...
END PROGRAM prova_complex
Specificare, invece, i parametri di kind per costanti di tipo complesso è un pò più complicato
in quanto una costante complessa può essere specificata come una coppia ordinata di valori
entrambi reali, entrambi interi, oppure di un valore intero e l’altro reale. Ovviamente, se sono
usati degli interi essi vengono convertiti nei reali corrispondenti. E’ conveniente trattare i diversi
casi in maniera distinta:
• Se entrambe le componenti sono reali con parametro di kind di default, la costante complessa
che ne deriva ha anch’essa parametro di kind di default. Così, ad esempio, la
costante:
(1.23,4.56)
ha parametro di kind di default al pari delle sue componenti.
• Se entrambe le componenti sono valori interi, quale che sia il loro parametro di kind,
queste vengono convertite nei valori reali corrispondenti ma con parametri di kind di
default, sicché la costante complessa che ne deriva avrà anch’essa parametro di kind di
default. Così, ad esempio, le costanti complesse:
(1_2,3)
(1,3)
(1_2,3_4)
hanno tutte parametro di kind di default.
• Se una sola delle componenti della costante complessa è una costante intera, il valore di
quest’ultima viene convertito in reale con lo stesso parametro di kind della componente
reale, e la costante complessa avrà anch’essa quel parametro di kind. Pertanto, le costanti
complesse:
(1,2.0)
(1,2.0_3)
hanno, la prima, parametro di kind di default, la seconda parametro di kind pari a 3.
• Se entrambe le componenti sono reali, il parametro di kind della costante complessa è
pari al parametro di kind della componente avente la precisione decimale maggiore. Se,
tuttavia, le precisioni delle due componenti coincidono, il processore è libero di scegliere il
parametro di kind di una qualsiasi delle due componenti. Pertanto, la costante complessa:
(1.2_3,3.4_3)
ha un parametro di kind pari a 3, mentre la costante:
(1.2_3,3.4_4)