--- DarthVader/TrackerLevel2/src/F77/mini.f 2007/02/16 14:56:02 1.12 +++ DarthVader/TrackerLevel2/src/F77/mini.f 2007/02/19 16:28:39 1.13 @@ -698,6 +698,13 @@ AYV(I)=DATAN(VOUT(5)/VOUT(6))*180./ACOS(-1.) * ----------------------------------------------- + IF(TRACKMODE.EQ.1) THEN +* ----------------------------------------------- +* change of energy by bremsstrahlung for electrons + VOUT(7) = VOUT(7) * 0.997 !0.9968 +* ----------------------------------------------- + ENDIF + ENDDO c$$$ print*,'POSXY (dopo) ',vout