1 saw   1.1 *     file name: t20_hms.cmn
 2           
 3           *     CTPTYPE=event
 4           
 5                 REAL*4  tsinhtheta    ! Sin half lab Scattering angle 
 6                 REAL*4  te_v          ! Beam energy in GEV
 7                 REAL*4  thms_td1      ! Deuteron energy from electron energy
 8                 REAL*4  thms_td2      ! Deuteron energy from electron angle
 9                 REAL*4  tq2           ! Q**2
10                 INTEGER*4 hr_start_hms
11           *
12                 COMMON/T20_Ed/
13                &     tsinhtheta,
14                &     te_v,
15                &     thms_td1,
16                &     thms_td2,
17                &     tq2,
18                &     hr_start_hms
19           *