| 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 | |||
| 3 | #include "MitCommon/Ctvmft/interface/ddimensions.hh" | ||
| 4 | |||
| 5 | subroutine dgettrk(jtrk,bnk,mass,radius,beam,vrtx,helix,em,ierr) | ||
| 6 | c | ||
| 7 | c Routine to get track parameters stored in common. | ||
| 8 | c | ||
| 9 | implicit none | ||
| 10 | #include "MitCommon/Ctvmft/interface/dctvmdi.h" | ||
| 11 | #include "MitCommon/Ctvmft/interface/dctvmft.h" | ||
| 12 | #include "MitCommon/Ctvmft/interface/dctvmtr.h" | ||
| 13 | c | ||
| 14 | integer jtrk,beam,vrtx,ierr | ||
| 15 | real mass,radius,helix(5),em(5,5) | ||
| 16 | character*4 bnk | ||
| 17 | c | ||
| 18 | integer j,k,jt | ||
| 19 | c | ||
| 20 | ierr=0 | ||
| 21 | do jt=1,ntrack | ||
| 22 | if(jtrk.eq.list(jt)) then | ||
| 23 | ierr=0 | ||
| 24 | do j=1,5 | ||
| 25 | helix(j)=trhelix(j,jt) | ||
| 26 | do k=1,5 | ||
| 27 | em(j,k)=trem(j,k,jt) | ||
| 28 | enddo | ||
| 29 | enddo | ||
| 30 | ccc write(*,'('' Helix: '',5(1x,e15.6))') helix | ||
| 31 | ccc write(*,'(5(6x,5(1x,e15.5),/))') em | ||
| 32 | return | ||
| 33 | endif | ||
| 34 | enddo | ||
| 35 | ierr=1 | ||
| 36 | c | ||
| 37 | return | ||
| 38 | end |