|
version 1.1.2.3, 2007/10/17 19:38:50
|
version 1.1.2.4, 2007/10/17 22:02:23
|
|
|
|
| ABORT= .FALSE. | ABORT= .FALSE. |
| err= ' ' | err= ' ' |
| | |
| |
* * check if we have any work to do |
| |
if (HFPP_raw_tot_hits .le. 0) RETURN |
| |
|
| |
|
| * * for each ROC, histogram TDC value of trigger reference | * * for each ROC, histogram TDC value of trigger reference |
| hid = hidFPP_tdcROC | hid = hidFPP_tdcROC |
| do ii=0,G_DECODE_MAXROCS | do ii=0,G_DECODE_MAXROCS |
|
|
|
| hid2 = hidFPP_time1(iPlane) | hid2 = hidFPP_time1(iPlane) |
| do iWire=1,HFPP_Nwires(iPlane) | do iWire=1,HFPP_Nwires(iPlane) |
| iHit = HFPP_hit1idx(iPlane,iWire) | iHit = HFPP_hit1idx(iPlane,iWire) |
| |
if (iHit.gt.0) then |
| time = HFPP_HitTime(iHit) | time = HFPP_HitTime(iHit) |
| call hf1(hid1,time,1.) | call hf1(hid1,time,1.) |
| call hf2(hid2,float(iWire),time,1.) | call hf2(hid2,float(iWire),time,1.) |
| |
endif |
| enddo | enddo |
| enddo | enddo |
| | |
Return to
h_fill_fpp.f
CVS log
Up to [HallC] / Analyzer / HTRACKING / Attic