examples/smpi/NAS/BT/work_lhs.h

   1 c---------------------------------------------------------------------
   2 c---------------------------------------------------------------------
   3 c
   4 c  work_lhs.h
   5 c
   6 c---------------------------------------------------------------------
   7 c---------------------------------------------------------------------
   8
   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),
  13      >                 tmp1, tmp2, tmp3
  14       common /work_lhs/ fjac, njac, lhsa, lhsb, tmp1, tmp2, tmp3