c---------------------------------------------------------------------
c---------------------------------------------------------------------
c
c  work_lhs.h
c
c---------------------------------------------------------------------
c---------------------------------------------------------------------

      double precision fjac(5, 5, -2:MAX_CELL_DIM+1),
     >                 njac(5, 5, -2:MAX_CELL_DIM+1),
     >                 lhsa(5, 5, -1:MAX_CELL_DIM),
     >                 lhsb(5, 5, -1:MAX_CELL_DIM),
     >                 tmp1, tmp2, tmp3
      common /work_lhs/ fjac, njac, lhsa, lhsb, tmp1, tmp2, tmp3