wdsax2.f

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

C
C
  FUNCTION wdsax2(X)
C           ********THREE PARAMETER WOOD SAXON 
C                               FOR  TARGET
C       HINT1(76)=R,HINT1(77)=D, HINT1(78)=W, HINT1(79)=FNORM
C
  common/hiparnt/hipr1(100),ihpr2(50),hint1(100),ihnt2(50)
  SAVE  /hiparnt/
        wdsax2=hint1(79)*(1.+hint1(78)*(x/hint1(76))**2)/
     &       (1+exp((x-hint1(76))/hint1(77)))
        IF (hint1(78).LT.0.) THEN
          IF (x.GE.hint1(76)/sqrt(abs(hint1(78)))) wdsax2=0.
        ENDIF
        RETURN
        END