5 C ********THREE PARAMETER WOOD SAXON
7 C HINT1(76)=R,HINT1(77)=D, HINT1(78)=W, HINT1(79)=FNORM
10 WDSAX2=HINT1(79)*(1.+HINT1(78)*(X/HINT1(76))**2)/
11 & (1+EXP((X-HINT1(76))/HINT1(77)))
12 IF (HINT1(78).LT.0.) THEN
13 IF (X.GE.HINT1(76)/SQRT(ABS(HINT1(78)))) WDSAX2=0.