--- gpamela/gptof/gpdtof.F	2006/05/02 18:00:11	3.3
+++ gpamela/gptof/gpdtof.F	2006/05/18 10:52:32	3.4
@@ -1,7 +1,10 @@
 *
-* $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 $
 *
 * $Log: gpdtof.F,v $
+* Revision 3.3  2006/05/02 18:00:11  cafagna
+* Bugs fixed in TOF set definition, TOF hit back to the original naming scheme
+*
 * Revision 3.2  2006/05/02 11:46:13  pam-ba
 * TOF geometry and position updated and a new material, the mylar, added
 *
@@ -33,7 +36,7 @@
 *
       INTEGER IS,ID,NV,NVM,NNHM,INDEX,NPLANE
       CHARACTER*4 CSET(4)
-      DATA CSET/'S1  ','S2  ','S3A ','S4  '/
+      DATA CSET/'S1  ','S2  ','S3  ','S4  '/
 *
 * Vector zeroed
 *