PDF/spdf/afcplu.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:27:31  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:28:58  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13       FUNCTION AFCPLU(X,Q2)
  14       CMS=1.5**2
  15       BETS=1-4.*CMS*X/(1.-X)/Q2
  16       IF(BETS.LE..0) THEN
  17          AFCPLU=.0
  18          RETURN
  19       ENDIF
  20       BETA=SQRT(BETS)
  21       CPLU=(8.*X*(1.-X)-1.-4.*CMS*X*(1.-X)/Q2)*BETA
  22       CAU=X**2+(1.-X)**2+4.*CMS*X*(1.-3.*X)/Q2-8.*CMS**2*X**2/Q2**2
  23       CPLU=CPLU+CAU* LOG((1.+BETA)/(1.-BETA))
  24       AFCPLU=3.*(4./9.)*CPLU*X/(3.1415*137.)
  25   1   RETURN
  26       END