/[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.18 by pam-fi, Fri Jun 1 15:01:19 2007 UTC revision 1.19 by pam-fi, Wed Jun 6 09:26:09 2007 UTC
# Line 146  c$$$      DELETA2 = 0.016/0.3/0.4/0.4451 Line 146  c$$$      DELETA2 = 0.016/0.3/0.4/0.4451
146  * **** Chi2+gaussian minimization  * **** Chi2+gaussian minimization
147  * -------------------------------  * -------------------------------
148    
149        IF(.NOT.STUDENT.OR.FIRSTSTEPS) THEN        IF((.NOT.STUDENT).OR.FIRSTSTEPS) THEN
150    
151           IF(ISTEP.GE.3) FIRSTSTEPS = .false.           IF(ISTEP.GE.3) FIRSTSTEPS = .false.
152    
# Line 296  c$$$         PRINT*,CHI2 Line 296  c$$$         PRINT*,CHI2
296           FC = CHI2           FC = CHI2
297           EC = 0.           EC = 0.
298    
299             ICOUNT = 0
300   100     CONTINUE   100     CONTINUE
301             ICOUNT = ICOUNT+1
302    
303           DO I=1,5           DO I=1,5
304              AL0(I)=AL(I)              AL0(I)=AL(I)
305           ENDDO           ENDDO
# Line 340  c$$$         PRINT*,E,CHI2_NEW Line 343  c$$$         PRINT*,E,CHI2_NEW
343              ENDIF              ENDIF
344  c$$$            E = BETA*E  c$$$            E = BETA*E
345           ENDIF           ENDIF
346             IF(ICOUNT.GT.20) GOTO 101
347           GOTO 100           GOTO 100
348    
349   101     CONTINUE   101     CONTINUE
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.23