pyhistfe.f

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

    
C*********************************************************************  
    
      SUBROUTINE pyhistfe(KF,X,Q2,XPQ)    
    
C...This is a dummy routine, where the user can introduce an interface  
C...to his own external structure function parametrization. 
C...Arguments in:   
C...KF : 2212 for p, 211 for pi+; isospin conjugation for n and charge  
C...    conjugation for pbar, nbar or pi- is performed by PYSTFU.   
C...X : x value.    
C...Q2 : Q^2 value. 
C...Arguments out:  
C...XPQ(-6:6) : x * f(x,Q2), with index according to KF code,   
C...    except that gluon is placed in 0. Thus XPQ(0) = xg, 
C...    XPQ(1) = xd, XPQ(-1) = xdbar, XPQ(2) = xu, XPQ(-2) = xubar, 
C...    XPQ(3) = xs, XPQ(-3) = xsbar, XPQ(4) = xc, XPQ(-4) = xcbar, 
C...    XPQ(5) = xb, XPQ(-5) = xbbar, XPQ(6) = xt, XPQ(-6) = xtbar. 
C...    
C...One such interface, to the Diemos, Ferroni, Longo, Martinelli   
C...proton structure functions, already comes with the package. What    
C...the user needs here is external files with the three routines   
C...FXG160, FXG260 and FXG360 of the authors above, plus the    
C...interpolation routine FINT, which is part of the CERN library   
C...KERNLIB package. To avoid problems with unresolved external 
C...references, the external calls are commented in the current 
C...version. To enable this option, remove the C* at the beginning  
C...of the relevant lines.  
C...    
C...Alternatively, the routine can be used as an interface to the   
C...structure function evolution program of Tung. This can be achieved  
C...by removing C* at the beginning of some of the lines below. 
      common/ludat1/mstu(200),paru(200),mstj(200),parj(200) 
      SAVE  /ludat1/ 
      common/ludat2/kchg(500,3),pmas(500,4),parf(2000),vckm(4,4)    
      SAVE  /ludat2/ 
      common/pyhipars/mstp(200),parp(200),msti(200),pari(200) 
      SAVE  /pyhipars/ 
      dimension xpq(-6:6),xfdflm(9) 
      CHARACTER chdflm(9)*5,header*40   
      DATA chdflm/'UPVAL','DOVAL','GLUON','QBAR ','UBAR ','SBAR ',  
     &'CBAR ','BBAR ','TBAR '/  
      DATA header/'Tung evolution package has been invoked'/    
      DATA init/0/  

      SAVE xfdflm, init                                     ! Uzhi
    
C...Proton structure functions from Diemoz, Ferroni, Longo, Martinelli. 
C...Allowed variable range 10 GeV2 < Q2 < 1E8 GeV2, 5E-5 < x < .95. 
      IF(mstp(51).GE.11.AND.mstp(51).LE.13.AND.mstp(52).LE.1) THEN  
        xdflm=max(0.51e-4,x)    
        q2dflm=max(10.,min(1e8,q2)) 
        IF(mstp(52).EQ.0) q2dflm=10.    
        DO 100 j=1,9    
        IF(mstp(52).EQ.1.AND.j.EQ.9) THEN   
          q2dflm=q2dflm*(40./pmas(6,1))**2  
          q2dflm=max(10.,min(1e8,q2))   
        ENDIF   
        xfdflm(j)=0.    
C...Remove C* on following three lines to enable the DFLM options.  
C*      IF(MSTP(51).EQ.11) CALL FXG160(XDFLM,Q2DFLM,CHDFLM(J),XFDFLM(J))    
C*      IF(MSTP(51).EQ.12) CALL FXG260(XDFLM,Q2DFLM,CHDFLM(J),XFDFLM(J))    
C*      IF(MSTP(51).EQ.13) CALL FXG360(XDFLM,Q2DFLM,CHDFLM(J),XFDFLM(J))    
  100   CONTINUE    
        IF(x.LT.0.51e-4.AND.abs(parp(51)-1.).GT.0.01) THEN  
          cxs=(0.51e-4/x)**(parp(51)-1.)    
          DO 110 j=1,7  
  110     xfdflm(j)=xfdflm(j)*cxs   
        ENDIF   
        xpq(0)=xfdflm(3)    
        xpq(1)=xfdflm(2)+xfdflm(5)  
        xpq(2)=xfdflm(1)+xfdflm(5)  
        xpq(3)=xfdflm(6)    
        xpq(4)=xfdflm(7)    
        xpq(5)=xfdflm(8)    
        xpq(6)=xfdflm(9)    
        xpq(-1)=xfdflm(5)   
        xpq(-2)=xfdflm(5)   
        xpq(-3)=xfdflm(6)   
        xpq(-4)=xfdflm(7)   
        xpq(-5)=xfdflm(8)   
        xpq(-6)=xfdflm(9)   
    
C...Proton structure function evolution from Wu-Ki Tung: parton 
C...distribution functions incorporating heavy quark mass effects.  
C...Allowed variable range: PARP(52) < Q < PARP(53); PARP(54) < x < 1.  
      ELSE  
        IF(init.EQ.0) THEN  
          i1=0  
          IF(mstp(52).EQ.4) i1=1    
          ihdrn=1   
          nu=mstp(53)   
          i2=mstp(51)   
          IF(mstp(51).GE.11) i2=mstp(51)-3  
          i3=0  
          IF(mstp(52).EQ.3) i3=1    
    
C...Convert to Lambda in CWZ scheme (approximately linear relation).    
          alam=0.75*parp(1) 
          tpms=pmas(6,1)    
          qini=parp(52) 
          qmax=parp(53) 
          xmin=parp(54) 
    
C...Initialize evolution (perform calculation or read results from  
C...file).  
C...Remove C* on following two lines to enable Tung initialization. 
C*        CALL PDFSET(I1,IHDRN,ALAM,TPMS,QINI,QMAX,XMIN,NU,HEADER,  
C*   &    I2,I3,IRET,IRR)   
          init=1    
        ENDIF   
    
C...Put into output array.  
        q=sqrt(q2)  
        DO 200 i=-6,6   
        fixq=0. 
C...Remove C* on following line to enable structure function call.  
C*      FIXQ=MAX(0.,PDF(10,1,I,X,Q,IR)) 
  200   xpq(i)=x*fixq   
    
C...Change order of u and d quarks from Tung to PYTHIA convention.  
        xps=xpq(1)  
        xpq(1)=xpq(2)   
        xpq(2)=xps  
        xps=xpq(-1) 
        xpq(-1)=xpq(-2) 
        xpq(-2)=xps 
      ENDIF 
    
      RETURN    
      END