USE INTERVALL_ARITMETIK
	IMPLICIT NONE
	TYPE (INTERVALL)	:: A, B, C, D, E, F

	A%LAEGRE = 6.9
	A%OEVRE  = 7.1

	B%LAEGRE = 10.9
	B%OEVRE  = 11.1

	WRITE (*,*) A, B 

	C = A + B
	D = A - B
	E = A * B
	F = A / B
	
	WRITE (*,*) C , D
	WRITE (*,*) E, F

	END