45 |
|
|
46 |
*------------------------------------------------------ |
*------------------------------------------------------ |
47 |
call init_level2 |
call init_level2 |
48 |
|
call init_hough |
49 |
*------------------------------------------------------ |
*------------------------------------------------------ |
50 |
|
|
51 |
*------------------------------------------------------ |
*------------------------------------------------------ |
73 |
goto 880 !fill ntp and go to next event |
goto 880 !fill ntp and go to next event |
74 |
endif |
endif |
75 |
|
|
76 |
|
call fill_hough |
77 |
|
|
78 |
iflag=0 |
iflag=0 |
79 |
call track_fitting(iflag) |
call track_fitting(iflag) |
80 |
if(iflag.eq.1)then !bad event |
if(iflag.eq.1)then !bad event |