/[PAMELA software]/tracker/ground/source/common/common_level2debug.f
ViewVC logotype

Contents of /tracker/ground/source/common/common_level2debug.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (download) (vendor branch)
Wed Mar 8 15:00:39 2006 UTC (18 years, 9 months ago) by pam-fi
Branch: MAIN, trk-ground
CVS Tags: R3v02, HEAD
Changes since 1.1: +0 -0 lines
Error occurred while calculating annotation data.
First CVS release of tracker ground software (R3v02) 

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 ! / / / / / / !

  ViewVC Help
Powered by ViewVC 1.1.23