[u/mrichter/AliRoot.git] / ISAJET / code / setkkg.F

#include "isajet/pilot.h"
      SUBROUTINE SETKKG
C
C          Set the standard KKG parameters in /KKGRAVI/.
C
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/kkgrav.inc"
#include "isajet/const.inc"
C
      REAL DIM2,GMMA,GAMMA
      EXTERNAL GAMMA
C          Calculate D-surface:
      DIM2 = (NEXTRAD*1.0)/2.
      GMMA = GAMMA(DIM2)
      SURFD = (2.*PI**DIM2) / GMMA
      KKGSD = SURFD / (MASSD**(NEXTRAD+2))
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE SETKKG
	3	C
	4	C Set the standard KKG parameters in /KKGRAVI/.
	5	C
	6	#if defined(CERNLIB_IMPNONE)
	7	IMPLICIT NONE
	8	#endif
	9	#include "isajet/kkgrav.inc"
	10	#include "isajet/const.inc"
	11	C
	12	REAL DIM2,GMMA,GAMMA
	13	EXTERNAL GAMMA
	14	C Calculate D-surface:
	15	DIM2 = (NEXTRAD*1.0)/2.
	16	GMMA = GAMMA(DIM2)
	17	SURFD = (2.PI*DIM2) / GMMA
	18	KKGSD = SURFD / (MASSD**(NEXTRAD+2))
	19	RETURN
	20	END