--- DarthVader/TrackerLevel2/src/F77/mini.f 2009/08/04 14:01:38 1.25 +++ DarthVader/TrackerLevel2/src/F77/mini.f 2014/01/16 15:29:56 1.26 @@ -24,6 +24,8 @@ parameter (dinf=1.d15) !just a huge number... parameter (dinfneg=-dinf) ! just a huge negative number... + + double precision NX, NY ! EM GCC4.7 c------------------------------------------------------------------------ c variables used in the tracking procedure (mini and its subroutines) c @@ -1135,12 +1137,12 @@ subroutine guess() -c IMPLICIT DOUBLE PRECISION (A-H,O-Z) + IMPLICIT DOUBLE PRECISION (A-H,O-Z) ! EM GCC4.7 include 'commontracker.f' !tracker general common include 'common_mini_2.f' !common for the tracking procedure - REAL*4 XP(NPLANES),ZP(NPLANES),AP(NPLANES),RP(NPLANES) + REAL*8 XP(NPLANES),ZP(NPLANES),AP(NPLANES),RP(NPLANES) ! EM GCC4.7 REAL*4 CHI,XC,ZC,RADIUS * ---------------------------------------- * Y view