[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.10.2.1, Tue Mar 25 20:05:18 2008 UTC revision 1.10.2.2, Fri Jul 11 07:57:22 2008 UTC
# Line 515  Line 515 
515        goto 100        goto 100
516   50   close(lun)   50   close(lun)
517    
       open(unit=lun,file="../../../../Source/makefile",status='old',err=60)  
       dirup=4  
       goto 100  
  60   close(lun)  
   
518   100  continue   100  continue
519        close(lun)        close(lun)
520    
# Line 539  Line 534 
534        if(dirup.eq.1) 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)
535        if(dirup.eq.2) 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)
536        if(dirup.eq.3) 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)  
537        return        return
538    
539   110  fopened=.false.   110  fopened=.false.

Legend:
Removed from v.1.10.2.1  
changed lines
  Added in v.1.10.2.2

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0