omg0.f

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

C
C
C
        FUNCTION omg0(X)
        common/hiparnt/hipr1(100),ihpr2(50),hint1(100),ihnt2(50)
        SAVE  /hiparnt/
        COMMON /besel/x4
        SAVE   /besel/
        EXTERNAL bk
        x4=hipr1(32)*sqrt(x)
        omg0=hipr1(32)**2*gauss2(bk,x4,x4+20.0,0.01)/96.0
        RETURN
        END