5 * Revision 1.1.1.2 1996/10/30 08:28:54 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:25 plothow
12 #include "pdf/pilot.h"
13 C-----------------------------------------------------------------------
14 SUBROUTINE MRSEBP(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15 C***************************************************************C
18 C !!!!!!! NEW VERSIONS JANUARY 1989 !!!!!!!! C
21 C MODE 1 CORRESPONDS TO C
22 C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C
24 C MODE 2 CORRESPONDS TO C
25 C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 200 MEV C
27 C ( SOFT GLUE : X G(X,Q0) = A (1-X)**5 ) C
31 C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C
32 C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C
33 C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X)= ... C
34 C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C
35 C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C
39 C (THE RANGE OF APPLICABILITY IS CURRENTLY: C
40 C 10**-4 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C
41 C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C
42 C - PROBLEMS, COMMENTS ETC TO SRG$T3@GEN C
45 C***************************************************************C
46 #include "pdf/impdp.inc"
47 IF(MODE.EQ.1) CALL STRCEP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
48 IF(MODE.EQ.2) CALL STRCBP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)