Remove several warnings
[u/mrichter/AliRoot.git] / MUON / reco_muon.F
index cd188f0d775c821d6098768de5637269dc632811..e7e0a0950a34317fefdeceded63adac56d5e059c 100644 (file)
   
       DIMENSION DIST(2),NMUON(2),NHITMUON(2,5),NMUONGOOD(2)
 
-      REAL*4 RNDM,RN,RN1,RN2,R1,R2
+*      REAL*4 RNDM,RN,RN1,RN2,R1,R2
 
 * Chambre 10 deg.      
       DATA RMAX1/91.5,91.5,122.5,122.5,158.3,158.3,260.,260.,260.,260./
 *
       COMMON/DEBEVT/IDEBUG
 *
-      CHARACTER*50 FILEBKG,FILERES,FILEOUT,FILEMIN
+*      CHARACTER*50 FILEBKG,FILERES,FILEOUT,FILEMIN
 *
       IF (IDEBUG.GE.1) THEN
          PRINT *,'    '
       END
 
 ********************************************************************************
-       SUBROUTINE OLDFOLLOW(ZSTR,PEST,IFLAG,XPL,YPL,PHPL,ALPL)
+       SUBROUTINE FOLLOW(ZSTR,PEST,IFLAG,XPL,YPL,PHPL,ALPL)
 ********************************************************************************
 *   Calculate the particle trajectory in the spectrometer and
 *   (XPL,YPL,PHPL,ALPL)
        RETURN
        END
 ********************************************************************************
-       SUBROUTINE FOLLOW(ZSTR,PEST,IFLAG,XPL,YPL,PHPL,ALPL)
+       SUBROUTINE NEWFOLLOW(ZSTR,PEST,IFLAG,XPL,YPL,PHPL,ALPL)
 ********************************************************************************
 *   Calculate the particle trajectory in the spectrometer 
 *   (XPL,YPL,PHPL,ALPL)
 * $Id$
 *
 * $Log$
+* Revision 1.1  1999/07/30 10:53:20  fca
+* New version of MUON from M.Bondila & A.Morsch
+*
 * Revision 1.1.1.1  1996/02/15 17:48:35  mclareni
 * Kernlib
 *