Il Linguaggio Fortran 90/95

376 Puntatori
END PROGRAM sort
Si riporta per completezza un esempio di utilizzo di questo programma:
Inserisci il numero di stringhe, (massimo 100): 4
Stringa n. 1 --> Michele
Stringa n. 2 --> Giovannina
Stringa n. 3 --> Carolina
Stringa n. 4 --> Antonio
Lista ordinata:
===============
Antonio
Carolina
Giovannina
Michele
Un utilizzo parimenti efficiente dei puntatori potrebbe essere quello di definire un array di
puntatori e di assegnarne ciascun componente ad un record di un database. In tal modo, le
operazioni di ordinamento del file secondo una chiave non richiederà più lo spostamento di
(eventualmente) grossi record ma soltanto una diversa associazione di questi ultimi ai rispettivi
target.
Si noti, tuttavia, che se da un lato i puntatori possono aumentare l’efficienza di alcune
procedure di calcolo, è anche vero che un loro uso eccessivo può rendere meno leggibile (e
gestibile) il codice sorgente aumentando, di conseguenza, la probabilità di commettere errori.
Inoltre non è da sottovalutare un altro aspetto connesso all’impiego di puntatori, che è la
già citata impossibilità da parte dei compilatori di produrre codice ottimizzato qualora nel
programma sorgente si sia fatto uso di puntatori.
7.7 Puntatori a sezioni di array
Come visto in precedenza, un puntatore può puntare ad un intero array nello stesso modo
con cui può puntare ad uno scalare. Le seguenti istruzioni rappresentano un valido esempio di
questa caratteristica:
REAL, DIMENSION(100,100), TARGET :: targ
REAL, DIMENSION(:,:), POINTER :: punt
punt => targ
Ma un puntatore può essere riferito anche ad una sezione di array, come mostrato dal seguente
programma:
PROGRAM point_sez_array
IMPLICIT NONE
INTEGER :: i