Parent Directory
| 
Revision Log
Initial revision
| 1 | mocchiut | 1.1 | IMPLICIT NONE |
| 2 | REAL DEDX(500),CLSIGNAL(8500),CNEV(12,24) | ||
| 3 | INTEGER NEV1,NCLSTR1,VIEW(500),LADDER(500),MAXS(500),MULT(500) | ||
| 4 | & ,INDSTART(500),INDMAX(500),TOTCLLENGTH | ||
| 5 | LOGICAL GOOD1 | ||
| 6 | * | ||
| 7 | integer pkt_type1,pkt_num1, obt1, which_calib1 | ||
| 8 | c | ||
| 9 | COMMON /trklev1/ GOOD1,NEV1, | ||
| 10 | & pkt_type1,pkt_num1, obt1, which_calib1, | ||
| 11 | & NCLSTR1,VIEW,LADDER,MAXS,MULT,DEDX | ||
| 12 | & ,INDSTART,INDMAX,TOTCLLENGTH,CLSIGNAL,CNEV | ||
| 13 | SAVE /trklev1/ | ||
| 14 | |||
| 15 | |||
| 16 |
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |