Fix for report #67958: Fortrans open call should open explicitly for read-only
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 2 Jun 2010 12:27:32 +0000 (12:27 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 2 Jun 2010 12:27:32 +0000 (12:27 +0000)
PYTHIA6/openDecayTable.F

index 8666976..751195b 100644 (file)
@@ -30,7 +30,7 @@
          PRINT*,'***********************************'
          STOP
       ENDIF
-      OPEN(LUN,FILE=FILNAM,STATUS='OLD')
+      OPEN(LUN,FILE=FILNAM,STATUS='OLD',ACTION='READ')
       RETURN
       END
       SUBROUTINE CLOSEDECAYTABLE(LUN)