5 * Revision 1.1.1.1 1995/10/24 10:21:00 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.38 by S.Giani
12 FUNCTION PMLTPC(NP,NM,NZ,N,B,C)
14 C *** NVE 03-MAR-1988 CERN GENEVA ***
16 C ORIGIN : H.FESEFELDT (14-SEP-1987)
18 #include "geant321/limits.inc"
22 1 RLNNPF=RLNNPF+LOG(I*1.)
26 3 RLNNMF=RLNNMF+LOG(I*1.)
30 5 RLNNZF=RLNNZF+LOG(I*1.)
31 6 PMLTPC=-(NP-NM+NZ+B)**2/(2*(C*N)**2)-RLNNPF-RLNNMF-RLNNZF
32 IF(PMLTPC.LT.EXPXL) PMLTPC=EXPXL