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

*
* $Id$
*
* $Log$
* Revision 1.4  2000/09/18 10:02:35  hristov
* Makefile added to PDF8
*
* 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
#if defined(CERNLIB_DOUBLE)
      DOUBLE PRECISION
#endif
#if defined(CERNLIB_SINGLE)
      REAL
#endif
     +       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
21886bb6	1	*
	2	* $Id$
	3	*
	4	* $Log$
7ef50f50	5	* Revision 1.4 2000/09/18 10:02:35 hristov
	6	* Makefile added to PDF8
	7	*
21886bb6	8	* Revision 1.1.1.2 1996/10/30 08:27:54 cernlib
	9	* Version 7.04
	10	*
	11	* Revision 1.1.1.1 1996/04/12 15:29:15 plothow
	12	* Version 7.01
	13	*
	14	*
	15	#include "pdf/pilot.h"
	16	C-----------------------------------------------------------------------
	17	SUBROUTINE DFLM3(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
	18	C
	19	C ********************************************************************
	20	C * *
	21	C * Interface to DFLM set of structure functions *
	22	C * *
	23	C * Author: H. Plothow-Besch (CERN-PPE) *
	24	C * *
	25	C ********************************************************************
	26	C
	27	C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 360 MeV :
	28	C
7ef50f50	29	#if defined(CERNLIB_DOUBLE)
	30	DOUBLE PRECISION
	31	#endif
	32	#if defined(CERNLIB_SINGLE)
	33	REAL
	34	#endif
21886bb6	35	+ DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
	36	REAL X, Q2
	37	#include "pdf/w50511.inc"
	38	C
	39	X = DX
	40	Q2 = DSCALE**2
	41	C
	42	C generate the individual structure fcn calls
	43	C
	44	CALL FXG360(X,Q2,'UPVAL',VAL)
	45	DUPV = VAL
	46	CALL FXG360(X,Q2,'DOVAL',VAL)
	47	DDNV = VAL
	48	CALL FXG360(X,Q2,'UBAR ',VAL)
	49	DSEA = VAL
	50	CALL FXG360(X,Q2,'SBAR ',VAL)
	51	DSTR = VAL
	52	CALL FXG360(X,Q2,'CBAR ',VAL)
	53	DCHM = VAL
	54	CALL FXG360(X,Q2,'BBAR ',VAL)
	55	DBOT = VAL
	56	VAL = 0.
	57	IF (DSCALE.GT.TMAS) CALL FXG360(X,Q2,'TBAR ',VAL)
	58	DTOP = VAL
	59	CALL FXG360(X,Q2,'GLUON',VAL)
	60	DGL = VAL
	61	C
	62	RETURN
	63	END