Names changed in order to avoid clash with FLUKA
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 22 Jul 2003 17:51:10 +0000 (17:51 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 22 Jul 2003 17:51:10 +0000 (17:51 +0000)
EVGEN/PartEloss/readca3.f

index d9c076edf186b3924d36fd007786e2258c35260b..30cb3b14bb4019d664de5e534f1538f807418630 100644 (file)
@@ -1,4 +1,4 @@
-      SUBROUTINE READCA3
+      SUBROUTINE ELOSS_READCA3
       REAL*8           xx(400), da(30), ca(30,260), rrr(30)
       COMMON /data/    xx, da, ca, rrr
 *