(file) Return to gukine.f CVS log (file) (dir) Up to [HallC] / geant_gep / src

Diff for /geant_gep/src/gukine.f between version 1.19 and 1.20

version 1.19, 2006/03/22 11:28:52 version 1.20, 2006/04/10 00:02:54
Line 82 
Line 82 
       write(*,*)'nevent =',nevent       write(*,*)'nevent =',nevent
  
       if(nevent.eq.0) then       if(nevent.eq.0) then
 c         write(*,*)'Getting kinematics setting ...'           write(*,*)'Getting kinematics setting ...'
          open(unit=1,file='geant_kinematics.dat',type='UNKNOWN')          open(unit=1,file='geant_kinematics.dat',type='UNKNOWN')
          read(1,*)ikinsetting          read(1,*)ikinsetting
          read(1,*)isectrack          read(1,*)isectrack

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
Analyzer/Replay: Mark Jones, Documents: Stephen Wood
 Powered by
ViewCVS 0.9.2-cvsgraph-1.4.0