| Rev | Line | |
|---|
| [2] | 1 | program pgs
|
|---|
| 2 | implicit none
|
|---|
| 3 |
|
|---|
| 4 | c generated particle list
|
|---|
| 5 | include 'pgs.inc'
|
|---|
| 6 |
|
|---|
| 7 | nevhep = 12
|
|---|
| 8 | jmohep(1,2) = 11
|
|---|
| 9 | phep(1,1) = 15.123456789E10
|
|---|
| 10 |
|
|---|
| 11 | numtrk = 5
|
|---|
| 12 | ptrk(2,1) = 1.23456789e15
|
|---|
| 13 |
|
|---|
| 14 | hcal(2,1) = 2.34567890e15
|
|---|
| 15 | met_cal = pi
|
|---|
| 16 |
|
|---|
| 17 | pclu(2,1) = 3.456789012e15
|
|---|
| 18 | mulclu(2) = 123
|
|---|
| 19 |
|
|---|
| 20 | vectrg(9,2) = 4.567890123e15
|
|---|
| 21 | indtrg(2) = 234
|
|---|
| 22 |
|
|---|
| 23 | vecobj(10,3) = 5.678901234e15
|
|---|
| 24 | indobj(3) = 345
|
|---|
| 25 |
|
|---|
| 26 | call test_cpp(10)
|
|---|
| 27 |
|
|---|
| 28 | call pgs2root_ini
|
|---|
| 29 | call pgs2root_evt
|
|---|
| 30 | call pgs2root_end
|
|---|
| 31 |
|
|---|
| 32 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
