c  declaration of global variables
        integer  nx,ny,naj,na,nxp,nyp
        real     pi
	parameter  (nx = 5, ny = 5, na = 5, pi = 3.1415927)
	parameter  (naj = (nx-2)*(ny-2)*2)
	parameter  (nxp = nx-1, nyp = ny-1)
c   program (main)
      integer    itmx,ird,ipn,n,jpvt(naj)
      real       t(naj),aj(naj,naj),eps,re,om,dt
      real*8     r(naj)
c   grids
      real       xmin,xmax,ymin,ymax,dx,dy,x(nx),y(ny)
c   fields
      real       ue(nx,ny), ve(nx,ny) 
      real*8     u(nx,ny), v(nx,ny)
c   suppl common
      integer    it,itp
      real       a(na),rd(naj),al
      real*8     sum
c ------------ : ------------
      common / progr    /  itmx,ird,ipn,n,jpvt,t,r,aj,eps,re,om,dt
      common / fields   /  u,v,ue,ve
      common / grids    /  xmin,xmax,ymin,ymax,dx,dy,x,y
      common / supplc   /  it,itp,a,rd,al,sum,rms