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