1 gaskelld 1.1 ! STRUCT_HRSL.INC
 2              
 3              ! Define some record structures
 4              
 5              ! ... where do we loose events?
 6              	structure /STOP_EVENTS_HRSL/
 7              		integer*4	trials,slit_hor,slit_vert,
 8                   >				Q1_in,Q1_mid,Q1_out,
 9                   >				Q2_in,Q2_mid,Q2_out,
10                   >				Q3_in,Q3_mid,Q3_out,
11                   >				D1_in,D1_out,
12                   >				hut,dc1,dc2,s1,s2,cal,successes
13              	end structure
14              
15              ! ... a general common block
16              	common /spectrometer4/	lSTOP
17              
18              	record /STOP_EVENTS_HRSL/	lSTOP