Il Linguaggio Fortran 90/95

54 Tipi ed espressioni
Ancora una volta, eseguendo queste istruzioni sulla macchina di cui all’esempio precedente, il
risultato sarebbe:
4 8 8 8 8 -1 -2 -3
dove il valore 4 rappresenta il numero di kind per la singola precisione mentre il valore 8
rappresenta il numero di kind per la doppia precisione (chiaramente altri processori potrebbero
fornire valori differenti). Gli ultimi tre valori della funzione sono, rispettivamente, -1, -2 e
-3 in quanto nessun PC con processore Intel possiede una precisione di 17 cifre decimali o un
range che vada da −10 500 a +10 500 .
Esistono altre tre funzioni che possono tornare molto utili quando si lavora con tipi di dati
parametrizzati. Esse sono:
KIND(X)
Restituisce il numero di kind di X essendo X una variabile o una costante di tipo
qualsiasi (non necessariamente numerico).
PRECISION(X)
Restituisce la precisione decimale (ossia il numero di cifre decimali) della rappresentazione
di X, essendo X un valore reale o complesso.
RANGE(X)
Restituisce il range di potenze decimali che può essere supportato dal tipo di X,
essendo quest’ultimo un dato di tipo intero, reale o complesso.
L’uso di queste funzioni è illustrato nel seguente programma:
PROGRAM parametri_di_kind
IMPLICIT NONE
! Dichiarazione dei parametri
INTEGER, PARAMETER :: single=SELECTED\_REAL\_KIND(p=6,r=37)
INTEGER, PARAMETER :: double=SELECTED\_REAL\_KIND(p=13,r=200)
! Dichiarazione del tipo delle variabili
REAL(KIND=single) :: var1=0._single
REAL(KIND=double) :: var2=0._double
! Stampa dei parametri di kind delle variabili dichiarate
WRITE(*,100) ’var1:’,KIND(var1),PRECISION(var1),RANGE(var1)
WRITE(*,100) ’var2:’,KIND(var2),PRECISION(var2),RANGE(var2)
100 FORMAT(1X,A,’KIND = ’,I2,’Precisione = ’,I2,’Range = ’,I3)
END PROGRAM
Se questo programma viene compilato con il compilatore Digital Visual Fortran 6.0 ed eseguito
su un PC Pentium III, si otterrà il seguente risultato:
var1: KIND = 4, Precisione = 6 Range = 37
var1: KIND = 8, Precisione = 15 Range = 307