45 |
|
|
46 |
*------------------------------------------------------ |
*------------------------------------------------------ |
47 |
call init_level2 |
call init_level2 |
48 |
c call init_hough |
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 |
c call fill_hough |
call fill_hough |
77 |
|
|
78 |
iflag=0 |
iflag=0 |
79 |
call track_fitting(iflag) |
call track_fitting(iflag) |