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 d9c076e..30cb3b1 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
 *