c     begin include file cpart4.inc

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

c     NOTE: PART4 is used in SR ROUTE.

      common /part4/    fidel(mxpart)

c     + + + VARIABLE DECLARATIONS + + +

      real              fidel

c     + + + VARIABLE DEFINITIONS + + +

c     fidel(mxpart) :   fraction of each particle class after
c                       interrill sorting (0-1)

c     end include file cpart4.inc