Il Linguaggio Fortran 90/95

8.4 Gestione dei file ad accesso diretto 439
DO i=1,number_of_reads
CALL RANDOM_NUMBER(values)
irec = (max_records-1)*value+1
READ(11,REC=irec) values
END DO
CALL CPU_TIME(time_end)
time_unf = time_end-time_begin
! Processing dei record formattati
CALL CPU_TIME(time_begin)
DO i = 1, number_of_reads
CALL RANDOM_NUMBER(value)
irec = INT((max_records-1)*value)+1
READ(12,"(4ES20.14)",REC=irec) values
END DO
CALL CPU_TIME(time_end)
time_fmt = time_end-time_begin
! Output dei risultati
WRITE(*,*)
WRITE(*,"(A,F6.2)") "Tempo speso sul file non formattato: ", time_unf
WRITE(*,"(A,F6.2)") "Tempo speso sul file formattato: ", time_fmt
STOP
END PROGRAM accesso_diretto
Compilato con l’Intel Fortran Compiler 5.0 ed eseguito su un PC Pentium III, il precedente
programma produce questo output:
Lunghezza dei record non formattati: 32
Lunghezza dei record non formattati: 80
Tempo speso sul file non formattato: 0.94
Tempo speso sul file formattato: 1.97
Come si può notare le operazioni svolte sui file non formattate sono state notevolmente più
rapide. Non solo; se infatti si vanno ad analizzare i file prodotti in uscita si nota subito un’altra
importante caratteristica: i file non formattati occupano anche meno spazio su disco. Infatti
questo è il contenuto della directory di uscita dopo l’esecuzione del file:
C:\MYPROG\OUT>dir
Il volume nell’unità C non ha etichetta.
Numero di serie del volume: E85E-5D71
Directory di C:\MYPROG\OUT
16/12/2001 18.27 .
16/12/2001 18.27 ..