Restore support for g77
[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.5.1 / src / LHpdflib.f
index 4ce9165d84f5e945a491efa67f7a4167de5f8d9b..5e47390083079aed5cda9f512b246327bbd75729 100644 (file)
@@ -103,7 +103,11 @@ subroutine InitPDFsetM(nset,setpath)
   endif
   
   call setnset(nset)
+#ifdef __GFORTRAN__
   open(unit=1,file=setpath,status='old',action='read')
+#else
+  open(unit=1,file=setpath,status='old')
+#endif
   read(1,*) s1,s2
   if ((    index(s2,'1.0').ne.1) &
      .and.(index(s2,'1.1').ne.1) &