7 C ********THREE PARAMETER WOOD SAXON
9 C HINT1(72)=R, HINT1(73)=D, HINT1(74)=W, HINT1(75)=FNORM
11 #include "hiparnt.inc"
12 WDSAX1=HINT1(75)*(1.+HINT1(74)*(X/HINT1(72))**2)/
13 & (1+EXP((X-HINT1(72))/HINT1(73)))
14 IF (HINT1(74).LT.0.) THEN
15 IF (X.GE.HINT1(72)/SQRT(ABS(HINT1(74)))) WDSAX1=0.