# read in the hagen data

	#!!!! revised version on PC in file mapdsd.ssc
readhagen_function(filename){
	what_list(date="",time="",timed=0,Ntot=0,Nktot=0,rr=0,Z=0,LWC=0,
	No=0,Do=0,rsum=0,rromb=0,rso=0)
	a_scan(filename,skip=2,what=what)
	return(a)
	}

a_readhagen("/home/disk/eos1/yuter/mtn/map/munich/dsd_dlr_990920_c.05t")
	
	
# plot a time series of hagen rain rate