[u/mrichter/AliRoot.git] / PDF / spdf / dflm4.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:27:56  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:15  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
C-----------------------------------------------------------------------
      SUBROUTINE DFLM4(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
C
C   ********************************************************************
C   *                                                                  *
C   *        Interface to DFLM set of structure functions              *
C   *                                                                  *
C   *        Author:    H. Plothow-Besch (CERN-PPE)                    *
C   *                                                                  *
C   ********************************************************************
C
C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
C :::::::::::: Soft Valence Quark distribution (LO)
C
#include "pdf/expdp.inc"
     +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
      REAL   X, Q2
#include "pdf/w50511.inc"
C
      X = DX
      Q2 = DSCALE**2
C
C     generate the individual structure fcn calls
C
      CALL FXVSOF(X,Q2,'UPVAL',VAL)
      DUPV = VAL
      CALL FXVSOF(X,Q2,'DOVAL',VAL)
      DDNV = VAL
      CALL FXVSOF(X,Q2,'UBAR ',VAL)
      DSEA = VAL
      CALL FXVSOF(X,Q2,'SBAR ',VAL)
      DSTR = VAL
      CALL FXVSOF(X,Q2,'CBAR ',VAL)
      DCHM = VAL
      CALL FXVSOF(X,Q2,'BBAR ',VAL)
      DBOT = VAL
      VAL = 0.
      IF (DSCALE.GT.TMAS) CALL FXVSOF(X,Q2,'TBAR ',VAL)
      DTOP = VAL
      CALL FXVSOF(X,Q2,'GLUON',VAL)
      DGL = VAL
C
      RETURN
      END
Commit	Line	Data
21886bb6	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:27:56 cernlib
	6	* Version 7.04
	7	*
	8	* Revision 1.1.1.1 1996/04/12 15:29:15 plothow
	9	* Version 7.01
	10	*
	11	*
	12	#include "pdf/pilot.h"
	13	C-----------------------------------------------------------------------
	14	SUBROUTINE DFLM4(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
	15	C
	16	C ********************************************************************
	17	C * *
	18	C * Interface to DFLM set of structure functions *
	19	C * *
	20	C * Author: H. Plothow-Besch (CERN-PPE) *
	21	C * *
	22	C ********************************************************************
	23	C
	24	C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
	25	C :::::::::::: Soft Valence Quark distribution (LO)
	26	C
	27	#include "pdf/expdp.inc"
	28	+ DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
	29	REAL X, Q2
	30	#include "pdf/w50511.inc"
	31	C
	32	X = DX
	33	Q2 = DSCALE**2
	34	C
	35	C generate the individual structure fcn calls
	36	C
	37	CALL FXVSOF(X,Q2,'UPVAL',VAL)
	38	DUPV = VAL
	39	CALL FXVSOF(X,Q2,'DOVAL',VAL)
	40	DDNV = VAL
	41	CALL FXVSOF(X,Q2,'UBAR ',VAL)
	42	DSEA = VAL
	43	CALL FXVSOF(X,Q2,'SBAR ',VAL)
	44	DSTR = VAL
	45	CALL FXVSOF(X,Q2,'CBAR ',VAL)
	46	DCHM = VAL
	47	CALL FXVSOF(X,Q2,'BBAR ',VAL)
	48	DBOT = VAL
	49	VAL = 0.
	50	IF (DSCALE.GT.TMAS) CALL FXVSOF(X,Q2,'TBAR ',VAL)
	51	DTOP = VAL
	52	CALL FXVSOF(X,Q2,'GLUON',VAL)
	53	DGL = VAL
	54	C
	55	RETURN
	56	END