Il Linguaggio Fortran 90/95

232 Unità di Programma
REAL(r8),PARAMETER :: day = 24*hr !1 giorno solare(in s)
REAL(r8),PARAMETER :: yr = 3.155815E7_r8 !1 anno siderale (in s)
REAL(r8),PARAMETER :: J_yr = 365.25*day !1 anno giuliano (in s)
! Costanti di distanze astronomiche (in unita’ del SI)
REAL(r8),PARAMETER :: AU = 1.4959787066E11_r8 !Unita’ astronomica (m)
REAL(r8),PARAMETER :: pc = 206264.806_r8*AU !Parsec (m)
REAL(r8),PARAMETER :: ly = c*J_yr !Anno luce (giuliano; m)
! Costanti di interesse astronomico (in unita’ del SI)
REAL(r4),PARAMETER :: M_Sun = 1.9891E30_r4 !Massa del Sole (kg)
REAL(r4),PARAMETER :: R_Sun = 6.95508E8_r4 !Raggio del Sole (m)
REAL(r4),PARAMETER :: S_Sun = 1.365E3_r4 !Radiazione solare(J/m^2/s)
REAL(r4),PARAMETER :: L_Sun = &
four_pi*AU**2*S_Sun !Luminosita’ del Sole (W)
REAL(r4),PARAMETER :: Te_Sun = &
(L_Sun/(four_pi*R_Sun**2*sigma))**(0.25) !Temperature del Sole (K)
REAL(r4),PARAMETER :: M_Earth = 5.9736E24_r8 !Massa della Terra (kg)
REAL(r8),PARAMETER :: R_Earth = 6.378136E6_r8 !Raggio della Terra (m)
END MODULE Costanti_fisiche
Come visto, i moduli sono particolarmente utili per condividere grandi quantità di dati
fra più unità di programma e fra un gruppo di procedure correlate, nascondendoli a tutte le
altre unità. In questo modo si creano delle variabili globali. Tuttavia, è possibile (e talvolta
opportuno) limitare il numero delle variabili definite in un modulo a cui una unità di programma
può avere accesso. Questa peculiarità aumenta la ”sicurezza” di un codice assicurando che
un’unità di programma che usi un modulo non ne cambi accidentalmente il valore di una
variabile. A tale scopo è possibile associare all’istruzione USE il qualificatore ONLY:
USE nome_modulo, ONLY: lista_di_variabili
Ad esempio, se all’istruzione:
USE global
si sostituisce l’istruzione:
USE global, ONLY: a, b, c
l’unità di programma in cui questa istruzione è posta può avere accesso alle variabili a, b, c,
quali che siano le altre variabili definite nel modulo global.
L’uso dello specificatore ONLY previene la possibilità che l’unità di programma che usi un
modulo possa modificare per errore quei dati (contenuti nel modulo) dei quali, peraltro, non
necessita. Come è noto, la maggior parte degli errori di battitura sono individuati dal compilatore
grazie all’istruzione IMPLICIT NONE la quale rende illegale l’uso di variabili non dichiarate.