/[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.8 by pam-fi, Tue Nov 21 14:00:40 2006 UTC revision 1.9 by pam-fi, Tue Nov 21 17:12:26 2006 UTC
# Line 799  c      IMPLICIT DOUBLE PRECISION (A-H,O- Line 799  c      IMPLICIT DOUBLE PRECISION (A-H,O-
799              ZP(NP)=ZM(I)              ZP(NP)=ZM(I)
800           ENDIF           ENDIF
801        ENDDO        ENDDO
802          IFLAG=0                   !no debug mode
803        CALL TRICIRCLE(NP,XP,ZP,AP,RP,CHI,XC,ZC,RADIUS,IFLAG)        CALL TRICIRCLE(NP,XP,ZP,AP,RP,CHI,XC,ZC,RADIUS,IFLAG)
804        print*,' circle: ',XC,ZC,RADIUS,' --- ',CHI,IFLAG  c      print*,' circle: ',XC,ZC,RADIUS,' --- ',CHI,IFLAG
805        IF(IFLAG.NE.0)GOTO 10 !straigth fit        IF(IFLAG.NE.0)GOTO 10 !straigth fit
806        if(CHI.gt.100)GOTO 10 !straigth fit        if(CHI.gt.100)GOTO 10 !straigth fit
807        ARG = RADIUS**2-(ZINI-ZC)**2        ARG = RADIUS**2-(ZINI-ZC)**2
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23