EIC code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-02-23 09:20:58
0001 0002 SUBROUTINE GUTREV 0003 * 0004 * User routine to control tracking of one event 0005 * Called by GRUN 0006 * 0007 #include "calor.inc" 0008 #include "celoss.inc" 0009 * 0010 do k=1,NbAbsor 0011 EdepAbs(k) = 0. 0012 TrckAbs(k) = 0. 0013 enddo 0014 * 0015 CALL GTREVE 0016 * 0017 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|