c     begin include file cdist2.inc

c     + + + COMMON BLOCK DESCRIPTION + + +
c     + + + INSERT DESCRIPTION HERE  + + +

c     NOTE : DIST2 is used in the child routines of SR ROUTE.

      common /dist2/    slplen(mxplan)

c     + + + VARIABLE DECLARATIONS + + +

      real              slplen

c     + + + VARIABLE DEFINITIONS + + +

c     slplen(mxplan) : slope length (m)

c     end include file cdist2.inc