parameter (slon=13.100,elon=15.200,slat=41.300,elat=42.900)
	real p(600),lat(600),lon(600)
	character str*10,data*60
	call hourlytemp(12,20,06,09,p,lat,lon,n) ! retrieve dei dati
	call dataorafromday (12,20,06,09,data)   ! calcola la data
	call atlante(slon,elon,slat,elat,1,1,1,0,0)! Disegna dem+fiumi+confini
	call mvsetflags('Tipo di carattere ',-13.0)
	call mvsetflags('Colore Titoli ',36.0)
	call mvsetflags('Coordinate grafiche',3.0)
	call mvsetflags('Size delle scritte',12.0)
	do i=1,n                                   ! Loop sul numero di osserv.
	   write (str,'(f6.1)') p(i)
	   call noinspace(str)
	   call scrivisulplot(str,lon(i),lat(i))   ! Scrive sul plot i dati 
	enddo
	call mvsetflags('Colore Titoli ',1.0)
	call displayexample('example21','Temperature observations',data)
        end