| 28 |
integer cnn(nviews,nva1_view) ! >0 = number of strips used for cn computation |
integer cnn(nviews,nva1_view) ! >0 = number of strips used for cn computation |
| 29 |
c 0 = failed (less than NSTRIPMIN strips used) => temporarily masked |
c 0 = failed (less than NSTRIPMIN strips used) => temporarily masked |
| 30 |
c -1 = masked a-priori |
c -1 = masked a-priori |
| 31 |
integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails) |
c integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails) |
| 32 |
|
|
| 33 |
integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark |
integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark |
| 34 |
! strips with signal and exclude them from |
! strips with signal and exclude them from |
| 37 |
! strips with unusually high or low signal and |
! strips with unusually high or low signal and |
| 38 |
! exclude them from common noise computation |
! exclude them from common noise computation |
| 39 |
|
|
| 40 |
common/cn/cn,cnrms,cnn,mask_vk_ev,clstr,strange |
c common/cn/cn,cnrms,cnn,mask_vk_ev,clstr,strange |
| 41 |
|
common/cn/cn,cnrms,cnn,clstr,strange |
| 42 |
|
|
| 43 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
| 44 |
c |
c |
Parent Directory
| 
Revision Log
| 
Patch