#include "isajet/pilot.h"
      REAL FUNCTION FBRBM(X)
C
C     Integrand for convolution of 
C     bremsstrahlung with beamstrahlung spectra
C
      REAL EBEAM,ESTRUC,XMIN,QSQ,X,EB
      COMMON /BREMBM/ QSQ,EB,XMIN
      FBRBM=EBEAM(X,EB)*ESTRUC(XMIN/X,QSQ)/X
      RETURN
      END