!---------------------------------------------------------------------
!---------------------------------------------------------------------
!
!  header.h
!
!---------------------------------------------------------------------
!---------------------------------------------------------------------
!
      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