/[PAMELA software]/gpamela/gptof/gpdtof.F
ViewVC logotype

Diff of /gpamela/gptof/gpdtof.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.3 by cafagna, Tue May 2 18:00:11 2006 UTC revision 3.4 by pam-ba, Thu May 18 10:52:32 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdtof.F,v 3.2 2006/05/02 11:46:13 pam-ba Exp $  * $Id: gpdtof.F,v 3.3 2006/05/02 18:00:11 cafagna Exp $
3  *  *
4  * $Log: gpdtof.F,v $  * $Log: gpdtof.F,v $
5    * Revision 3.3  2006/05/02 18:00:11  cafagna
6    * Bugs fixed in TOF set definition, TOF hit back to the original naming scheme
7    *
8  * Revision 3.2  2006/05/02 11:46:13  pam-ba  * Revision 3.2  2006/05/02 11:46:13  pam-ba
9  * TOF geometry and position updated and a new material, the mylar, added  * TOF geometry and position updated and a new material, the mylar, added
10  *  *
# Line 33  Line 36 
36  *  *
37        INTEGER IS,ID,NV,NVM,NNHM,INDEX,NPLANE        INTEGER IS,ID,NV,NVM,NNHM,INDEX,NPLANE
38        CHARACTER*4 CSET(4)        CHARACTER*4 CSET(4)
39        DATA CSET/'S1  ','S2  ','S3A ','S4  '/        DATA CSET/'S1  ','S2  ','S3  ','S4  '/
40  *  *
41  * Vector zeroed  * Vector zeroed
42  *  *
Legend:
Removed from v.3.3  
changed lines
  Added in v.3.4
  ViewVC Help
Powered by ViewVC 1.1.23