Il Linguaggio Fortran 90/95

378 Puntatori
REAL,DIMENSION(10,10) :: T
REAL, POINTER, DIMENSION(:,:) :: n, e, s, w, inside
REAL :: diff
INTEGER :: i, j,niter
! *** Sezione esecutiva ***
! Valori iniziali di tentativo
T = 0
! Condizioni al contorno
T(1:10,1) = 1.0
T(1,1:10) = (/(0.1*j,j=10,1,-1)/)
! Inizializzazione
Told = T
! Puntatori alle diverse porzioni di Told
inside => Told(2:9,2:9)
n => Told(1:8,2:9)
s => Told(3:10,2:9)
e => Told(2:9,1:8)
w => Told(2:9,3:10)
! Inizio iterazioni
niter = 0
DO
T(2:9,2:9) = (n + e + s + w)/4.0
diff = MAXVAL(ABS(T(2:9,2:9)-inside))
niter = niter + 1
! Aggiornamento dei risultati
inside = T(2:9,2:9)
PRINT*, "Iter n. ", niter, diff
IF(diff < 1.0E-4) THEN
EXIT
END IF
END DO
! Stampa dei risultati
PRINT*, "Campo finale: "
DO i = 1,10
PRINT "(10F7.3)", T(1:10,i)
END DO
END PROGRAM laplace_con_punt
7.8 Puntatori come parametri formali di procedure
I puntatori, siano essi allocati o non, possono essere usati come parametri formali in procedure
e ad esse passati come parametri attuali da parte dell’unità di programma chiamante, purché