anchor.diff:          endif
         enddo
       endif
  -#ifdef DEBUG
  -!     if (umcalls.eq.8) then
  -!     call wda('bgoto430',0d0,2,0,0,0)
  -!       call dumpda('bgoto430',0,0)
  -!     call abend('bgoto430                                          ')
  -!     endif
  -#endif
       goto 430
   50   ix=ix-nblo
  -#ifdef DEBUG
  -!     if (umcalls.eq.8) then
  -!     call wda('a50',0d0,ix,nblo,ix-nblo,0)
  -!       call dumpda('a50',0,0)
  -!     call abend('a50                                               ')
  -!     endif
  -#endif
       if(abs(dare(x(1))) > aint(aper(1)) .or. abs(dare(x(2))) > aint(aper(2))) then
         write(lout,10120)j,i,dare(x(1)),aper(1),dare(x(2)),aper(2),ix,kz(ix),bez(ix)
         write(lout,"(a)") "UMLAUDA> ERROR Unstable closed orbit in DA calculation."
  
positive.code:       call prror(-1)
      endif
  #include "include/dalin1.f90"
  #ifdef DEBUG
  !     call wda('adlin1',0d0,2,0,0,0)
  !     if (umcalls.eq.8) then
  !       call dumpda('adlin1',0,0)
  !     call abend('adlin1                                            ')
  !     endif
  #endif
            ipch=0
            if(iqmodc.eq.1.and.kz(jx).eq.2) then
              if(jx.eq.iq(1).or.iratioe(jx).eq.iq(1)) then
  
negative.code:       aml6(i,i)=aml6(i,i)-one
      enddo
    endif
    call dacop(yp(1),damap(2))
    call dacop(yp(2),damap(4))
    if(ndimf.eq.3) then
  