/[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.11 by pam-fi, Wed Jan 10 15:17:23 2007 UTC revision 1.13 by pam-fi, Mon Feb 19 16:28:39 2007 UTC
# Line 121  c$$$      DELETA2 = 0.016/0.3/0.4/0.4451 Line 121  c$$$      DELETA2 = 0.016/0.3/0.4/0.4451
121  *      *    
122        ISTEP=0                   !num. steps to minimize chi^2        ISTEP=0                   !num. steps to minimize chi^2
123        JFAIL=0                   !error flag        JFAIL=0                   !error flag
124          CHI2=0
125    
126        if(TRKDEBUG) print*,'guess: ',al        if(TRKDEBUG) print*,'guess: ',al
127        if(TRKDEBUG) print*,'mini2: step ',istep,chi2,1./AL(5)        if(TRKDEBUG) print*,'mini2: step ',istep,chi2,1./AL(5)
# Line 697  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.11  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.23