Il Linguaggio Fortran 90/95

5.17 Overloading 299
! Parametri formali e tipo della funzione
TYPE(triangolo),INTENT(IN) :: mytr
REAL :: area ! area del triangolo
! Variabili locali
REAL,DIMENSION(3) :: vet1, vet2 ! vettori che ospiteranno le
! coordinate dei vertici
REAL :: det ! determinante della matrice delle coordinate
! *** Sezione esecutiva ***
! Assemblaggio dei vettori delle coordinate
vet1=(/mytr%P1%x, mytr%P2%x, mytr%P3%x/)
vet2=(/mytr%P1%y, mytr%P2%y, mytr%P3%y/)
! Valutazione dell’area del triangolo
det= DOT_PRODUCT(vet1,CSHIFT(vet2,SHIFT=-1)) - &
DOT_PRODUCT(vet2,CSHIFT(vet1,SHIFT=-1))
area = 0.5*ABS(det)
END FUNCTION area
END MODULE defin_area
Un esempio di applicazione del nuovo operatore è descritto nel seguente programma di test:
PROGRAM prova_triangolo
USE defin_area
IMPLICIT NONE
TYPE(triangolo) mytr
REAL :: x1, x2, y1, y2, x3, y3
! Sezione esecutiva
! Fase di input
WRITE(*,*) "Coordinate del primo vertice: "
WRITE(*,’(1X,A)’,ADVANCE=’NO’) " ascissa: "; READ(*,*) x1
WRITE(*,’(1X,A)’,ADVANCE=’NO’) " ordinata: "; READ(*,*) y1
WRITE(*,*) "Coordinate del secondo vertice: "
WRITE(*,’(1X,A)’,ADVANCE=’NO’) " ascissa: "; READ(*,*) x2
WRITE(*,’(1X,A)’,ADVANCE=’NO’) " ordinata: "; READ(*,*) y2
WRITE(*,*) "Coordinate del terzo vertice: "
WRITE(*,’(1X,A)’,ADVANCE=’NO’) " ascissa: "; READ(*,*) x3
WRITE(*,’(1X,A)’,ADVANCE=’NO’) " ordinata: "; READ(*,*) y3
mytr = triangolo(punto(x1,y1),punto(x2,y2),punto(x3,y3))
! Applicazione dell’operatore .AREA. e output del risultato
WRITE(*,’(1X,A)’,ADVANCE=’NO’) "L’area del triangolo e’: ",
WRITE(*,’(1X,F7.3)’) .AREA.mytr
STOP
END PROGRAM prova_triangolo
Può giovare considerare un semplice esempio di utilizzo di questo programma: