flap.f

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

C
C
  FUNCTION flap(X)
        common/pact/bb,b1,phi,z1
        SAVE  /pact/
        common/hiparnt/hipr1(100),ihpr2(50),hint1(100),ihnt2(50)
        SAVE  /hiparnt/
        EXTERNAL fgp1
        b1=x
        flap=gauss2(fgp1,0.0,2.0*hipr1(40),0.01)
  RETURN
  END