c===========================================================
c     Problem-specific quantities for multi-grid program.
c===========================================================

      real*8            pi
      parameter       ( pi = 3.141 5926 5358 9793 d0 )

      real*8            lx,            ly
      parameter       ( lx = 1.0d0,    ly = 2.0d0 )

      real*8            sigma
      common          / compar /
     &                  sigma

      logical           gft_trace
      common          / compar /
     &                  gft_trace