wdsax1.f

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

C
C
C
C
  FUNCTION wdsax1(X)
C           ********THREE PARAMETER WOOD SAXON 
C                               FOR  PROJECTILE
C       HINT1(72)=R, HINT1(73)=D, HINT1(74)=W, HINT1(75)=FNORM
C
  common/hiparnt/hipr1(100),ihpr2(50),hint1(100),ihnt2(50)
  SAVE  /hiparnt/
        wdsax1=hint1(75)*(1.+hint1(74)*(x/hint1(72))**2)/
     &       (1+exp((x-hint1(72))/hint1(73)))
        IF (hint1(74).LT.0.) THEN
          IF (x.GE.hint1(72)/sqrt(abs(hint1(74)))) wdsax1=0.
        ENDIF
        RETURN
        END