← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to Template/Source/PDF/opendata.f

merge lp:~maddevelopers/madgraph5/transfer_on_exit 

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/Source/PDF/opendata.f
34
34
c
35
35
      IU=NextUnopen()
36
36
 
37
 
c     first try in the current directory
38
 
 
39
 
      tempname=dir//Tablefile
 
37
c     first try in the current directory (for cluster use)
 
38
      tempname=Tablefile
40
39
      open(IU,file=tempname,status='old',ERR=10)
41
40
      return
42
41
 
43
 
 10   tempname=lib//tempname
 
42
 10   tempname=up//Tablefile
44
43
      open(IU,file=tempname,status='old',ERR=20)
45
 
 
46
 
 20   continue
 
44
      return
 
45
 
 
46
c     then try PdfData directory
 
47
 20   tempname=dir//Tablefile
 
48
      open(IU,file=tempname,status='old',ERR=30)
 
49
      return
 
50
 
 
51
 30   tempname=lib//tempname
 
52
      open(IU,file=tempname,status='old',ERR=40)
 
53
 
 
54
 40   continue
47
55
      do i=0,6
48
 
         open(IU,file=tempname,status='old',ERR=30)
 
56
         open(IU,file=tempname,status='old',ERR=50)
49
57
         return
50
 
 30      tempname=up//tempname
 
58
 50      tempname=up//tempname
51
59
         if (i.eq.6)then
52
60
            write(*,*) 'Error: PDF file ',Tablefile,' not found'
53
61
            stop