Il Linguaggio Fortran 90/95

340 Array Processing
! *** Sezione esecutiva ***
PRINT*, "Dimensione dell’array:"
READ(*,*) n
ALLOCATE(array(n))
DO i=1,n
CALL RANDOM_NUMBER(r)
array(i) = INT(r*100.)
END DO
PRINT ’(20I3)’, array(1:20)
time = second()
CALL sub_merge_sort(array)
PRINT*, "Ordinamento crescente"
PRINT ’("(Tempo impiegato = ",F10.3," secondi )")’, second()-time
PRINT ’(20I3)’, array(1:20)
time = second()
CALL sub_merge_sort(array, .FALSE.)
PRINT*, "Ordinamento decrescente"
PRINT ’("(Tempo impiegato = ",F10.3," secondi )")’, second()-time
PRINT ’(20I3)’, array(1:20)
CONTAINS
REAL FUNCTION second()
IMPLICIT NONE
INTEGER :: i, timer_count_rate, timer_count_max
CALL SYSTEM_CLOCK( i, timer_count_rate, timer_count_max )
second = REAL(i)/timer_count_rate
END FUNCTION second
END PROGRAM merge_sort
6.6.3 Procedure di costruzione
MERGE(TSOURCE,FSOURCE,MASK)
Seleziona tra due valori, o tra gli elementi corrispondenti di due array, in accordo con la
condizione specificata da una maschera.
TSOURCE può essere uno scalare o un array di tipo qualsiasi.
FSOURCE è uno scalare o un array avente stesso tipo e parametri di kind di TSOURCE.
MASK è un array logico.
Il risultato (che ha lo stesso tipo diTSOURCE) viene determinato prendendo, elemento×elemento,
il valore corrispondente di TSOURCE (se MASK è .TRUE.) o di FSOURCE (se MASK è .FALSE.).
Ad esempio, se la variabile intera r ha valore -3, allora il risultato di
MERGE(1.0,0.0,r