c  declaration of global variables
      integer   nr,ntheta
      real      pi 
      parameter (nr = 6, ntheta = 6, pi = 3.1415927)
c   program (main)
      integer  niter
      real     eps,om,rms
c   grid parameters
      real   rw, rx, ry, rz, theb, then,
     +       x(nr,ntheta), y(nr,ntheta), 
     +       r(nr,ntheta), theta(ntheta),dr(ntheta), dtheta
c   matrix parameters
      real  qab(nr,ntheta),pab(nr,ntheta),qbc(nr,ntheta),pbc(nr,ntheta), 
     +      qcd(nr,ntheta),pcd(nr,ntheta),qda(nr,ntheta),pda(nr,ntheta) 
c   fields
      real   phi(nr,ntheta)
c   supplementary fields
      real   phix(nr,ntheta)
c ------------ : ------------
      common / progr    /     niter,eps,om,rms
      common / gridpar  /     rw,rx,ry,rz, theb,then,
     +                        x,y, r,theta, dr,dtheta
      common / matrix   /     qab, pab, qbc, pbc, qcd, pcd, qda, pda
      common / fields   /     phi
      common / suppl    /     phix