]>
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 |