--- DarthVader/CalorimeterLevel2/src/nointer.for	2006/05/19 13:15:51	1.1
+++ DarthVader/CalorimeterLevel2/src/nointer.for	2009/08/04 14:01:21	1.3
@@ -4,9 +4,9 @@
 C-
       INCLUDE 'INTEST.TXT'
 C      
-      REAL BAR(2,NPLA)
+      REAL BAR(2,NPLAV)
       REAL RIL(NCHA/2)
-      INTEGER IBAR(2,NPLA)
+      INTEGER IBAR(2,NPLAV)
       INTEGER NPIANI
       COMMON/ ANGOLO / BAR, IBAR
       SAVE / ANGOLO /
@@ -19,7 +19,7 @@
 C
       IF (RIG.NE.0) NPIANI = INT( ANINT( 9. + LOG(ABS(RIG)) ) )
 C
-      IF ( NPIANI.gt.22 ) NPIANI = 22
+      IF ( NPIANI.gt.NPLA ) NPIANI = NPLA
       IF ( NPIANI.lt.1 )  NPIANI = 1
 C
       DO K = 1,NCHA/2
@@ -63,5 +63,6 @@
       ENDDO
 C
 
-  999 RETURN
+c  999 RETURN
+      RETURN
       END