Restore support for g77
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 16 Jul 2010 12:17:07 +0000 (12:17 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 16 Jul 2010 12:17:07 +0000 (12:17 +0000)
LHAPDF/lhapdf5.5.1/src/LHpdflib.f
PYTHIA6/openDecayTable.F

index 4ce9165..5e47390 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) &
index 751195b..70003c0 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)