+++ /dev/null
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.2 1996/10/30 08:27:41 cernlib
-* Version 7.04
-*
-* Revision 1.1.1.1 1996/04/12 15:29:05 plothow
-* Version 7.01
-*
-*
-#include "pdf/pilot.h"
- SUBROUTINE BXQBAR (X,QQ,XQBAR)
-C.......................................................................
-C.
-C. SEA
-C.
-C.......................................................................
-#include "pdf/impdp.inc"
- DATA XLAM /0.47D00/, Q02/5.D0/
- DATA ONED/1.D0/, FIVED2/5.2D0/
-C
- S = LOG( LOG( MAX( FIVED2,QQ)/XLAM**2)/ LOG( Q02/XLAM**2))
- AA=0.99D00+0.72D00*S+0.96D00*S*S
- PP=8.10D00-1.49D00*S+5.10D00*S*S
- XQBAR=AA*(ONED-X)**PP
- RETURN
- END