--- DarthVader/TrackerLevel2/src/F77/functionspfa.f 2006/05/19 13:15:55 1.1 +++ DarthVader/TrackerLevel2/src/F77/functionspfa.f 2006/05/30 16:30:37 1.2 @@ -149,8 +149,8 @@ real cog2,angle integer iview,lad - logical DEBUG - common/dbg/DEBUG +c logical DEBUG +c common/dbg/DEBUG iview = VIEW(ic) !(1) lad = nld(MAXS(ic),VIEW(ic)) !(1) @@ -273,8 +273,8 @@ real cog3,angle integer iview,lad - logical DEBUG - common/dbg/DEBUG +c logical DEBUG +c common/dbg/DEBUG iview = VIEW(ic) !(1) @@ -396,8 +396,8 @@ real cog4,angle integer iview,lad - logical DEBUG - common/dbg/DEBUG +c logical DEBUG +c common/dbg/DEBUG iview = VIEW(ic) !(1) lad = nld(MAXS(ic),VIEW(ic)) !(1) @@ -613,8 +613,8 @@ include 'calib.f' include 'level1.f' - logical DEBUG - common/dbg/DEBUG +c logical DEBUG +c common/dbg/DEBUG if (ncog.gt.0) then