← Back to branch summary

~mg5core1/mg5amcnlo/2.6.4

« back to all changes in this revision

Viewing changes to MG4_DECAY/open_file.f

move ./decay to ./mg5decay; resolve unit tests (n.b. __init__ does not check keys of input dictionaries, followed last revision)

Show diffs side-by-side

added added

removed removed

Lines of Context:
MG4_DECAY/open_file.f
1
 
      subroutine open_file(lun,filename,fopened)
2
 
c***********************************************************************
3
 
c     opens file input-card.dat in current directory or above
4
 
c***********************************************************************
5
 
      implicit none
6
 
c
7
 
c     Arguments
8
 
c
9
 
      integer lun
10
 
      logical fopened
11
 
      character*(*) filename
12
 
      character*90  tempname
13
 
      integer fine
14
 
      integer i
15
 
      
16
 
c-----
17
 
c  Begin Code
18
 
c-----
19
 
c
20
 
c     first check that we will end in the main directory
21
 
c
22
 
 
23
 
c
24
 
c         if I have to read a card
25
 
c
26
 
 
27
 
      tempname=filename          
28
 
      fine=index(tempname,' ')   
29
 
      if(fine.eq.0) fine=len(tempname)
30
 
 
31
 
      if(index(filename,"_card").gt.0) then
32
 
         tempname='Cards/'//tempname(1:fine)
33
 
         fine=fine+6
34
 
      endif
35
 
      
36
 
      fopened=.false.
37
 
      do i=0,5
38
 
         open(unit=lun,file=tempname,status='old',ERR=30)
39
 
         fopened=.true.
40
 
         exit
41
 
 30      tempname='../'//tempname
42
 
         if (i.eq.5)then
43
 
            write(*,*) 'Warning: file ',filename,' not found'
44
 
         endif
45
 
      enddo
46
 
      end