| Revision: | 1.1 |
| Committed: | Wed Sep 17 04:01:49 2008 UTC (16 years, 7 months ago) by loizides |
| Branch: | MAIN |
| CVS Tags: | Mit_032, Mit_031, Mit_025c_branch2, Mit_025c_branch1, Mit_030, Mit_029c, Mit_030_pre1, Mit_029a, Mit_029, Mit_029_pre1, Mit_028a, Mit_025c_branch0, Mit_028, Mit_027a, Mit_027, Mit_026, Mit_025e, Mit_025d, Mit_025c, Mit_025b, Mit_025a, Mit_025, Mit_025pre2, Mit_024b, Mit_025pre1, Mit_024a, Mit_024, Mit_023, Mit_022a, Mit_022, Mit_020d, TMit_020d, Mit_020c, Mit_021, Mit_021pre2, Mit_021pre1, Mit_020b, Mit_020a, Mit_020, Mit_020pre1, Mit_018, Mit_017, Mit_017pre3, Mit_017pre2, Mit_017pre1, V07-05-00, Mit_016, Mit_015b, Mit_015a, Mit_015, Mit_014e, Mit_014d, Mit_014c, Mit_014b, ConvRejection-10-06-09, Mit_014a, Mit_014, Mit_014pre3, Mit_014pre2, Mit_014pre1, Mit_013d, Mit_013c, Mit_013b, Mit_013a, Mit_013, Mit_013pre1, Mit_012i, Mit_012g, Mit_012f, Mit_012e, Mit_012d, Mit_012c, Mit_012b, Mit_012a, Mit_012, Mit_011a, Mit_011, Mit_010a, Mit_010, Mit_009c, Mit_009b, Mit_009a, Mit_009, Mit_008, Mit_008pre2, Mit_008pre1, Mit_006b, Mit_006a, Mit_006, Mit_005, Mit_004, HEAD |
| Branch point for: | Mit_025c_branch |
| Log Message: | Moved MitVertex contents to MitCommon. MitVertex therefore is obsolute and should not be touched anymore. |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | loizides | 1.1 | c $Id:$ |
| 2 | #include "MitCommon/Ctvmft/interface/dimensions.hh" | ||
| 3 | |||
| 4 | c----------------------------------------------------------------------- | ||
| 5 | integer function ctvmfr_address() | ||
| 6 | c | ||
| 7 | c Get address of CTVMFR common | ||
| 8 | c | ||
| 9 | c----------------------------------------------------------------------- | ||
| 10 | implicit none | ||
| 11 | #include "MitCommon/Ctvmft/interface/ctvmdi.h" | ||
| 12 | #include "MitCommon/Ctvmft/interface/ctvmft.h" | ||
| 13 | |||
| 14 | integer address | ||
| 15 | |||
| 16 | ctvmfr_address = address(vmat(1,1)) | ||
| 17 | |||
| 18 | return | ||
| 19 | end | ||
| 20 | |||
| 21 | c----------------------------------------------------------------------- | ||
| 22 | integer function ctvmq_address() | ||
| 23 | c | ||
| 24 | c Get address of CTVMQ common | ||
| 25 | c | ||
| 26 | c----------------------------------------------------------------------- | ||
| 27 | implicit none | ||
| 28 | #include "MitCommon/Ctvmft/interface/ctvmdi.h" | ||
| 29 | #include "MitCommon/Ctvmft/interface/ctvmft.h" | ||
| 30 | |||
| 31 | C CTC first approximation and track-vertex step parameters for CTVMFT | ||
| 32 | DATA DRMAX / 2.0 / ! max XY separ., non-intersecting circles | ||
| 33 | DATA DZMAX / 20.0 / ! max allowed track Z separation at the vtx | ||
| 34 | DATA RVMAX / 70.0 / ! max allowed vertex radius | ||
| 35 | DATA TRNMAX / 0.5 / ! max permitted track turning angle to vtx | ||
| 36 | C DATA DSMIN / -2.0 / ! min permitted arc length, track to vtx | ||
| 37 | DATA DSMIN / -99.0 / ! min permitted arc length, track to vtx,CMS | ||
| 38 | DATA CVTX /MAXVTX*0/ | ||
| 39 | |||
| 40 | integer address | ||
| 41 | |||
| 42 | ctvmq_address = address(runnum) | ||
| 43 | |||
| 44 | return | ||
| 45 | end | ||
| 46 | |||
| 47 | c----------------------------------------------------------------------- | ||
| 48 | integer function ctvmtu_address() | ||
| 49 | c | ||
| 50 | c Get address of CTVMTU common | ||
| 51 | c | ||
| 52 | c----------------------------------------------------------------------- | ||
| 53 | implicit none | ||
| 54 | #include "MitCommon/Ctvmft/interface/ctvmtu.h" | ||
| 55 | |||
| 56 | integer address | ||
| 57 | |||
| 58 | DATA C20MAX / -1.0 / | ||
| 59 | DATA C21MAX / -1.0 / | ||
| 60 | DATA LXY0MN / -1e10 / | ||
| 61 | DATA LXY1MN / -1e10 / | ||
| 62 | |||
| 63 | ctvmtu_address = address(C20MAX) | ||
| 64 | |||
| 65 | return | ||
| 66 | end | ||
| 67 | |||
| 68 | c----------------------------------------------------------------------- | ||
| 69 | integer function fiddle_address() | ||
| 70 | c | ||
| 71 | c Get address of FIDDLE common | ||
| 72 | c | ||
| 73 | c----------------------------------------------------------------------- | ||
| 74 | implicit none | ||
| 75 | #include "MitCommon/Ctvmft/interface/ctvmfi.h" | ||
| 76 | integer address | ||
| 77 | |||
| 78 | fiddle_address = address(excuse) | ||
| 79 | |||
| 80 | return | ||
| 81 | end | ||
| 82 | |||
| 83 | c----------------------------------------------------------------------- | ||
| 84 | integer function trkprm_address() | ||
| 85 | c | ||
| 86 | c Get address of TRKPRM common | ||
| 87 | c | ||
| 88 | c----------------------------------------------------------------------- | ||
| 89 | implicit none | ||
| 90 | #include "MitCommon/Ctvmft/interface/ctvmdi.h" | ||
| 91 | #include "MitCommon/Ctvmft/interface/ctvmtr.h" | ||
| 92 | |||
| 93 | integer address | ||
| 94 | |||
| 95 | trkprm_address = address(trhelix(1,1)) | ||
| 96 | |||
| 97 | return | ||
| 98 | end |