Geant4_10
dpm25nonu.f
Go to the documentation of this file.
1  SUBROUTINE qel_pol(ENU, LTYP,P21,P22,P23,P24,P25)
2  IMPLICIT DOUBLE PRECISION (a-h,o-z)
3  RETURN
4  END
5 
6 
7  SUBROUTINE gen_qel (ENU, LTYP,P21,P22,P23,P24,P25)
8  IMPLICIT DOUBLE PRECISION (a-h,o-z)
9  RETURN
10  END
11 
12 
13 
14  SUBROUTINE mass_ini
15  IMPLICIT DOUBLE PRECISION (a-h,o-z)
16  RETURN
17  END
18 
19  SUBROUTINE gen_delta(ENU,LLEP,LTARG,JINT,P21,P22,P23,P24,P25)
20  IMPLICIT DOUBLE PRECISION (a-h,o-z)
21  RETURN
22  END
23 C****************************************************************
24  SUBROUTINE kkevle(NHKKH1,EPN,PPN,KKMAT,IREJ)
25 *
26  IMPLICIT DOUBLE PRECISION (a-h,o-z)
27  RETURN
28  END
29 C*********************************************************************
30 
31  FUNCTION lucomp(KF)
32 
33  RETURN
34  END
35 
Double_t z
Definition: plot.C:279
subroutine gen_qel(ENU, LTYP, P21, P22, P23, P24, P25)
Definition: dpm25nonu.f:7
function lucomp(KF)
Definition: dpm25nonu.f:31
G4double a
Definition: TRTMaterials.hh:39
subroutine qel_pol(ENU, LTYP, P21, P22, P23, P24, P25)
Definition: dpm25nonu.f:1
subroutine gen_delta(ENU, LLEP, LTARG, JINT, P21, P22, P23, P24, P25)
Definition: dpm25nonu.f:19
subroutine kkevle(NHKKH1, EPN, PPN, KKMAT, IREJ)
Definition: dpm25lepto.f:2
subroutine mass_ini
Definition: dpm25nonu.f:14