[cvs] / MG_ME / Models / sm / couplings.f Repository:
ViewVC logotype

Diff of /MG_ME/Models/sm/couplings.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11, Thu Jul 24 15:42:34 2008 UTC revision 1.11.2.1, Mon Mar 23 10:56:33 2009 UTC
# Line 485  Line 485 
485        integer lun        integer lun
486        logical fopened        logical fopened
487        character*(*) filename        character*(*) filename
488        character*30  tempname        character*90  tempname
489        integer fine        integer fine
490        integer dirup        integer dirup,i
491    
492  c-----  c-----
493  c  Begin Code  c  Begin Code
# Line 495  Line 495 
495  c  c
496  c     first check that we will end in the main directory  c     first check that we will end in the main directory
497  c  c
       open(unit=lun,file="Source/makefile",status='old',err=20)  
       dirup=0  
       goto 100  
  20   close(lun)  
   
       open(unit=lun,file="../Source/makefile",status='old',err=30)  
       dirup=1  
       goto 100  
  30   close(lun)  
   
       open(unit=lun,file="../../Source/makefile",status='old',err=40)  
       dirup=2  
       goto 100  
  40   close(lun)  
   
       open(unit=lun,file="../../../Source/makefile",status='old',err=50)  
       dirup=3  
       goto 100  
  50   close(lun)  
   
       open(unit=lun,file="../../../../Source/makefile",status='old',err=60)  
       dirup=4  
       goto 100  
  60   close(lun)  
   
  100  continue  
       close(lun)  
   
       fopened=.true.  
498        tempname=filename        tempname=filename
499        fine=index(tempname,' ')        fine=index(tempname,' ')
500        if(fine.eq.0) fine=len(tempname)        if(fine.eq.0) fine=len(tempname)
501          tempname=tempname(1:fine)
502  c  c
503  c         if I have to read a card  c         if I have to read a card
504  c  c
505            if(index(filename,"_card").gt.0) then            if(index(filename,"_card").gt.0) then
506               tempname='/Cards/'//tempname(1:fine)           tempname='./Cards/'//tempname
              fine=fine+7  
507        endif        endif
508    
       if(dirup.eq.0) open(unit=lun,file=tempname(1:fine),status='old',err=110)  
       if(dirup.eq.1) open(unit=lun,file='../'//tempname(1:fine),status='old',err=110)  
       if(dirup.eq.2) open(unit=lun,file='../../'//tempname(1:fine),status='old',err=110)  
       if(dirup.eq.3) open(unit=lun,file='../../../'//tempname(1:fine),status='old',err=110)  
       if(dirup.eq.4) open(unit=lun,file='../../../../'//tempname(1:fine),status='old',err=110)  
       return  
509    
510   110  fopened=.false.        fopened=.false.
511        close(lun)        do i=0,5
512        write (*,*) 'Warning: file ',tempname(1:fine),' is not in the main directory'           open(unit=lun,file=tempname,status='old',ERR=30)
513             fopened=.true.
514             write(*,*) 'read model file',tempname
515             exit
516     30      tempname='../'//tempname
517             if (i.eq.5)then
518                print 'Warning: file ',tempname,' is not correct'
519                stop
520             endif
521          enddo
522    
523    
524        return        return
525        end        end
526    
527    
528    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.11.2.1

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0