Il Linguaggio Fortran 90/95

338 Array Processing
dove il risultato dell’ultima istruzione dipende dal fatto che l’argomento diUBOUND è una sezione
di array per cui il risultato è dato dal numero di elementi in ciascuna dimensione.
Il programma che segue, utile per ”fondere” insieme due array monodimensionali e ordinarne
gli elementi sia in senso crescente che in senso decrescente, mostra un possibile impiego delle
procedure intrinseche UBOUND e LBOUND (si noti che la funzione merge invocata nel programma
è user-defined e non rappresenta, invece, l’omonima funzione intrinseca che si avrà modo di
incontrare nel prossimo paragrafo):
MODULE sort
CONTAINS
RECURSIVE SUBROUTINE sub_merge_sort(a,ascend)
! *** Sezione dichiarativa ***
IMPLICIT NONE
! Parametri formali
INTEGER, DIMENSION(:), INTENT(INOUT) :: a
LOGICAL, INTENT(IN), OPTIONAL :: ascend
! Variabili locali
LOGICAL :: up
INTEGER :: low, high, mid
! *** Sezione esecutiva ***
! Se il parametro "ascend" non viene specificato, allora il criterio
! di ordinamento adottato per default e’ quello nel verso "crescente"
IF (PRESENT(ascend)) THEN
up = ascend
ELSE
up = .TRUE.
ENDIF
low = LBOUND(a,1)
high= UBOUND(a,1)
IF (low