Il Linguaggio Fortran 90/95

262 Unità di Programma
IMPLICIT NONE
TYPE (money) :: addmoney
TYPE (money), INTENT(IN) :: a, b
INTEGER :: carry, tempcent
tempcent = a%cent + b%cent
carry = 0
IF (tempcent>100) THEN
tempcent = tempcent - 100
carry = 1
END IF
addmoney%euro = a%euro + b%euro + carry
addmoney%cent = tempcent
END FUNCTION addmoney
FUNCTION subtractmoney(a,b)
IMPLICIT NONE
TYPE (money) :: subtractmoney
TYPE (money), INTENT(IN) :: a, b
INTEGER :: euro, tempcent, carry
tempcent = a%cent - b%cent
euro = a%euro - b%euro
IF ((tempcent0)) THEN
tempcent = 100 + tempcent
euro = euro - 1
ELSE IF ((tempcent>0).AND.(euro