Il Linguaggio Fortran 90/95

24 Tipi ed espressioni
1.3.5 Oggetti di tipo COMPLEX
Una entità di tipo complesso è un oggetto atto ad ospitare un valore appartenente ad un
sottoinsieme dei numeri complessi. Esso si compone di due parti: una parte reale ed una
parte immaginaria. Il tipo complesso, quindi, immagazzina un valore complesso in due unità
di memoria consecutive atte a contenere, ciascuna, un valore reale, il primo rappresentante la
parte reale, il secondo la parte immaginaria del valore complesso.
La sintassi di una istruzione di dichiarazione di oggetti di tipo complesso ha la seguente
forma:
COMPLEX [[([KIND=]parametro di kind)][, attributi] ::] lista_di_oggetti
Ad esempio, la seguente istruzione dichiara due variabili complesse v e w aventi parametro di
kind pari a 3.
COMPLEX(KIND=3) :: v, w
Si noti, tuttavia, che dal momento che un numero complesso rappresenta un’entità ”composta”
consistente in una coppia di numeri reali, il valore del selettore di kind, sia che esso venga
specificato in maniera implicita sia che venga espresso in forma esplicita, è applicato a entrambi
i componenti. Pertanto, le due variabili complesse v e w precedentemente definite saranno
caratterizzate entrambe da una coppia di componenti (la parte reale e la parte immaginaria)
reali aventi numero di kind pari a tre. Un ulteriore esempio di dichiarazione (entity-oriented)
è:
COMPLEX(KIND=4), DIMENSION(8) :: cz, cq
mentre la sua ”versione” attribute-oriented è:
COMPLEX(KIND=4) :: cz, cq
DIMENSION(8) cz, cq
Una costante complessa approssima il valore di un numero complesso pertanto essa è scritta
come una coppia di costanti numeriche separate da una virgola e racchiuse tra parentesi. La
prima di tali costanti rappresenta la parte reale del valore complesso, la seconda la parte
immaginaria. La forma generale di una costante complessa è la seguente:
(parte_reale, parte_immaginaria)
in cui parte_reale e parte_immaginaria sono costanti di tipo REAL.
Esempi di costanti complesse sono le seguenti:
(1.5,7.3)
(1.59E4,-12E-1)
(2.5,6.)
(19.0,2.5E+3)