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) |