Il Linguaggio Fortran 90/95

298 Unità di Programma
Per il calcolo del determinante di A si può ricorrere alla nota regola di Sarrus che, si ricorda,
è applicabile proprio alle matrici 3 × 3:
Quindi, se si definiscono un tipo punto come:
TYPE punto
REAL :: x ! ascissa
REAL :: y ! ordinata
END TYPE punto
ed un tipo triangolo come:
det A = x1y2 + y1x3 + x2y3 − y2x3 − y3x1 − y1x2
TYPE triangolo
TYPE(punto) :: P1 ! primo vertice
TYPE(punto) :: P2 ! secondo vertice
TYPE(punto) :: P3 ! terzo vertice
END TYPE triangolo
è possibile definire in maniera assolutamente semplice un operatore .AREA. che, applicato ad
un oggetto di tipo triangolo ne restituisca l’area valutata secondo il procedimento anzidetto.
Quanto asserito è efficacemente descritto dal seguente modulo:
MODULE defin_area
! Sezione dichiarativa
IMPLICIT NONE
TYPE punto
REAL :: x ! ascissa
REAL :: y ! ordinata
END TYPE punto
TYPE triangolo
TYPE(punto) :: P1 ! primo vertice
TYPE(punto) :: P2 ! secondo vertice
TYPE(punto) :: P3 ! terzo vertice
END TYPE
TYPE(triangolo) :: mytr
INTERFACE OPERATOR(.AREA.)
MODULE PROCEDURE area
END INTERFACE
CONTAINS
FUNCTION area(mytr)
! *** Sezione dichiarativa ***
IMPLICIT NONE