ISAJET/code/setkkg.F

   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