1 #include "isajet/pilot.h"
4 C Set the standard KKG parameters in /KKGRAVI/.
6 #if defined(CERNLIB_IMPNONE)
9 #include "isajet/kkgrav.inc"
10 #include "isajet/const.inc"
14 C Calculate D-surface:
15 DIM2 = (NEXTRAD*1.0)/2.
17 SURFD = (2.*PI**DIM2) / GMMA
18 KKGSD = SURFD / (MASSD**(NEXTRAD+2))