Return to h_one_ev_topside_view.f CVS log | Up to [HallC] / Analyzer / ONEEV |
File: [HallC] / Analyzer / ONEEV / h_one_ev_topside_view.f
(download)
Revision: 1.1, Wed Jan 17 16:35:46 1996 UTC (28 years, 8 months ago) by cdaq Branch: MAIN CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, mar-24-2003, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS Initial revision |
subroutine h_one_ev_topside_view * * $Log: h_one_ev_topside_view.f,v $ * Revision 1.1 1996/01/17 16:35:46 cdaq * Initial revision * implicit none include 'hms_data_structures.cmn' include 'hms_tracking.cmn' include 'hms_geometry.cmn' include 'hms_calorimeter.cmn' include 'gen_event_info.cmn' include 'hms_one_ev.par' include 'gen_one_ev_gctrak.cmn' include 'gen_one_ev_gckine.cmn' include 'gen_one_ev_gcvolu.cmn' call gdopen (7) call gsatt ('HDX1','SEEN',0) call gsatt ('HDX2','SEEN',0) call gdrawt (4.4,2.,'TOP VIEW',.5,0.,2,0) call gdrawt (4.4,1.,'HMS',.5,0.,2,0) call gdraw ('HHUT', 270., 0., 90., 4.4,5.5, 0.035, 0.07) call h_one_ev_track call gdhits ('* ', '* ', 0, 850, 0.1) call gdhits ('HOD1', 'HDY1', 0, 850, 0.1) call gdhits ('HOD2', 'HDY2', 0, 850, 0.1) call gdclos (7) * * * Other side view * call gdopen (6) call gsatt ('HDY1','SEEN',0) call gsatt ('HDY2','SEEN',0) call gdrawt (14.75,2.,'SIDE VIEW',.5,0.,2,0) call gdraw ('HHUT', 90., 90., 90., 14.75,5.5,0.035, 0.07) call h_one_ev_track call gdhits ('* ', '* ', 0, 850, 0.1) call gdclos (6) call gdshow (7) call gdshow (6) call gdshow (7) call gdelet (6) call gdelet (7) end
Analyzer/Replay: Mark Jones, Documents: Stephen Wood |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |