Il Linguaggio Fortran 90/95

452 Procedure intrinseche
A Qualsiasi
BACK Logico
DIM Intero
I Intero
KIND Intero
MASK Logico
STRING Stringa
X, Y Numerico (intero, reale o complesso)
Z Complesso
• La seconda colonna riporta il nome specifico di una funzione intrinseca. Se questa colonna
è vuota la procedura non ha un nome specifico e non può essere utilizzata come argomento
in una chiamata di procedura. I tipi di dati utilizzati con le funzioni specifiche sono:
c, c1, c2, ... Complesso di default
d, d1, d2, ... Reale in doppia precisione
i, i1, i2, ... Intero di default
r, r1, r2, ... Reale di default
l, l1, l2, ... Logico
str1, str2, ... Stringa
Come è noto, molte funzioni intrinseche possono essere utilizzate con argomenti di tipo
diverso sia utilizzando sempre lo stesso nome generico sia utilizzando un nome specifico
in relazione al tipo dell’argomento. Così, ad esempio, per valutare la radice quadrata di
un oggetto x di tipo numerico ed assegnarla alla variabile radice è possibile scrivere:
radice = SQRT(x)
indipendentemente dal tipo dell’argomento, oppure è possibile specificare il nome specifico
a seconda del tipo dell’argomento (e del risultato):
radice_r = SQRT(x) ! se x e’ REAL singola precisione
radice_d = DSQRT(x) ! se x e’ REAL doppia precisione
radice_c = CSQRT(x) ! se x e’ COMPLEX
• La terza colonna contiene il tipo di valore restituito dalla procedura se questa è una
funzione. Ovviamente, le subroutine intrinseche non sono associate a particolari tipi di
dati.