/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/mini.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/mini.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by pam-fi, Fri Feb 16 14:56:02 2007 UTC revision 1.13 by pam-fi, Mon Feb 19 16:28:39 2007 UTC
# Line 698  c$$$            if(.TRUE.)print*,'step', Line 698  c$$$            if(.TRUE.)print*,'step',
698           AYV(I)=DATAN(VOUT(5)/VOUT(6))*180./ACOS(-1.)           AYV(I)=DATAN(VOUT(5)/VOUT(6))*180./ACOS(-1.)
699  *     -----------------------------------------------  *     -----------------------------------------------
700    
701             IF(TRACKMODE.EQ.1) THEN
702    *     -----------------------------------------------
703    *        change of energy by bremsstrahlung for electrons
704                VOUT(7) = VOUT(7) * 0.997 !0.9968
705    *     -----------------------------------------------
706             ENDIF
707    
708        ENDDO        ENDDO
709    
710  c$$$      print*,'POSXY (dopo) ',vout  c$$$      print*,'POSXY (dopo) ',vout
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.23