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

* $Id$
C
C
	FUNCTION WDSAX2(X)
C     			********THREE PARAMETER WOOD SAXON 
C                               FOR  TARGET
C       HINT1(76)=R,HINT1(77)=D, HINT1(78)=W, HINT1(79)=FNORM
C
#include "hiparnt.inc"
      	WDSAX2=HINT1(79)*(1.+HINT1(78)*(X/HINT1(76))**2)/
     &       (1+EXP((X-HINT1(76))/HINT1(77)))
       	IF (HINT1(78).LT.0.) THEN
       		IF (X.GE.HINT1(76)/SQRT(ABS(HINT1(78)))) WDSAX2=0.
       	ENDIF
      	RETURN
      	END
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