--- DarthVader/TrackerLevel2/src/F77/tricircle.f 2006/11/21 17:12:59 1.2 +++ DarthVader/TrackerLevel2/src/F77/tricircle.f 2007/08/28 13:25:49 1.3 @@ -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 - if(DEBUG)then - print* - $ ,'tricircle: ERROR: matrix D: determinant too small?' - do i=1,3 - print*,(d(i,j),j=1,3) - enddo + 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 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*