(file) Return to rho_physics.f CVS log (file) (dir) Up to [HallC] / simc_semi

Diff for /simc_semi/rho_physics.f between version 1.1 and 1.2

version 1.1, 2004/04/23 18:13:18 version 1.2, 2004/05/04 20:57:17
Line 265 
Line 265 
  
         sig=sig219/1.d+06       !dsig/dtdphicm in microbarns/MeV**2/rad         sig=sig219/1.d+06       !dsig/dtdphicm in microbarns/MeV**2/rad
  
   
   C DJG Convert to dsig/dOmega_cm using dt/d(costhetacm) = 2 qcm pcm
   
           sig = sig*2.*qstar*ppicm
   
 ******************************************************************************* *******************************************************************************
 * GMH: Virtual photon to electron beam flux conversion factor * GMH: Virtual photon to electron beam flux conversion factor
         gtpr = alpha/2./(pi**2)*vertex.e.E/vertex.Ein*(s-(targ.Mtar_struck/1000.)**2)/2./         gtpr = alpha/2./(pi**2)*vertex.e.E/vertex.Ein*(s-(targ.Mtar_struck/1000.)**2)/2./
Line 352 
Line 357 
      >          ( efer+vertex.nu-(vertex.q+pferz*pfer)*vertex.p.E/vertex.p.P*tcos )      >          ( efer+vertex.nu-(vertex.q+pferz*pfer)*vertex.p.E/vertex.p.P*tcos )
      >          - 2*vertex.p.P*pfer      >          - 2*vertex.p.P*pfer
  
         davesig = gtpr*sig*jacobian  c       davesig = gtpr*sig*jacobian
   
           davesig = gtpr*sig
         sigma_eerho = davesig/1.d3      !ub/GeV-sr --> ub/MeV-sr         sigma_eerho = davesig/1.d3      !ub/GeV-sr --> ub/MeV-sr
         peerho = sigma_eerho         peerho = sigma_eerho
         ntup.sigcm = sig        !sig_cm         ntup.sigcm = sig        !sig_cm


Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Analyzer/Replay: Mark Jones, Documents: Stephen Wood
Powered by
ViewCVS 0.9.2-cvsgraph-1.4.0