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

      real*8            pi
      parameter       ( pi = 3.141 5926 5358 9793 d0 )
 
      real*8            lx,            ly,             lz
      parameter       ( lx = 1.0d0,    ly = 2.0d0,     lz = 2.0d0 )

      real*8            c_l,           c_m,            c_s
      parameter       ( c_l = 1.0d0,   c_m = 2.0d0,    c_s = -1.0d0 )