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

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:31:51  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:30:06  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
C
      SUBROUTINE STRUCOR(DX,DQ,DUPV,DDNV,DSEA,DSTR,DGL)
C.......................................................................
C.    HIGH ENERGY STRUCTURE FUNCTIONS
C.
C :::::::::::: Owens and Reya   ::::::::::::::::::::::::::::
C.    Phys. Rev. D 17 (1978) 3003.
C.
C.    ( LAMBDA = 500 MEV)
C.......................................................................
#include "pdf/impdp.inc"
C
      QQ = DQ*DQ
      CALL RXUD (DX,QQ,XUD)
      CALL RXDV (DX,QQ,XDV)
      CALL RXQBAR (DX,QQ,XQBAR)
      CALL RXGLUE (DX,QQ,XGL)
      DUPV=XUD-XDV
      DDNV=XDV
      DSEA=XQBAR
      DSTR=DSEA
      DGL =XGL
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:31:51 cernlib
	6	* Version 7.04
	7	*
	8	* Revision 1.1.1.1 1996/04/12 15:30:06 plothow
	9	* Version 7.01
	10	*
	11	*
	12	#include "pdf/pilot.h"
	13	C
	14	SUBROUTINE STRUCOR(DX,DQ,DUPV,DDNV,DSEA,DSTR,DGL)
	15	C.......................................................................
	16	C. HIGH ENERGY STRUCTURE FUNCTIONS
	17	C.
	18	C :::::::::::: Owens and Reya ::::::::::::::::::::::::::::
	19	C. Phys. Rev. D 17 (1978) 3003.
	20	C.
	21	C. ( LAMBDA = 500 MEV)
	22	C.......................................................................
	23	#include "pdf/impdp.inc"
	24	C
	25	QQ = DQ*DQ
	26	CALL RXUD (DX,QQ,XUD)
	27	CALL RXDV (DX,QQ,XDV)
	28	CALL RXQBAR (DX,QQ,XQBAR)
	29	CALL RXGLUE (DX,QQ,XGL)
	30	DUPV=XUD-XDV
	31	DDNV=XDV
	32	DSEA=XQBAR
	33	DSTR=DSEA
	34	DGL =XGL
	35	RETURN
	36	END