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

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:31:02  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:50  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
C-----------------------------------------------------------------------
      SUBROUTINE STRGHR(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL)
C ::::::::::::   GHR   ::::::::::::::::::::::::::::
C
#include "pdf/expdp.inc"
     +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL
      DATA ALAM2/0.160/, Q02/4.0/
      Q = DSCALE
      X = DX
      QQ=Q*Q
      SQ= LOG( LOG( MAX(Q02,QQ)/ALAM2)/ LOG(Q02/ALAM2))
      UPV=GHRUV(X,SQ)
      DNV=GHRDV(X,SQ)
      SEA=GHRXI(X,SQ)
      STR=GHRXS(X,SQ)
      GL =GHRGL(X,SQ)
      DUPV=UPV
      DDNV=DNV
      DSEA=SEA
      DSTR=STR
      DCHM=0.0D0
      DGL =GL
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:31:02 cernlib
	6	* Version 7.04
	7	*
	8	* Revision 1.1.1.1 1996/04/12 15:29:50 plothow
	9	* Version 7.01
	10	*
	11	*
	12	#include "pdf/pilot.h"
	13	C-----------------------------------------------------------------------
	14	SUBROUTINE STRGHR(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL)
	15	C :::::::::::: GHR ::::::::::::::::::::::::::::
	16	C
	17	#include "pdf/expdp.inc"
	18	+ DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL
	19	DATA ALAM2/0.160/, Q02/4.0/
	20	Q = DSCALE
	21	X = DX
	22	QQ=Q*Q
	23	SQ= LOG( LOG( MAX(Q02,QQ)/ALAM2)/ LOG(Q02/ALAM2))
	24	UPV=GHRUV(X,SQ)
	25	DNV=GHRDV(X,SQ)
	26	SEA=GHRXI(X,SQ)
	27	STR=GHRXS(X,SQ)
	28	GL =GHRGL(X,SQ)
	29	DUPV=UPV
	30	DDNV=DNV
	31	DSEA=SEA
	32	DSTR=STR
	33	DCHM=0.0D0
	34	DGL =GL
	35	RETURN
	36	END