double precision mapa(max_x,max_y),mapa_comp(max_ene,max_x,max_y),
     &  minima(max_minim),minima_r(max_minim),mapa_r(max_x,max_y),
     &  mapa_r_comp(max_ene,max_x,max_y),r0b,dr,the0,dthe
      integer iminim(2,max_minim),iminim_r(2,max_minim)
      integer n_minim,nx,ny,nr,nthe,n_minim_r
      common /sztab/ mapa,mapa_comp,minima,nx,ny,n_minim,iminim
      double precision xstart,dx,ystart,dy
      common /zapas/ xstart,dx,ystart,dy
      common /sztab_r/ mapa_r,mapa_r_comp,minima_r,r0b,the0,dr,dthe,
     &  nr,nthe,n_minim_r,iminim_r
      double precision thet_hel,phi_hel,ehel,r_beta,thet_beta,ebeta,
     &  r_beta1,thet_beta1,ebeta1
      integer nvar_helt,nvar_bet
      common /minim_map/ thet_hel(3),phi_hel(3),ehel(3),
     &  r_beta,thet_beta,ebeta,r_beta1,thet_beta1,ebeta1,
     &  nvar_helt,nvar_bet
      double precision phialpha,phipi,thetalpha_min,thetalpha_max,
     &  phialpha_left,phialpha_right,dealpha310,delr,delb,thetbeta,
     &  rbeta,kr,kphi,ktheta,kene
      common /constr/ phialpha,phipi,thetalpha_min,thetalpha_max,
     &  phialpha_left,phialpha_right,dealpha310,delr,delb,thetbeta,
     &  rbeta,kr,kphi,ktheta,kene
      double precision phi_hel_min,phi_hel_max
      integer nyy
      common /helbound/ phi_hel_min(3),phi_hel_max(3),nyy(3)
      logical iviol(4)
      common /skrzypce/ iviol