← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to Template/NLO/Utilities/split_events.f

  • Committer: Paolo Torrielli
  • Date: 2016-02-18 17:03:15 UTC
  • mfrom: (262.1.71 2.3.4)
  • mto: (262.1.75 2.3.4)
  • mto: This revision was merged to the branch mainline in revision 263.
  • Revision ID: torriell@physik.uzh.ch-20160218170315-gjajinyn9929pef3
merged with newest 2.3.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/Utilities/split_events.f
17
17
      character*140 buff
18
18
      character*10 MonteCarlo
19
19
      character*3 str
 
20
      logical back
20
21
      integer evts,leftover,loc,loc1,loc2,isc,ipdf,jmax
21
22
      integer numscales,numPDFpairs
22
23
      common/cwgxsec1/numscales,numPDFpairs
23
24
c
 
25
      back=.true.
24
26
      write (*,*) 'Give the name of the original event file'
25
27
      read (*,*) event_file
26
28
      ifile=34
57
59
      executable=' '
58
60
      inputfile=' '
59
61
 
60
 
      loc=index(event_file,'.')
 
62
      loc=index(event_file,'.',back)
61
63
      loc1=index(executable,' ')
62
64
      loc2=index(inputfile,' ')
63
65