--- DarthVader/CalorimeterLevel2/src/direction.for	2007/01/27 06:22:20	1.5
+++ DarthVader/CalorimeterLevel2/src/direction.for	2007/11/22 13:53:28	1.7
@@ -27,19 +27,19 @@
 c      PARAMETER (FLIMIT=500)
       PARAMETER (FLIMIT=2000)
       PARAMETER (FLIMIT2=500)
-      REAL X(NPLA),Y(NPLA),W(NPLA)
+      REAL X(NPLAV),Y(NPLAV),W(NPLAV)
       REAL DEVIA(2),TG(2)
-      REAL BAR(2,NPLA)
+      REAL BAR(2,NPLAV)
       REAL A, B, VAR
       REAL SA, SB, SVAR
       REAL SSA, SSB, SSVAR
-      REAL PIANO(22)
+      REAL PIANO(NPLAV)
       REAL VARFIT(2)
 
       INTEGER ICONT, M, I, SNPFIT,SSNPFIT
       INTEGER NPFIT(2), CHTRACK,IWPL(2)
       
-      INTEGER IBAR(2,NPLA)      
+      INTEGER IBAR(2,NPLAV)      
       COMMON/ANGOLO/BAR,IBAR
       SAVE /ANGOLO/
 
@@ -72,15 +72,17 @@
          FMODE(M) = 0
  10      CONTINUE         
          ICONT = 0
-         CALL VZERO(X,NPLA)
-         CALL VZERO(Y,NPLA)
-         CALL VZERO(W,NPLA)
+         CALL VZERO(X,NPLAV)
+         CALL VZERO(Y,NPLAV)
+         CALL VZERO(W,NPLAV)
          DO I = 1,NPLA
 C    
             IF (MOD(M,2).EQ.0) THEN
-               X(I) = PIANO(I) - 5.81
+               X(I) = PIANO(I)
+C               X(I) = PIANO(I) - 5.81
             ELSE
-               X(I) = PIANO(I)                  
+               X(I) = PIANO(I) - 5.81
+C               X(I) = PIANO(I)                  
             ENDIF
             Y(I) = 0.
 C