[u/mrichter/AliRoot.git] / ISAJET / isasusy / ssgzg1.F

#include "isajet/pilot.h"
        REAL FUNCTION SSGZG1(XARG)
C-----------------------------------------------------------------------
C          SSGLBF: glss -> ziss + gl
C          Baer's FUNI- removed mass dependence to simplify
C-----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/sssm.inc"
#include "isajet/sspar.inc"
#include "isajet/sstmp.inc"
        REAL XARG
        DOUBLE PRECISION TOP,BOT,XX,F,MQ,MX,MS,MG
C
        MQ=TMP(1)
        MX=TMP(2)
        MS=TMP(3)
        MG=AMGLSS
C
        XX=XARG
        TOP=-MG**2*XX*(1.D0-XX)+MS**2*XX+MQ**2*(1.D0-XX)
        BOT=-MX**2*XX*(1.D0-XX)+MS**2*XX+MQ**2*(1.D0-XX)
        F=DLOG(TOP/BOT)/XX
        SSGZG1=F
        RETURN
        END
Commit	Line	Data
	1	#include "isajet/pilot.h"
	2	REAL FUNCTION SSGZG1(XARG)
	3	C-----------------------------------------------------------------------
	4	C SSGLBF: glss -> ziss + gl
	5	C Baer's FUNI- removed mass dependence to simplify
	6	C-----------------------------------------------------------------------
	7	#if defined(CERNLIB_IMPNONE)
	8	IMPLICIT NONE
	9	#endif
	10	#include "isajet/sssm.inc"
	11	#include "isajet/sspar.inc"
	12	#include "isajet/sstmp.inc"
	13	REAL XARG
	14	DOUBLE PRECISION TOP,BOT,XX,F,MQ,MX,MS,MG
	15	C
	16	MQ=TMP(1)
	17	MX=TMP(2)
	18	MS=TMP(3)
	19	MG=AMGLSS
	20	C
	21	XX=XARG
	22	TOP=-MG*2XX(1.D0-XX)+MS2XX+MQ*2(1.D0-XX)
	23	BOT=-MX*2XX(1.D0-XX)+MS2XX+MQ*2(1.D0-XX)
	24	F=DLOG(TOP/BOT)/XX
	25	SSGZG1=F
	26	RETURN
	27	END