source/maxlik/src_MD_T_maxlik-NEWCORR-PMF-PDB/COMMON.MAPS

   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,
  16      &  nvar_helt,nvar_bet
  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
  24       integer nyy
  25       common /helbound/ phi_hel_min(3),phi_hel_max(3),nyy(3)
  26       logical iviol(4)
  27       common /skrzypce/ iviol