/[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.10 by pam-fi, Thu Nov 30 17:01:52 2006 UTC revision 1.11 by pam-fi, Wed Jan 10 15:17:23 2007 UTC
# Line 272  c$$$         if(TRKVERBOSE)print*,i,' -- Line 272  c$$$         if(TRKVERBOSE)print*,i,' --
272  c$$$      ENDDO  c$$$      ENDDO
273  c$$$      print*,'chi2 -- ',DCHI2  c$$$      print*,'chi2 -- ',DCHI2
274    
275          IF(ISTEP.LT.3) GOTO 10 ! ***PP***
276        DO I=1,5        DO I=1,5
277           IF(ABS(DAL(I)).GT.ALTOL(I))GOTO 10 !>>>> new step!           IF(ABS(DAL(I)).GT.ALTOL(I))GOTO 10 !>>>> new step!
278        ENDDO        ENDDO
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.23