Il Linguaggio Fortran 90/95

230 Unità di Programma
END MODULE def_kind
Pertanto, in una qualsiasi unità di programma sede dell’istruzione:
USE def_kind
saranno perfettamente lecite le seguenti istruzioni di dichiarazione:
INTEGER(short) :: myimage(1024,1024)
INTEGER(long) :: counter
REAL(double) :: processed_data(2000,2000)
Chiaramente, su sistemi di elaborazione differenti le costanti short, long o double potranno
avere valori diversi ma questo non condizionerà minimamente la portabilità del codice.
Un interessante esempio di modulo che sposa le caratteristiche anzidette di ”archivio” di
dati e di precisione portabile è riportato di seguito. Questo modulo, ben lungi dall’essere un
mero esempio didattico, elenca dapprima i valori dei parametri di kind per oggetti di tipo
INTEGER e REAL di differente range e precisione, quindi i valori delle principali costanti fisiche
ed astronomiche di interesse.
MODULE Costanti_fisiche
!---------------------------------------------------------------------
! Descrizione:
! ==============
! Questo modulo contiene i valori delle piu’ comuni costanti
! fisiche ed astronomiche. Inoltre esso identifica i corretti
! parametri di kind per la macchina in uso
! Autore: B. Raucci
! E-mail: biagio@raucci.net
!---------------------------------------------------------------------
IMPLICIT NONE
SAVE
! Determina la precisione ed il range del sistema di elaborazione in uso
INTEGER,PARAMETER :: r8 = SELECTED_REAL_KIND(15,307)
INTEGER,PARAMETER :: r4 = SELECTED_REAL_KIND(6,37)
INTEGER,PARAMETER :: i1 = SELECTED_INT_KIND(2)
INTEGER,PARAMETER :: i2 = SELECTED_INT_KIND(4)
INTEGER,PARAMETER :: i4 = SELECTED_INT_KIND(8)
! Identifica il numero piu’ piccolo rappresentabile in macchina
! ed il numero di cifre significative per i numeri di kind r4 ed r8
REAL(r4),PARAMETER :: tiny_r4 = TINY(1.0_r4)
REAL(r8),PARAMETER :: tiny_r8 = TINY(1.0_r8)
INTEGER, PARAMETER :: sig_fig_r4 = PRECISION(1.0_r4)
INTEGER, PARAMETER :: sig_fig_r8 = PRECISION(1.0_r8)