fnstrum.f

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

C
C
C
  FUNCTION fnstrum(X)
  common/hiparnt/hipr1(100),ihpr2(50),hint1(100),ihnt2(50)
  SAVE  /hiparnt/
  fnstrum=1.0/((1.0-x)**2+hipr1(45)**2/hint1(1)**2)**hipr1(46)
     &          /(x**2+hipr1(45)**2/hint1(1)**2)**hipr1(46)
  RETURN
  END