1 |
* maximum numb. of doublets and troplets |
2 |
* to fill DEBUG nt-uple |
3 |
parameter (ndblt_max_nt=0.2*ndblt_max) !maximum number of doublets |
4 |
parameter (ntrpt_max_nt=0.2*ntrpt_max) !maximum number of triplets |
5 |
logical good2_nt |
6 |
integer nev2_nt |
7 |
integer ndblt_nt,ntrpt_nt |
8 |
real |
9 |
$ alfayz1_nt(ndblt_max_nt), !Y0 |
10 |
$ alfayz2_nt(ndblt_max_nt) !tg theta-yz |
11 |
real |
12 |
$ alfaxz1_nt(ntrpt_max_nt), !X0 |
13 |
$ alfaxz2_nt(ntrpt_max_nt), !tg theta-xz |
14 |
$ alfaxz3_nt(ntrpt_max_nt) !1/r |
15 |
common/event_nt/good2_nt,nev2_nt !commons for DEBUG nt-uple! |
16 |
common/hough_yz/ ! / / / / / / ! |
17 |
$ ndblt_nt ! / / / / / / ! |
18 |
$ ,alfayz1_nt,alfayz2_nt ! / / / / / / ! |
19 |
$ ,db_cloud_nt !/ / / / / / /! |
20 |
common/hough_xz/ ! / / / / / / ! |
21 |
$ ntrpt_nt, ! / / / / / / ! |
22 |
$ alfaxz1_nt,alfaxz2_nt,alfaxz3_nt ! / / / / / / ! |
23 |
$ ,tr_cloud_nt !/ / / / / / /! |
24 |
* ----------------------------------------------------------- |
25 |
* Number of YZ and XZ clouds |
26 |
integer nclouds_yz_nt,nclouds_xz_nt |
27 |
* ----------------------------------------------------------- |
28 |
* doublet and triplet ID in the selected clouds |
29 |
integer db_cloud_nt(ndblt_max_nt) |
30 |
integer tr_cloud_nt(ntrpt_max_nt) |
31 |
* ----------------------------------------------------------- |
32 |
* number of points in the cloud |
33 |
integer ptcloud_yz_nt(ncloyz_max) |
34 |
integer ptcloud_xz_nt(ncloxz_max) |
35 |
* ----------------------------------------------------------- |
36 |
* average parameters |
37 |
real alfayz1_av_nt(ncloyz_max),alfayz2_av_nt(ncloyz_max) |
38 |
real alfaxz1_av_nt(ncloxz_max),alfaxz2_av_nt(ncloxz_max) |
39 |
$ ,alfaxz3_av_nt(ncloxz_max) |
40 |
* ----------------------------------------------------------- |
41 |
common/clouds_yz_nt/ !commons for DEBUG nt-uple! |
42 |
$ nclouds_yz_nt ! / / / / / / ! |
43 |
$ ,alfayz1_av_nt,alfayz2_av_nt ! / / / / / / ! |
44 |
$ ,ptcloud_yz_nt ! / / / / / / ! |
45 |
common/clouds_xz_nt/ !/ / / / / / /! |
46 |
$ nclouds_xz_nt ! / / / / / / ! |
47 |
$ ,alfaxz1_av_nt,alfaxz2_av_nt,alfaxz3_av_nt ! / / / / / ! |
48 |
$ ,ptcloud_xz_nt ! / / / / / / ! |