--- DarthVader/TrackerLevel2/src/F77/tricircle.f 2007/08/28 13:25:49 1.3 +++ 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