anchor.diff:  
   
   subroutine manager (stepwrite,iw)
  -!     управляющая процессом во времени
  -
   	use array_work
   	use beam_nes
   	use field_nes
  -
     implicit none
  +
     integer k,i11,is,in,stepwrite,iw,i,im,istwr
     real*8 tau,rel_coord
  -
  -!     double complex fw(200)
  -!     double precision fff(200)
     complex fffw(256),fffb(256)
  -
   
     dxnplus = 0.0d0
     dxnminus= 0.0d0
  
positive.code: !            main cycle
    tau=0.0d0
    istwr=0
    do k=1,ktimemax
  !     то такое istwr? - это счетчик шагов при итерировании, нужен для записи на диск
    	istwr=istwr+1
  
negative.code:     end if
      etaplus = 0.0d0
      etaminus= 0.0d0
  		xnplus  = xbplus   ! 0.0d0  ! xbplus
      xnminus = xbminus  ! xbminus
      dxnplus = dxbplus  ! dxbplus
      dxnminus= dxbminus ! dxbminus
  
    	do inbeam=1,nbeam
    		if (kluch_beam.eq.2 .and. k.eq.1) then 	   ! режим заданного тока
      		call beam_calc (tau)
  