ISAJET/code/fbrbm.F

   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