c Revision 1.1  95/11/14  16:57:06  tdd
c Initial revision
c 

c   Sets up the common block used by inital.f and diffn.f to read in
c   and use in diffusion calculation from the array rklfred.

      integer mlocd
      parameter (mlocd = mw)
      real rklfred(2,mlocd,mlocd)
      common  / crklf / rklfred