anchor.diff:  !            main cycle
     tau=0.0d0
     istwr=0
  +	print *, "ktimemax=", ktimemax
     do k=1,ktimemax
   !     то такое istwr? - это счетчик шагов при итерировании, нужен для записи на диск
     	istwr=istwr+1
  
positive.code: 
    integer inr,is,k,kluch1
  	real power,powerenter,powerexit,powersum,powerim,powerplus,powerminus, dva_d_na_lambda
  !	double complex xrab1(20)
    if (kluch1.eq.1) then
      do is=1,sk
  
negative.code: 
  
  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
    complex fffw(256),fffb(256)
  
    dxnplus = 0.0d0
    dxnminus= 0.0d0
  