HIJING/hijing1_36/wdsax.F

   1 * $Id$
   2 C
   3 C
   4         FUNCTION WDSAX(X)
   5 C                       ********THREE PARAMETER WOOD SAXON
   6 #include "wood_hijing.inc"
   7         WDSAX=FNORM*(1.+W*(X/R)**2)/(1+EXP((X-R)/D))
   8         IF (W.LT.0.) THEN
   9                 IF (X.GE.R/SQRT(ABS(W))) WDSAX=0.
  10         ENDIF
  11         RETURN
  12         END