1 double precision mapa(max_x,max_y),mapa_comp(max_ene,max_x,max_y),
2 & minima(max_minim),minima_r(max_minim),mapa_r(max_x,max_y),
3 & mapa_r_comp(max_ene,max_x,max_y),r0b,dr,the0,dthe
4 integer iminim(2,max_minim),iminim_r(2,max_minim)
5 integer n_minim,nx,ny,nr,nthe,n_minim_r
6 common /sztab/ mapa,mapa_comp,minima,nx,ny,n_minim,iminim
7 double precision xstart,dx,ystart,dy
8 common /zapas/ xstart,dx,ystart,dy
9 common /sztab_r/ mapa_r,mapa_r_comp,minima_r,r0b,the0,dr,dthe,
10 & nr,nthe,n_minim_r,iminim_r
11 double precision thet_hel,phi_hel,ehel,r_beta,thet_beta,ebeta,
12 & r_beta1,thet_beta1,ebeta1
13 integer nvar_helt,nvar_bet
14 common /minim_map/ thet_hel(3),phi_hel(3),ehel(3),
15 & r_beta,thet_beta,ebeta,r_beta1,thet_beta1,ebeta1,
17 double precision phialpha,phipi,thetalpha_min,thetalpha_max,
18 & phialpha_left,phialpha_right,dealpha310,delr,delb,thetbeta,
19 & rbeta,kr,kphi,ktheta,kene
20 common /constr/ phialpha,phipi,thetalpha_min,thetalpha_max,
21 & phialpha_left,phialpha_right,dealpha310,delr,delb,thetbeta,
22 & rbeta,kr,kphi,ktheta,kene
23 double precision phi_hel_min,phi_hel_max
25 common /helbound/ phi_hel_min(3),phi_hel_max(3),nyy(3)
27 common /skrzypce/ iviol