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