Restore support for g77
[u/mrichter/AliRoot.git] / PYTHIA6 / openDecayTable.F
index 751195b13ed4c884bb797c133ebd79e269ac0706..70003c0650ec98d5cf956af6fabffd967b232a28 100644 (file)
          PRINT*,'***********************************'
          STOP
       ENDIF
+#ifdef __GFORTRAN__
       OPEN(LUN,FILE=FILNAM,STATUS='OLD',ACTION='READ')
+#else
+      OPEN(LUN,FILE=FILNAM,STATUS='OLD')
+#endif
       RETURN
       END
       SUBROUTINE CLOSEDECAYTABLE(LUN)