[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / wdsax.F

* $Id$
C
C
	FUNCTION WDSAX(X)
C     			********THREE PARAMETER WOOD SAXON
#include "wood_hijing.inc"
      	WDSAX=FNORM*(1.+W*(X/R)**2)/(1+EXP((X-R)/D))
       	IF (W.LT.0.) THEN
       		IF (X.GE.R/SQRT(ABS(W))) WDSAX=0.
       	ENDIF
      	RETURN
      	END
Commit	Line	Data
e74335a4	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