--- DarthVader/TrackerLevel2/src/F77/tricircle.f	2006/11/21 17:12:59	1.2
+++ DarthVader/TrackerLevel2/src/F77/tricircle.f	2009/08/04 14:01:40	1.4
@@ -51,8 +51,8 @@
       integer ifail             !=-1 if singular matrix error, =0 if not singular
       integer jfail             !=0 if determinant can be evaluated, =-1 if determinat is probably too small, =+1 if too large
 
-      parameter (big=1.e4)      !just a number greater than C(npoints,3)
-      double precision xxc(big),zzc(big),rrr(big) !centres and radii to be averaged
+      parameter (ibig=1.e4)      !just a number greater than C(npoints,3)
+      double precision xxc(ibig),zzc(ibig),rrr(ibig) !centres and radii to be averaged
 
       double precision tmp1,tmp2,tmp(npoints)    !temp variables
 
@@ -174,20 +174,20 @@
             call DFACT(3,d,3,ir,ifail,detd,jfail)
             if(ifail.eq.-1) then
               if(DEBUG)then
-              print*,'tricircle: ERROR: singular matrix D:'
-              do i=1,3
-                print*,(d(i,j),j=1,3)
-              enddo
+                 print*,'tricircle: ERROR: singular matrix D:'
+                 do i=1,3
+                    print*,(d(i,j),j=1,3)
+                 enddo
               endif
               eflag=1
-            endif
-            if(jfail.eq.-1) then
+           endif
+           if(jfail.eq.-1) then
               if(DEBUG)then
-              print*
-     $             ,'tricircle: ERROR: matrix D: determinant too small?'
-              do i=1,3
-                print*,(d(i,j),j=1,3)
-              enddo
+                 print*
+     $      ,'tricircle: ERROR: matrix D: determinant too small?'
+                 do i=1,3
+                    print*,(d(i,j),j=1,3)
+                 enddo
               endif
               eflag=1
             elseif(jfail.eq.1) then
@@ -212,7 +212,7 @@
               enddo
               endif
               eflag=1
-            endif
+           endif
             if(jfail.eq.-1) then
               if(DEBUG)then
               print*