anchor.diff:  !FOX  1 if(1.eq.1) then
   !-----------------------------------------------------------------------
     call comt_daStart
  -#ifdef DEBUG
  -!     umcalls=umcalls+1
  -!     call wda('umcalls',0d0,1,umcalls,0,0)
  -#endif
     nd2=ndimf*2
     call etall(damap,6)
     call etall(damapi,6)
  
positive.code:         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."
  
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
  