[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.7.2.1, Mon Aug 13 17:01:03 2007 UTC revision 1.7.2.2, Thu Oct 4 15:43:33 2007 UTC
# Line 257  Line 257 
257  c     open file  c     open file
258  c  c
259        iunit=14        iunit=14
260        call open_file(iunit,param_name,fopened)        call open_file_mdl(iunit,param_name,fopened)
261             done=.false.             done=.false.
262    
263         n=0         n=0
# Line 469  Line 469 
469        buff=temp        buff=temp
470        end        end
471    
472             subroutine open_file(lun,filename,fopened)             subroutine open_file_mdl(lun,filename,fopened)
473  c***********************************************************************  c***********************************************************************
474  c     opens file input-card.dat in current directory or above  c     opens file input-card.dat in current directory or above
475  c***********************************************************************  c***********************************************************************

Legend:
Removed from v.1.7.2.1  
changed lines
  Added in v.1.7.2.2

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0