| 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 | * Inital version of CMS port of CTVMFT (CDF vertex fitter). | ||
| 4 | * | ||
| 5 | * Revision 1.1 2004/10/08 01:32:56 paus | ||
| 6 | * Include fast version of vertex fit. | ||
| 7 | * | ||
| 8 | * Revision 1.1 2004/03/09 03:16:45 paus | ||
| 9 | * *** empty log message *** | ||
| 10 | * | ||
| 11 | * Revision 1.1 2001/04/26 23:00:22 murat | ||
| 12 | * - port CTVMFT (starting from Craig's interface) | ||
| 13 | * - add first definition of e+e- conversion | ||
| 14 | |||
| 15 | SUBROUTINE MYDFEQN(N,A,IDIM,IR,K,B) | ||
| 16 | INTEGER IR(*) | ||
| 17 | DOUBLE PRECISION A(IDIM,*),B(IDIM,*),X,Y,TE | ||
| 18 | DOUBLE PRECISION S21, S22, DOTF | ||
| 19 | c | ||
| 20 | INTEGER N,IDIM,K,NXCH,M,IJ,I,J,L,IM1,NM1,NMI | ||
| 21 | INTEGER NMJP1 | ||
| 22 | c | ||
| 23 | CHARACTER*6 HNAME | ||
| 24 | DOTF(X,Y,S21) = X*Y + S21 | ||
| 25 | DATA HNAME / ' DFEQN' / | ||
| 26 | |||
| 27 | * Inital version of CMS port of CTVMFT (CDF vertex fitter). | ||
| 28 | * | ||
| 29 | * Revision 1.1 2004/10/08 01:32:56 paus | ||
| 30 | * Include fast version of vertex fit. | ||
| 31 | * | ||
| 32 | * Revision 1.1 2004/03/09 03:16:45 paus | ||
| 33 | * *** empty log message *** | ||
| 34 | * | ||
| 35 | * Revision 1.1 2001/04/26 23:00:22 murat | ||
| 36 | * - port CTVMFT (starting from Craig's interface) | ||
| 37 | * - add first definition of e+e- conversion | ||
| 38 | |||
| 39 | IF(IDIM .GE. N .AND. N .GT. 0 .AND. K .GT. 0) GOTO 210 | ||
| 40 | c$$$ CALL TMPRNT(HNAME,N,IDIM,K) | ||
| 41 | RETURN | ||
| 42 | 210 NXCH = IR(N) | ||
| 43 | IF(NXCH .EQ. 0) GOTO 220 | ||
| 44 | DO 212 M = 1, NXCH | ||
| 45 | IJ = IR(M) | ||
| 46 | I = IJ / 4096 | ||
| 47 | J = MOD(IJ,4096) | ||
| 48 | DO 211 L = 1, K | ||
| 49 | TE = B(I,L) | ||
| 50 | B(I,L) = B(J,L) | ||
| 51 | B(J,L) = TE | ||
| 52 | 211 CONTINUE | ||
| 53 | 212 CONTINUE | ||
| 54 | 220 DO 221 L = 1, K | ||
| 55 | B(1,L) = A(1,1)*B(1,L) | ||
| 56 | 221 CONTINUE | ||
| 57 | IF(N .EQ. 1) GOTO 299 | ||
| 58 | DO 243 L = 1, K | ||
| 59 | DO 232 I = 2, N | ||
| 60 | IM1 = I-1 | ||
| 61 | S21 = - B(I,L) | ||
| 62 | DO 231 J = 1, IM1 | ||
| 63 | S21 = DOTF(A(I,J),B(J,L),S21) | ||
| 64 | 231 CONTINUE | ||
| 65 | B(I,L) = - A(I,I)*S21 | ||
| 66 | 232 CONTINUE | ||
| 67 | NM1 = N-1 | ||
| 68 | DO 242 I = 1, NM1 | ||
| 69 | NMI = N-I | ||
| 70 | S22 = - B(NMI,L) | ||
| 71 | DO 241 J = 1, I | ||
| 72 | NMJP1 = N - J+1 | ||
| 73 | S22 = DOTF(A(NMI,NMJP1),B(NMJP1,L),S22) | ||
| 74 | 241 CONTINUE | ||
| 75 | B(NMI,L) = - S22 | ||
| 76 | 242 CONTINUE | ||
| 77 | 243 CONTINUE | ||
| 78 | 299 CONTINUE | ||
| 79 | RETURN | ||
| 80 | END |