| 87 |
goto 880 !fill ntp and go to next event |
goto 880 !fill ntp and go to next event |
| 88 |
endif |
endif |
| 89 |
|
|
| 90 |
* ------------------------------------- |
* ---------------------------------------------------- |
| 91 |
* fill hough output variables only for the first searc |
* fill hough output variables only for the first searc |
| 92 |
* ------------------------------------- |
* ---------------------------------------------------- |
| 93 |
if(.not.SECOND_SEARCH)call fill_hough |
if(.not.SECOND_SEARCH)call fill_hough |
| 94 |
|
|
| 95 |
iflag=0 |
iflag=0 |
| 285 |
$ .true.)then |
$ .true.)then |
| 286 |
|
|
| 287 |
SECOND_SEARCH=.true. |
SECOND_SEARCH=.true. |
| 288 |
RECOVER_SINGLETS=.true. |
c RECOVER_SINGLETS=.true. !OPTIMIZATION |
| 289 |
ntrk_old=ntrk |
ntrk_old=ntrk |
| 290 |
|
|
| 291 |
if(DEBUG.EQ.1) |
if(DEBUG.EQ.1) |