fltint.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file fltint.F

C **********************************************************************

      FUNCTION fltint(Z)

C...Integrand for target mass correction contribution to
C...quark longitudinal structure function

*
* to avoid variable conflictions, a second keep element is necessary
* with the same common block name (see LPTOU2)
*
      COMMON /leptou/ cut(14),lst(40),parl(30),
     &                x,y,w2,q2,u
      REAL cut,parl,x,y,w2,q2,u
      INTEGER lst
      SAVE /leptou/

      COMMON /linter/ pari(50),ewqc(2,2,8),qc(8),zl(2,4),zq(2,8),pq(17)
      REAL  pari,ewqc,qc,zl,zq,pq
      SAVE /linter/

      COMMON /linteg/ ntot,npass
      INTEGER ntot,npass
      SAVE /linteg/


      INTEGER i
      REAL fltint,z,xpq,pm2
      dimension xpq(-6:6)
      DATA pm2/0.8804/
      ntot=ntot+1
      CALL lnstrf(z,q2,xpq)
      fltint=0.
      DO 100 i=-lst(12),lst(12)
      IF(i.EQ.0) goto 100
      fltint=fltint+qc(iabs(i))**2*xpq(i)
  100 CONTINUE
      fltint=4.*pm2/q2*(x/z)**2*x*fltint
      npass=npass+1

      RETURN
      END