Il Linguaggio Fortran 90/95

5.5 Moduli 229
IMPLICIT NONE
vettore=pi*(/1.,-2.,3.,-4.,5./)
DO i=1,m
...
END DO
CALL sub
END PROGRAM test_mio_modulo
SUBROUTINE sub
USE mio_modulo
IMPLICIT NONE
WRITE(*,*) vettore
END SUBROUTINE sub
Un’applicazione particolarmente comune per un modulo è quella di realizzare un archivio
di costanti con nome di interesse ed i cui valori possano essere attinti da svariate procedure.
Un esempio di questo tipo di utilizzo è rappresentato dal codice seguente:
MODULE trig_consts
! Scopo: definire alcune costanti di interesse in trigonometria
! LEGENDA:
! pi: pi greco
! r2d: fattore di conversione radianti->gradi
! rdg: fattore di conversione gradi->radianti
IMPLICIT NONE
SAVE
REAL(KIND(1.D0)), PARAMETER :: pi = 3.141592653589, &
r2d = 180.0d0/pi, &
d2r = pi/180.0d0
END MODULE trig_consts
PROGRAM calculate
USE trig_consts
IMPLICIT NONE
WRITE(*,*) SIN(30.0*d2r)
END PROGRAM calculate
In particolare è possibile scrivere un modulo che contenga le definizioni dei numeri di kind degli
oggetti che verranno utilizzati nel corso di un programma e delle procedure da esso invocate:
MODULE def_kind
INTEGER, PARAMETER :: &
short = SELECTED_INT_KIND(4), & ! interi ad almeno 4 cifre
long = SELECTED_INT_KIND(9), & ! interi ad almeno 9 cifre
dble = SELECTED_REAL_KIND(15,200) ! reali a 15 cifre fino a 10**200