Cleaning up some non standard FORTRAN for g95 on MacOSX

[u/mrichter/AliRoot.git] / EMCAL / jet_finder_ua1.F

diff --git a/EMCAL/jet_finder_ua1.F b/EMCAL/jet_finder_ua1.F
index 41b09c0a111940367a379f68685509ab49761d9d..0780917c2f3254f5017d3cc9ee0056267bae8d37 100644 (file)
--- a/EMCAL/jet_finder_ua1.F
+++ b/EMCAL/jet_finder_ua1.F
@@ -34,10 +34,12 @@ c#include "calorSize.inc"
       real occupationAll, occupationInJet  ! 3-oct-2001 by PAI 
       integer maxTowerInJet                ! 5-oct-2001 by PAI
       save    maxTowerInJet                ! This is obligatory
-      integer idPerfomance /119/
+      integer idPerfomance
+      data    idPerfomance /119/
       save    idPerfomance
 !  print parameter - 27-sep-2001 by PAI
-      integer kpri/0/
+      integer kpri
+      data    kpri /0/
       integer njet, ncellj
       real    etj, etaj, phij
 *    Results