Bug fixed: pointer was not properly deleted
[u/mrichter/AliRoot.git] / EVGEN / PartEloss / readca3.f
index d9c076edf186b3924d36fd007786e2258c35260b..bd569a28109b6dcbf8a47df6c1ebe46c99e24f2f 100644 (file)
@@ -1,10 +1,9 @@
-      SUBROUTINE READCA3
+      SUBROUTINE ELOSS_READCA3
       REAL*8           xx(400), da(30), ca(30,260), rrr(30)
       COMMON /data/    xx, da, ca, rrr
 *
       CHARACTER*100 CHROOT  
       CHARACTER*100 FILNAM
-      LOGICAL EXISTS
       CHROOT=' '
       CALL GETENVF('ALICE_ROOT',CHROOT)
       LNROOT = LNBLNK(CHROOT)