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

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:27:54  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 DFLM3(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 = 360 MeV :
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 FXG360(X,Q2,'UPVAL',VAL)
      DUPV = VAL
      CALL FXG360(X,Q2,'DOVAL',VAL)
      DDNV = VAL
      CALL FXG360(X,Q2,'UBAR ',VAL)
      DSEA = VAL
      CALL FXG360(X,Q2,'SBAR ',VAL)
      DSTR = VAL
      CALL FXG360(X,Q2,'CBAR ',VAL)
      DCHM = VAL
      CALL FXG360(X,Q2,'BBAR ',VAL)
      DBOT = VAL
      VAL = 0.
      IF (DSCALE.GT.TMAS) CALL FXG360(X,Q2,'TBAR ',VAL)
      DTOP = VAL
      CALL FXG360(X,Q2,'GLUON',VAL)
      DGL  = VAL
C
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:27:54 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 DFLM3(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 = 360 MeV :
	25	C
	26	#include "pdf/expdp.inc"
	27	+ DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
	28	REAL X, Q2
	29	#include "pdf/w50511.inc"
	30	C
	31	X = DX
	32	Q2 = DSCALE**2
	33	C
	34	C generate the individual structure fcn calls
	35	C
	36	CALL FXG360(X,Q2,'UPVAL',VAL)
	37	DUPV = VAL
	38	CALL FXG360(X,Q2,'DOVAL',VAL)
	39	DDNV = VAL
	40	CALL FXG360(X,Q2,'UBAR ',VAL)
	41	DSEA = VAL
	42	CALL FXG360(X,Q2,'SBAR ',VAL)
	43	DSTR = VAL
	44	CALL FXG360(X,Q2,'CBAR ',VAL)
	45	DCHM = VAL
	46	CALL FXG360(X,Q2,'BBAR ',VAL)
	47	DBOT = VAL
	48	VAL = 0.
	49	IF (DSCALE.GT.TMAS) CALL FXG360(X,Q2,'TBAR ',VAL)
	50	DTOP = VAL
	51	CALL FXG360(X,Q2,'GLUON',VAL)
	52	DGL = VAL
	53	C
	54	RETURN
	55	END