Il Linguaggio Fortran 90/95

266 Unità di Programma
Differenza rispetto all’UTC:
Ore: 01 Minuti: 10
SYSTEM_CLOCK([COUNT],[COUNT_RATE],[COUNT_MAX])
Subroutine che restituisce il tempo del sistema. Gli argomenti, aventi tutti attributoINTENT(OUT,
sono tutti opzionali sebbene almeno uno di essi debba essere necessariamente specificato.
• COUNT è uno scalare di tipo INTEGER che restituisce un valore calcolato in base al valore
corrente del clock di sistema. Questo valore viene incrementato di un’unità ad ogni ciclo
del clock fino al raggiungimento del valore COUNT_MAX, dopodiché viene resettato a zero
ed il conteggio riprende daccapo. Nel caso in cui non esistesse un orologio di sistema, il
valore restituito da COUNT sarebbe -HUGE(0).
• COUNT_RATE è uno scalare di tipo INTEGER che fornisce il numero di cicli per secondo
del clock del processore. Nel caso in cui non esistesse un orologio di sistema, il valore
restituito da COUNT_RATE sarebbe 0.
• COUNT_MAX è uno scalare di tipo INTEGER che fornisce il massimo valore raggiungibile
da COUNT. Nel caso in cui non esistesse un orologio di sistema, il valore restituito da
COUNT_MAX sarebbe 0.
Un esempio di utilizzo della procedura intrinseca SYSTEM_CLOCK è fornito dal seguente
frammento di codice:
INTEGER :: ic, crate, cmax
CALL SYSTEM_CLOCK(COUNT=ic,COUNT_RATE=crate,COUNT_MAX=cmax)
PRINT*, "Ciclo corrente: ",ic
PRINT*, "Cicli al secondo: ",crate
PRINT*, "Ciclo massimo: ",cmax
un cui possibile output potrebbe essere questo:
Ciclo corrente: 46364
Cicli al secondo: 1
Ciclo massimo: 86399
CPU_TIME(TIME)
Si tratta di una subroutine intrinseca introdotta dal Fortran 95 che fornisce il tempo (in secondi)
speso dal processore sul programma corrente, con una approssimazione dipendente dal processore.
Il parametro formaleTIME è una variabile scalare di tipoREAL con attributoINTENT(OUT).
Se la procedura non è in grado di restituire un valore significativo, alla variabile TIME viene
assegnato un valore negativo dipendente dalla specifica implementazione.
Il seguente frammento di programma può aiutare a comprendere il funzionamento della
procedura CPU_TIME: