40 |
* (All the needed quantities for couples and singlets can be evaluated |
* (All the needed quantities for couples and singlets can be evaluated |
41 |
* by means of the routine xyz_PAM) |
* by means of the routine xyz_PAM) |
42 |
* ------------------------------------------------------------------------- |
* ------------------------------------------------------------------------- |
43 |
|
|
44 |
|
|
45 |
REAL*8 AL |
REAL*8 AL |
46 |
REAL*8 XM,YM,ZM |
REAL*8 XM,YM,ZM |
47 |
REAL*8 XM_A,YM_A!,ZM_A |
REAL*8 XM_A,YM_A!,ZM_A |
86 |
cccccc 17/08/2006 modified by elena vannuccini ---> (2) |
cccccc 17/08/2006 modified by elena vannuccini ---> (2) |
87 |
c****************************************************** |
c****************************************************** |
88 |
|
|
89 |
|
|
90 |
* ------------------------------------------------------------------------- |
* ------------------------------------------------------------------------- |
91 |
* The FIT info includes: |
* The FIT info includes: |
92 |
* - REDUCED chi2 |
* - REDUCED chi2 |
111 |
|
|
112 |
|
|
113 |
|
|
|
|
|
|
|
|
114 |
* ------------------------------------------------------------------------- |
* ------------------------------------------------------------------------- |
115 |
* Other commons needed by the minimization procedures: |
* Other commons needed by the minimization procedures: |
116 |
* ------------------------------------------------------------------------- |
* ------------------------------------------------------------------------- |
124 |
$ ,DXDAL(NPLANES,5),DYDAL(NPLANES,5) |
$ ,DXDAL(NPLANES,5),DYDAL(NPLANES,5) |
125 |
$ ,STEPAL(5) |
$ ,STEPAL(5) |
126 |
***PP*** $ ,ZINI |
***PP*** $ ,ZINI |
127 |
|
|
128 |
* ------------------------------------------------------------------------- |
* ------------------------------------------------------------------------- |
129 |
* convergence conditions |
* convergence conditions |
130 |
REAL*8 ALTOL !tolerances on AL-pha parameters |
REAL*8 ALTOL !tolerances on AL-pha parameters |
134 |
$ ALTOL(5) |
$ ALTOL(5) |
135 |
$ ,ALMAX(5),ALMIN(5) |
$ ,ALMAX(5),ALMIN(5) |
136 |
$ ,ISTEPMAX |
$ ,ISTEPMAX |
137 |
|
|
138 |
|
|
139 |
* ------------------------------------------------------------------------- |
* ------------------------------------------------------------------------- |
140 |
* variables for the tracking (routine posxy) |
* variables for the tracking (routine posxy) |
141 |
REAL*8 VECT,VECTINI,VOUT !vectors for Runge-Kutta method |
REAL*8 VECT,VECTINI,VOUT !vectors for Runge-Kutta method |