[u/mrichter/AliRoot.git] / ISAJET / code / fbrbm.F

#include "isajet/pilot.h"
      REAL FUNCTION FBRBM(X)
C
C     Integrand for convolution of 
C     bremsstrahlung with beamstrahlung spectra
C
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/brembm.inc"
C
      REAL EBEAM,ESTRUC,X
C
      FBRBM=EBEAM(X,EB)*ESTRUC(XMIN/X,QSQBM)/X
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	REAL FUNCTION FBRBM(X)
	3	C
	4	C Integrand for convolution of
	5	C bremsstrahlung with beamstrahlung spectra
	6	C
	7	#if defined(CERNLIB_IMPNONE)
	8	IMPLICIT NONE
	9	#endif
	10	#include "isajet/brembm.inc"
	11	C
	12	REAL EBEAM,ESTRUC,X
	13	C
	14	FBRBM=EBEAM(X,EB)*ESTRUC(XMIN/X,QSQBM)/X
	15	RETURN
	16	END