Il Linguaggio Fortran 90/95

268 Unità di Programma
Il seguente frammento di codice fornisce un esempio di utilizzo delle subroutine di generazione
di numeri casuali:
REAL :: x
...
CALL RANDOM_SEED() ! inizializzazione
CALL RANDOM_NUMBER(x) ! generazione
Quello che segue è un ulteriore esempio che mostra l’utilizzo degli altri parametri formali di
RANDOM_SEED:
CALL RANDOM_SEED ! Inizializzazione
CALL RANDOM SEED(SIZE=k) ! Legge quanti numeri il processore
! utilizza come valori iniziali
CALL RANDOM_SEED(PUT=seed(1:k)) ! Inserisce valori di partenza scelti
! dall’utente
CALL RANDOM_SEED(GET=old(1:k)) ! Legge i valori iniziali ’’attuali’’
5.12.2 Procedure di manipolazione dei bit
Il Fortran 90/95 dispone di un insieme di undici procedure per la manipolazione e di una per la
interrogazione dei bit presenti negli interi. Tali procedure sono basate su un modello secondo
cui un intero si compone di s bit wk (con k = 0, 1, . . ., s − 1), in una sequenza che procede da
destra a sinistra, basata sul valore non negativo s−1 k=0 wk × 2k .
Questo modello è valido solo in relazione a queste procedure intrinseche e coincide con il già
descritto modello per gli interi (cfr. capitolo 1) quando r è una potenza intera di 2 e ws−1 = 0,
ma quando ws−1 = 1 i modelli non corrispondono ed il valore espresso come un intero può
variare da processore a processore.
BIT_SIZE(I)
E’ una funzione di interrogazione che fornisce il numero di bit nel modello assunto per gli interi
aventi stesso parametro di kind di I.
Il prossimo frammento di programma mostra come sia possibile interrogare un processore
per conoscere il numero di bit necessario a rappresentare un intero di assegnato parametro di
kind:
INTEGER :: i=1
INTEGER(KIND=SELECTED_INT_KIND(2)) :: i1
INTEGER(KIND=SELECTED_INT_KIND(4)) :: i2
INTEGER(KIND=SELECTED_INT_KIND(9)) :: i3
! ...
i1=INT(i,KIND(2))
i2=INT(i,KIND(4))
i3=INT(i,KIND(9))