/[PAMELA software]/DarthVader/CalorimeterLevel2/src/direction.for
ViewVC logotype

Diff of /DarthVader/CalorimeterLevel2/src/direction.for

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

revision 1.8 by mocchiut, Mon Jul 27 13:47:43 2009 UTC revision 1.9 by mocchiut, Mon Jul 27 13:58:40 2009 UTC
# Line 63  C Line 63  C
63        VARFIT(2) = 0.              VARFIT(2) = 0.      
64  C  C
65        FORCEMODE = -1        FORCEMODE = -1
66        IF (FMODE(1).GT.100.AND.FMODE(2).GT.100) THEN        IF (FMODE(1).GE.1000.AND.FMODE(2).GE.1000) THEN
67           FORCEMODE = FMODE(1)-1000           FORCEMODE = FMODE(1)-1000
68        ENDIF                ENDIF        
69  C  C
# Line 155  C Line 155  C
155  C      C    
156  C     TRY A BETTER FIT IF VAR IS BIG ON THE FIRST TRY  C     TRY A BETTER FIT IF VAR IS BIG ON THE FIRST TRY
157  C      C    
158              IF ((ABS(VAR).GT.FLIMIT.OR.VAR.EQ.0.).AND.FMODE(M).EQ.0) THEN              IF ((ABS(VAR).GT.FLIMIT.OR.VAR.EQ.0.)
159         &           .AND.FMODE(M).EQ.0) THEN
160                 SVAR = VAR                 SVAR = VAR
161                 SB = B                 SB = B
162                 SA = A                 SA = A
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23