c $Header: /weru/cvs/weps/weps.src/inc/manage/asd.inc,v 1.1.1.1 1999-03-12 17:05:26 wagner Exp $
c     ------------------------------------------------------------------
c     file 'asd.inc'
c
c     This common block contains the variables used in the Tillage
c     subprograms that deal with sieve cuts, sieve sizes etc.
c
c     Parameter include files required: none
c     (parameters currently included in this file)
c
c     + + + VARIABLE DECLARATIONS + + +
c
      integer          msieve

      parameter (msieve = 10)

      real             sdia(msieve)
      real             mnsize
      real             mxsize
      real             mdia(msieve+1)
      integer          nsieve
      integer          logcas

c
      common / sieves / sdia, mnsize, mxsize, mdia, nsieve, logcas
c
c     + + + VARIABLE DEFINITIONS + + +
c
c     sdia   - Array holding the sieve size diameters
c              used to compute the sieve cuts.
c              Units are in mm.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          > 0.0      -
c              typical        0.01       100.0
c              ------------   ---------  ---------
c
c     mnsize - Minimum (imaginary) sieve size to use
c              for computing lower sieve cut
c              geometric mean diameter.
c              Units are in mm.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          0.0        < sdia(1)
c              typical        0.1        < sdia(1)
c              ------------   ---------  ---------
c
c     mxsize - Maximum (imaginary) sieve size to use
c              for computing upper sieve cut
c              geometric mean diameter.
c              Units are in mm.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed            > sdia(nsieve)
c              typical          > sdia(nsieve)
c              ------------   ---------  ---------
c
c     mdia   - Array holding the geometric mean
c              diameters of the sieve cuts.
c              Units are in mm.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          < sdia(1)  sdia(nsieve)
c              typical        < sdia(1)  sdia(nsieve)
c              ------------   ---------  ---------
c
c     msieve - Maximum number of sieves that can be used.
c              (Compile time array size limit)
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          1          -
c              typical        4          20
c              ------------   ---------  ---------
c
c     nsieve - Number of sieves actually used.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          1          msieve
c              typical        4          msieve
c              ------------   ---------  ---------
c
c     logcas - Specifies which lognormal case to apply.
c
c     logcas = 0 --> "normal" lognormal case (mnot = 0, minf = infinity)
c     logcas = 1 --> "abnormal" lognormal case (mnot != 0, minf = infinity)
c     logcas = 2 --> "abnormal" lognormal case (mnot = 0, minf != infinity)
c     logcas = 3 --> "abnormal" lognormal case (mnot != 0, minf != infinity)
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          0          3
c              typical        3          3
c              ------------   ---------  ---------
c