← Back to branch summary

~maddevelopers/mg5amcnlo/FKS_EW_granny

« back to all changes in this revision

Viewing changes to Template/LO/Source/dsample.f

  • Committer: Marco Zaro
  • Date: 2018-04-16 14:08:47 UTC
  • mfrom: (78.403.58 2.6.2)
  • Revision ID: marco.zaro@gmail.com-20180416140847-nuz7haj3di3gqqhq
merged with 2.6.2 rev 332

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/LO/Source/dsample.f
570
570
c
571
571
      integer i, j
572
572
      integer get_maxsproc
 
573
      logical fopened
573
574
c
574
575
c     Global
575
576
c
713
714
c     Try to read grid from file
714
715
c
715
716
      flat_grid=.true.
716
 
      open(unit=25,file='ftn25',status='unknown',err=102)
 
717
      call open_file_local(25, 'ftn25', fopened)
 
718
      if (.not.fopened)then
 
719
         goto 102
 
720
      endif
 
721
!      open(unit=25,file='ftn25',status='unknown',err=102)
717
722
      read(25,*, err=1011, end=1012)
718
723
     .     ((grid(2,i,j),i=1,ng),j=1,invar)
719
724
      read(25,*) twgt, force_max_wgt