Il Linguaggio Fortran 90/95

5.8 Argomenti delle Procedure 253
WRITE(*,*) x%str
int1 = x%j
int2 = x%k
x = new("def",11,22)
RETURN
END SUBROUTINE sub_mod_2
END MODULE miomodulo
!
PROGRAM prova
USE miomodulo
CALL sub_mod_1( )
WRITE(*,*) x
STOP
END PROGRAM prova
Si può banalmente verificare che l’output di questo programma è:
abc
def 11 22
Un esempio un pò più interessante potrebbe essere quello di definire un tipo di dati grid2D
che raggruppi alcune informazioni (ad esempio estremi del dominio computazionale e numero di
nodi lungo gli assi) relative ad una griglia bidimensionale per la discretizzazione di un problema
risolto numericamente alle differenze finite:
TYPE grid2D
! N.B.: xmin, ymin, xmax e ymax definiscono un rettangolo
REAL :: xmin, ymin
REAL :: xmax, ymax
! nx ed ny sono le variabili di partizione
INTEGER :: nx, ny
END TYPE grid2D
ed un set di funzioni che lavorino proprio su dati di tipo grid2D e che forniscano ad esempio
la spaziatura della griglia lungo gli assi x ed y:
REAL FUNCTION dx(g)
TYPE(grid2D) :: g
dx = (g%xmax-g%xmin)/g%nx
RETURN
END FUNCTION dx
REAL FUNCTION dy(g)
TYPE(grid2D) :: g
dy = (g%ymax-g%ymin)/g%ny
RETURN
END FUNCTION dx