Il Linguaggio Fortran 90/95

5.12 Procedure intrinseche 263
costo2=money(15,25) ! 15 euro e 25 cent
anticipo=money(50,0) ! 50 euro
spesa=addmoney(costo1,costo2)
resto=subtractmoney(anticipo,spesa)
WRITE(*,100) "Costo del primo articolo: ", costo1
WRITE(*,110) "Costo del secondo articolo: ", costo2
WRITE(*,120)
WRITE(*,130) "Spesa totale: ", spesa
WRITE(*,140) "Contante versato: ", anticipo
WRITE(*,150)
WRITE(*,160) "Resto ricevuto: ", resto
100 FORMAT(1X,A28,1X,I3,1X,"Euro",1X,I3,1X,"Cent",1X,"+",/)
110 FORMAT(1X,A28,1X,I3,1X,"Euro",1X,I3,1X,"Cent",1X,"=",/)
120 FORMAT(30X,20("-"),/)
130 FORMAT(1X,A26,1X,"-",1X,I3,1X,"Euro",1X,I3,1X,"Cent",1X,"+",/)
140 FORMAT(1X,A28,1X,I3,1X,"Euro",1X,I3,1X,"Cent",1X,"=",/)
150 FORMAT(30X,20("-"),/)
160 FORMAT(1X,A28,1X,I3,1X,"Euro",1X,I3,1X,"Cent")
END PROGRAM prova_moneytype
Il risultato prodotto da questo programma è, chiaramente, il seguente:
Costo del primo articolo: 22 Euro 15 Cent +
Costo del secondo articolo: 15 Euro 25 Cent =
--------------------
Spesa totale: - 37 Euro 40 Cent +
Contante versato: 50 Euro 0 Cent =
--------------------
Resto ricevuto: 12 Euro 60 Cent
5.12 Procedure intrinseche
Il Fortran 90 standard comprende 113 procedure intrinseche progettate allo scopo di risolvere
in maniera efficiente problemi specifici. Esse possono essere raggruppate come:
• Procedure di elemento, a loro volta ripartite in: