Go to the source code of this file.
|
| subroutine | qel_pol (ENU, LTYP, P21, P22, P23, P24, P25) |
| |
| subroutine | gen_qel (ENU, LTYP, P21, P22, P23, P24, P25) |
| |
| subroutine | mass_ini |
| |
| function | dsqel_q2 (JTYP, ENU, Q2) |
| |
| subroutine | prepola (Q2, JTYP, ENU) |
| |
| subroutine | testrot1 (PI, PO, PHI) |
| |
| subroutine | testrot2 (PI, PO, PHI) |
| |
| subroutine | testrot3 (PI, PO, PHI) |
| |
| subroutine | testrot4 (PI, PO, PHI) |
| |
| subroutine | lepdcyp (AMA, AML, POL, ETL, PXL, PYL, PZL, ETB, PXB, PYB, PZB, ETN, PXN, PYN, PZN) |
| |
| subroutine | gen_delta (ENU, LLEP, LTARG, JINT, P21, P22, P23, P24, P25) |
| |
| function | dsigma_delta (LNU, QQ, S, AML, MD) |
| |
| subroutine | qgaus (A, B, SS, ENU, LTYP) |
| |
| function dsigma_delta |
( |
|
LNU, |
|
|
|
QQ, |
|
|
|
S, |
|
|
|
AML, |
|
|
real*8 |
MD |
|
) |
| |
| subroutine gen_delta |
( |
|
ENU, |
|
|
|
LLEP, |
|
|
|
LTARG, |
|
|
|
JINT, |
|
|
|
P21, |
|
|
|
P22, |
|
|
|
P23, |
|
|
|
P24, |
|
|
|
P25 |
|
) |
| |
| subroutine gen_qel |
( |
|
ENU, |
|
|
|
LTYP, |
|
|
|
P21, |
|
|
|
P22, |
|
|
|
P23, |
|
|
|
P24, |
|
|
|
P25 |
|
) |
| |
| subroutine lepdcyp |
( |
|
AMA, |
|
|
|
AML, |
|
|
|
POL, |
|
|
|
ETL, |
|
|
|
PXL, |
|
|
|
PYL, |
|
|
|
PZL, |
|
|
|
ETB, |
|
|
|
PXB, |
|
|
|
PYB, |
|
|
|
PZB, |
|
|
|
ETN, |
|
|
|
PXN, |
|
|
|
PYN, |
|
|
|
PZN |
|
) |
| |
| subroutine prepola |
( |
|
Q2, |
|
|
|
JTYP, |
|
|
|
ENU |
|
) |
| |
| subroutine qel_pol |
( |
|
ENU, |
|
|
|
LTYP, |
|
|
|
P21, |
|
|
|
P22, |
|
|
|
P23, |
|
|
|
P24, |
|
|
|
P25 |
|
) |
| |
| subroutine qgaus |
( |
|
A, |
|
|
|
B, |
|
|
|
SS, |
|
|
|
ENU, |
|
|
|
LTYP |
|
) |
| |
| subroutine testrot1 |
( |
dimension(3) |
PI, |
|
|
dimension(3) |
PO, |
|
|
|
PHI |
|
) |
| |
| subroutine testrot2 |
( |
dimension(3) |
PI, |
|
|
dimension(3) |
PO, |
|
|
|
PHI |
|
) |
| |
| subroutine testrot3 |
( |
dimension(3) |
PI, |
|
|
dimension(3) |
PO, |
|
|
|
PHI |
|
) |
| |
| subroutine testrot4 |
( |
dimension(3) |
PI, |
|
|
dimension(3) |
PO, |
|
|
|
PHI |
|
) |
| |