Adding macros to create Calibration objects
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / wdsax2.F
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