[PEPPo] Energy loss calculation

[Paul Gueye]

Hi Joe,

Attached is an "old" fortran code that calculates the energy loss for electrons that you can provide to Joshua. It generates a simple ASCII output file (energy_loss.dat). There is no annihilation but it should be sufficient enough for positron estimation. I added tungsten. It is self-explanatory and I put enough comments at that time, but let me know if he needs some help. I copied the collabo in case someone else wants to use it.

1. Compilation: g77 -o energy_loss energy_loss.f
2. Run: ./energy_loss (and answer questions on the screen)

Paul
-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 Paul Gueye
* Hampton University
  Physics Department
  Hampton, VA 23668
  W: (757) 727-5542
  F: (757) 728-6910
  E: paul.gueye at hamptonu.edu
* Jefferson Lab
  Physics Division - F382
  12000, Jefferson Avenue
  Newport News, VA 23606
  W: (757) 269-6287
  E: gueye at jlab.org
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-------------- next part --------------
An HTML attachment was scrubbed...
URL: https://mailman.jlab.org/pipermail/peppo/attachments/20111201/4c4fa8c2/attachment.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: energy_loss.f
Type: application/octet-stream
Size: 6611 bytes
Desc: not available
Url : https://mailman.jlab.org/pipermail/peppo/attachments/20111201/4c4fa8c2/attachment.obj 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: https://mailman.jlab.org/pipermail/peppo/attachments/20111201/4c4fa8c2/attachment-0001.html