1 c---------------------------------------------------------------------
2 c---------------------------------------------------------------------
6 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
9 double precision fjac(5, 5, -2:MAX_CELL_DIM+1),
10 > njac(5, 5, -2:MAX_CELL_DIM+1),
11 > lhsa(5, 5, -1:MAX_CELL_DIM),
12 > lhsb(5, 5, -1:MAX_CELL_DIM),
14 common /work_lhs/ fjac, njac, lhsa, lhsb, tmp1, tmp2, tmp3