]>
Commit | Line | Data |
---|---|---|
e74335a4 | 1 | * $Id$ |
2 | C | |
3 | C | |
4 | FUNCTION WDSAX2(X) | |
5 | C ********THREE PARAMETER WOOD SAXON | |
6 | C FOR TARGET | |
7 | C HINT1(76)=R,HINT1(77)=D, HINT1(78)=W, HINT1(79)=FNORM | |
8 | C | |
9 | #include "hiparnt.inc" | |
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. | |
14 | ENDIF | |
15 | RETURN | |
16 | END |