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:     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)
  