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