Il Linguaggio Fortran 90/95

22 Tipi ed espressioni
INTEGER [[([KIND=]parametro_di_kind)][, attributi]::] lista_di_oggetti
dove INTEGER e KIND sono parole chiave del Fortran e lista_di_oggetti è una lista di nomi
di variabili, costanti o funzioni (separati da virgole) che saranno utilizzate nella fase esecutiva
del programma per immagazzinare dati di tipo intero. Se la specifica del parametro_di_kind
è assente viene assunto il valore del parametro di kind di default.
Ad esempio, la seguente istruzione:
INTEGER :: i, j, numero_intero
dichiara tre variabili, i, j e numero_intero, di tipo intero. Dichiarazioni un pò più ”complesse”
sono, invece:
INTEGER, DIMENSION(10), POINTER :: giorni, ore
INTEGER(KIND=2), SAVE :: k, limite
che rappresentano degli esempi di dichiarazioni entity-oriented, mentre le corrispondenti versioni
attribute-oriented sono:
INTEGER :: giorni, ore
INTEGER(KIND=2) :: k, limite
POINTER :: giorni, ore
DIMENSION giorni(10), ore(10)
SAVE :: k, limite
Una costante intera è rappresentata da un segno ”+” (opzionale) o da un segno ”-” che
precede un allineamento di cifre decimali, seguito da uno specificatore di kind opzionale. Le
costanti intere sono interpretate come valori decimali (ossia in base 10) per default. Esempi di
costanti intere con e senza segno sono:
123 +123 -123 12_2 -1234567890_4 12_short
dove short è una costante con nome precedentemente definita avente come valore un numero
di kind valido.
1.3.4 Oggetti di tipo REAL
Il tipoREAL approssima gli elementi di un subset dell’insieme dei numeri reali usando due metodi
di approssimazione che sono comunemente noti come singola precisione e doppia precisione.
Questi numeri sono anche detti numeri in virgola mobile (floating-point). L’istruzione REAL
serve a specificare che un dato oggetto è di tipo reale. La sintassi dell’istruzione di dichiarazione
di un oggetto di tipo REAL è:
REAL [[([KIND=]parametro_di_kind)][, attributi] ::] lista_di_oggetti