c  declaration of global variables
      integer   nx, ny
      real      pi
      parameter (nx = 11, ny = 11, pi = 3.1415927)
c   program (main)
      integer  me,ipr,it
      real     bar,eps,om,bas,par1,par2,par3,flow,flowex,rms
c   grid parameters
      real     x(nx),dx,dxs,y(ny),dy,dys
c   fields
      real     f(nx,ny)
c   supplementary fields
      integer  nterm,niter
      real     fexact(nx,ny)
c ------------ : ------------
      common / progr    /  me,ipr,it,bar,eps,om,
     +                     bas,par1,par2,par3,flow,flowex,rms
      common / gridp    /  x,dx,dxs,y,dy,dys
      common / fields   /  f
      common / supplem  /  nterm,niter,fexact