real x1(366*4*24),y1(366*4*24)
	character com*64,sens*32,data*32
	integer rec,giorno,mese,anno

	anno=2009 
	rec=207
	call museoanagrafica ('iira',rec,com,sens,xlat,xlon)
	call museotimeseries ('iira',rec,2009,x1,y1,n)
	call mvbook(10,-5.0,35.0,100,'Temperature (C)')
	call mvbook(20,-5.0,35.0, 30,'Temperature (C)')
	do i=1,n
	   if (nint(y1(i)).ne.-9999) then
	      call mvbookfill(10,y1(i),1.0)
	      call mvbookfill(20,y1(i),1.0)
	   endif
	enddo
	call mvsetflags('Histogram color',13.0)
	call mvbookplot(10)
	call displayexample('example07','Temperature distribution','Location: '//
	2  com(1:lenstr(com))//' Year 2009')
	call mvsetflags('Histogram color',12.0)
	call mvbookplot(20)
	call displayexample('example07','Temperature distribution','Location: '//
	2  com(1:lenstr(com))//' Year 2009')
        end