/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/tricircle.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/tricircle.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pam-fi, Tue Nov 21 17:12:59 2006 UTC revision 1.3 by pam-fi, Tue Aug 28 13:25:49 2007 UTC
# Line 174  c--------------------------------------- Line 174  c---------------------------------------
174              call DFACT(3,d,3,ir,ifail,detd,jfail)              call DFACT(3,d,3,ir,ifail,detd,jfail)
175              if(ifail.eq.-1) then              if(ifail.eq.-1) then
176                if(DEBUG)then                if(DEBUG)then
177                print*,'tricircle: ERROR: singular matrix D:'                   print*,'tricircle: ERROR: singular matrix D:'
178                do i=1,3                   do i=1,3
179                  print*,(d(i,j),j=1,3)                      print*,(d(i,j),j=1,3)
180                enddo                   enddo
181                endif                endif
182                eflag=1                eflag=1
183              endif             endif
184              if(jfail.eq.-1) then             if(jfail.eq.-1) then
185                if(DEBUG)then                if(DEBUG)then
186                print*                   print*
187       $             ,'tricircle: ERROR: matrix D: determinant too small?'       $      ,'tricircle: ERROR: matrix D: determinant too small?'
188                do i=1,3                   do i=1,3
189                  print*,(d(i,j),j=1,3)                      print*,(d(i,j),j=1,3)
190                enddo                   enddo
191                endif                endif
192                eflag=1                eflag=1
193              elseif(jfail.eq.1) then              elseif(jfail.eq.1) then
# Line 212  c--------------------------------------- Line 212  c---------------------------------------
212                enddo                enddo
213                endif                endif
214                eflag=1                eflag=1
215              endif             endif
216              if(jfail.eq.-1) then              if(jfail.eq.-1) then
217                if(DEBUG)then                if(DEBUG)then
218                print*                print*
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23