65 |
|
|
66 |
ntrk_old = 0 |
ntrk_old = 0 |
67 |
|
|
68 |
|
dedx_x_min = dedx_x_min_mip !mip search |
69 |
|
dedx_y_min = dedx_y_min_mip ! |
70 |
|
|
71 |
|
887 continue |
72 |
|
|
73 |
|
*------------------------------------------------------ |
74 |
do i=1,nclstr1 |
do i=1,nclstr1 |
75 |
cl_used(i)=0 !init mask of clusters associated to a track |
cl_used(i)=0 !init mask of clusters associated to a track |
76 |
enddo |
enddo |
77 |
dedx_x_min = dedx_x_min_mip |
|
|
dedx_y_min = dedx_y_min_mip |
|
|
*------------------------------------------------------ |
|
78 |
call init_level2 |
call init_level2 |
79 |
call init_hough |
call init_hough |
80 |
*------------------------------------------------------ |
*------------------------------------------------------ |