--- gpamela/gpspe/gpdspe.F	2005/12/05 12:15:21	3.3
+++ gpamela/gpspe/gpdspe.F	2006/01/18 09:41:33	3.4
@@ -1,7 +1,10 @@
 *
-* $Id: gpdspe.F,v 3.2 2005/07/25 11:53:21 cafagna Exp $
+* $Id: gpdspe.F,v 3.3 2005/12/05 12:15:21 pam-ba Exp $
 *
 * $Log: gpdspe.F,v $
+* Revision 3.3  2005/12/05 12:15:21  pam-ba
+* new spectrometer geometry and internal magnetic field
+*
 * Revision 3.2  2005/07/25 11:53:21  cafagna
 * Several updates. See history for details
 *
@@ -165,18 +168,18 @@
 	 YAVSPE(I) = YAVSPE(I) + DYPOS
 
 C
-C ADD RESOLUTION OF THE SHIFT INDUCED BY THE MAG. FIELD
+C ADD THE SHIFT INDUCED BY THE MAG. FIELD
 C
 
-         IF(ITRPB(I).LT.6) THEN
+         IF(ITRPB(I).EQ.1) THEN
 	    XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)
-         ELSE IF(ITRPB(I).EQ.6) THEN
+         ELSE IF(ITRPB(I).EQ.2) THEN
 	    XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)
          ENDIF
 
       ENDDO
 *
-* Loop on the hits retrived to fill the CWN common and the DIGI bank
+* Loop on the hits retrived to fill the CWN common and the DIGI b
 *
 C fc       IF (HF) NTHSPE = NHITS
 C fc       DO I=1,NHITS