c---------------------------------------------------------------------
c---------------------------------------------------------------------
c
c  header.h
c
c---------------------------------------------------------------------
c---------------------------------------------------------------------
c
      double precision fjac(5, 5,    0:problem_size),
     >                 njac(5, 5,    0:problem_size),
     >                 lhs (5, 5, 3, 0:problem_size),
     >                 tmp1, tmp2, tmp3
      common /work_lhs/ fjac, njac, lhs, tmp1, tmp2, tmp3