Il Linguaggio Fortran 90/95

7.6 Un uso efficiente dei puntatori 375
ad array1 si dovrà scrivere p1 prima che lo scambio abbia avuto luogo, p2 successivamente
allo scambio). In realtà si poteva ovviare alla introduzione della variabile extra app, la quale è
stata usata semplicemente per motivi di simmetria rispetto al procedimento standard.
Un’applicazione pratica dei concetti testé esposti è rappresentata dal problema dell’ordinamento
alfabetico di una lista di nomi in una lista. Nel programma che segue e che implementa
proprio un algoritmo di ordinamento, la lettura delle stringhe di caratteri avviene in maniera
interattiva (ad esempio da tastiera) ma unicamente per ragioni didattiche, ciò limitando di
molto la mole di dati che è possibile inserire per testare il codice. E’ chiaro che in casi pratici
la lista di nomi andrà letta da file e potrà essere anche decisamente lunga. Anche in questo
esempio l’uso dei puntatori evita lo spostamento fisico di grossi oggetti (stringhe di500 caratteri
di lunghezza) compensando così la scarsa efficienza dell’algoritmo di ordinamento utilizzato (il
metodo bubble sort).
PROGRAM sort
IMPLICIT NONE
INTEGER, PARAMETER :: max_length=500, max_no = 100
TYPE :: char_pt
CHARACTER(LEN=max_length), pointer :: ptr
END TYPE char_pt
TYPE(char_pt), dimension(max_no) :: strings
TYPE(char_pt) :: swap
INTEGER :: i, j, n
! Invece di usare un array di stringhe di caratteri, viene impiegato
! un array di puntatori ad oggetti di tipo stringa di caratteri
WRITE(*,"(A,I3,A3)",ADVANCE="NO") "Inserisci il numero di &
&stringhe, (massimo ",max_no,"): "
READ(*,*) n
DO i=1,n
ALLOCATE(strings(i)%ptr)
WRITE(*,"(A,I3,1X,A4)",ADVANCE="NO") "Stringa n. ", i,"--> "
READ(*,*) strings(i)%ptr
END DO
DO i=1,n-1
DO j=1,n-i
! Meccanismo bubble-sort
IF(strings(j)%ptr > strings(j+1)%ptr) THEN
swap%ptr => strings(j)%ptr
strings(j)%ptr => strings(j+1)%ptr
strings(j+1)%ptr => swap%ptr
END IF
END DO
END DO
PRINT "(/,A,/,15(’=’))", "Lista ordinata:"
PRINT "(A)", (trim(strings(i)%ptr), i = 1,n)