Go to the source code of this file.
|
| *commonc h **IMPLICIT REAL *A O Z | PARAMETER (NMX=10, NMX2=2 *NMX, NMX3=3 *NMX, NMX4=4 *NMX,&NMX8=8 *NMX, NMXm=NMX *(NMX-1)/2) COMMON/CHAIN1/X(NMX3) |
| |
| *commonc h **IMPLICIT REAL *A O Z | V (NMX3) |
| |
| *commonc h **IMPLICIT REAL *A O Z | M (NMX) |
| |
| *commonc h **IMPLICIT REAL *A O Z & | XC (NMX3) |
| |
| *commonc h **IMPLICIT REAL *A O Z | WC (NMX3) |
| |
| *commonc h **IMPLICIT REAL *A O Z | MC (NMX) |
| |
| *commonc h **IMPLICIT REAL *A O Z & | XI (NMX3) |
| |
| *commonc h **IMPLICIT REAL *A O Z | PI (NMX3) |
| |
| *commonc h **IMPLICIT REAL *A O Z | RINV (NMXm) |
| |
| *commonc h **IMPLICIT REAL *A O Z | MKK (NMX) |
| |
| *commonc h **IMPLICIT REAL *A O Z & | MIJ (NMX, NMX) |
| |
| *commonc h **IMPLICIT REAL *A O Z | TKK (NMX) |
| |
| *commonc h **IMPLICIT REAL *A O Z | TK1 (NMX) |
| |
| *commonc h **IMPLICIT REAL *A O Z | INAME (NMX) |
| |
|
| *commonc h **IMPLICIT REAL *A | H |
| |
| *commonc h **IMPLICIT REAL *A | M |
| |
| *commonc h **IMPLICIT REAL *A O Z | MASS |
| |
| *commonc h **IMPLICIT REAL *A O Z | RSUM |
| |
| * commonc h* * IMPLICIT REAL* A O Z INAME |
( |
NMX |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z M |
( |
NMX |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z MC |
( |
NMX |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z & MIJ |
( |
NMX |
, |
|
|
NMX |
|
|
) |
| |
| * commonc h* * IMPLICIT REAL* A O Z MKK |
( |
NMX |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z PARAMETER |
( |
NMX |
= 10, |
|
|
NMX2 |
= 2*NMX, |
|
|
NMX3 |
= 3*NMX, |
|
|
NMX4 |
= 4*NMX, |
|
|
& |
NMX8 = 8*NMX, |
|
|
NMXm |
= NMX*(NMX-1)/2 |
|
) |
| |
| * commonc h* * IMPLICIT REAL* A O Z PI |
( |
NMX3 |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z RINV |
( |
NMXm |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z TK1 |
( |
NMX |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z TKK |
( |
NMX |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z V |
( |
NMX3 |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z WC |
( |
NMX3 |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z & XC |
( |
NMX3 |
| ) |
|
| * commonc h* * IMPLICIT REAL* A O Z & XI |
( |
NMX3 |
| ) |
|
| * commonc h* * IMPLICIT REAL* A H |
| * commonc h* * IMPLICIT REAL* A M |
| * commonc h* * IMPLICIT REAL* A O Z MASS |
| * commonc h* * IMPLICIT REAL* A O Z RSUM |
1.8.2 
