integer ora,giorno,mese,anno
	character data*60,file*80
	parameter (nlon=480,nlat=241)
	real rain(nlon,nlat),lat(nlon,nlat),lon(nlon,nlat)
	
	ora=10 ; giorno=20 ; mese=6 ; anno=2000
	call eraheader(10,ora,giorno,mese,anno,lat,lon)
	call eradata  (10,ora,giorno,mese,anno,rain)
	call datafromhour (ora,giorno,mese,anno,data)
	call worldplot(rain,nlon,nlat,' ',' ','lm0.1c6p4M10')
	call mvsetflags('Tipo di Carattere',-13.0)
	call displayexample('example08','ERA-Interim project - Precipitation '//
	2	'ReAnalysis','precipitation (mm) '//data)
	end