Il Linguaggio Fortran 90/95

5.12 Procedure intrinseche 267
REAL time_begin, time_end
...
CALL CPU_TIME(time_begin)
...
CALL CPU_TIME(time_end)
PRINT*, "Il tempo impiegato dalle operazioni e’ stato: ", &
time_begin - time_end, " secondi"
Lo scopo principale per cui è stata introdotta questa procedura è quello di permettere di confrontare
algoritmi differenti sul medesimo computer oppure di scoprire quale ramo di programma
è più costoso in termini di sforzo di calcolo.
Si noti che su computer con diverse CPU, il parametro TIME può essere implementato come
un array i cui elementi contengono i tempi di ciascun processore.
RANDOM_NUMBER(HARVEST)
Questa subroutine consente di generare un valore reale pseudo-random nell’intervallo [0-1].
a partire da uno starting point rappresentato da un vettore di interi. Il parametro formale
HARVEST ha attributo INTENT(OUT) e può essere un valore scalare oppure un array di tipo REAL
Il valore (o la sequenza) random viene prodotta a partire da un punto di partenza (seed)
che, se non viene imposto tramite la subroutine RANDOM_SEED, viene posto pari ad un valore
dipendente dal processore.
Il seguente frammento di programma produce un valore ed un array di5×5 elementi pseudorandom:
REAL :: x, y(5,5)
! Assegna ad x un un valore pseudo-random
CALL RANDOM_NUMBER(HARVEST=x)
! Produce un array di 5x5 valori pseudo-random
CALL RANDOM_NUMBER(y)
RANDOM_SEED([SIZE],[PUT],[GET])
Questa subroutine serve a ”resettare” (o ad avere informazioni circa) il generatore di numeri
random. I suoi parametri formali hanno il seguente significato:
• SIZE: è uno scalare di tipo INTEGER e fornisce il numero di interi che il processore utilizza
come starting point. Ha attributo INTENT(OUT).
• PUT: è un array di tipo INTEGER attraverso cui l’utente può fornire uno starting point al
generatore di numeri random. Ha attributo INTENT(IN).
• GET: è un array di tipo INTEGER che contiene il valore corrente dello starting point. Ha
attributo INTENT(OUT).