source: trunk/MagicSoft/Simulation/Corsika/Mmcs/vendat.f

Last change on this file was 286, checked in by harald, 25 years ago
This is the start point for further developments of the Magic Monte Carlo Simulation written by Jose Carlos Gonzales. Now it is under control of one CVS repository for the whole collaboration. Everyone should use this CVS repository for further developments.
File size: 951 bytes
Line 
1 BLOCK DATA VENDAT
2
3C-----------------------------------------------------------------------
4C VEN(US) DAT(A INITIALIZATION)
5C
6C INITIALIZES DATA FOR VENUS LINK
7C
8C DESIGN : D. HECK IK3 FZK KARLSRUHE
9C-----------------------------------------------------------------------
10
11 COMMON /VENLIN/ PTQ1,PTQ2,PTQ3,QMUST1,QMUST2,QMUST3
12 * ,IDTABL(100)
13
14 DATA IDTABL/
15 * 10, -12, 12, 0, -14, 14, 110, 120, -120, -20,
16 * 130, -130, 1220, 1120,-1120, 20, 220, 2130, 1130, 1230,
17 * 2230, 1330, 2330, 3331,-1220,-2130,-1130,-1230,-2230,-1330,
18 *-2330,-3331, -16, 16, -240, 240, -140, 140, -340, 340,
19 * 2140, 0, 0, 0, 0, 0, 0, 0, 0, 0,
20 * 111, 121, -121, 1111, 1121, 1221, 2221,-1111,-1121,-1221,
21 *-2221, 231, 131, -131, -231, 11, -11, 13, -13, 0,
22 * 220, 220, 220, 220, 0, 25*0 /
23
24 END
Note: See TracBrowser for help on using the repository browser.