wdsax.f

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

C
C
        FUNCTION wdsax(X)
C                       ********THREE PARAMETER WOOD SAXON
        common/wood/r,d,fnorm,w
        SAVE  /wood/
        wdsax=fnorm*(1.+w*(x/r)**2)/(1+exp((x-r)/d))
        IF (w.LT.0.) THEN
                IF (x.GE.r/sqrt(abs(w))) wdsax=0.
        ENDIF
        RETURN
        END