c $Header: /weru/cvs/weps/weps.src/inc/manage/man.inc,v 1.3 2000-05-16 16:41:19 fredfox Exp $
c     ------------------------------------------------------------------
c     file 'man.inc'
c
c     This common block contains the variables used in the MANAGEMENT
c     subprograms.
c
c     Parameter include files required:  p1werm.inc
c
c     + + + VARIABLE DECLARATIONS + + +
c
      integer        mxtbln
      parameter      (mxtbln = 2000)
C      
      character*80   mtbl  (mxtbln)
      integer        mbeg  (mnsub+1)
      integer        mcur  (mnsub)
      integer        mcount(mnsub)
C
      common / man4 / mbeg, mcur, mtbl, mcount
C            
C *** the following variables are deleted asap
      integer          mstart(mnsub)
      integer          mcurnt(mnsub)
      integer          mperod(mnsub)
      character*80     manlin(mnsub)
      character*80     mline
      character        aline (80)*1
      integer          mlpos
      integer          mrecnum
      integer          mrcl(mnsub)
      integer          meor(mnsub)
c
      integer          istack(20)
      real             nstack(20)
      character*20     cstack(40)

      common / man1 / mstart, mperod, istack, nstack
      common / man2 / manlin, mline, cstack
      common / man3 / mcurnt,  mlpos, mrecnum, mrcl, meor

      equivalence (mline, aline)
C *** end delete here      
c
c     + + + VARIABLE DEFINITIONS + + +
c
c     mtbl    - Array by index of character lines which holds the managment
c              table as read from the management file 
c     mbeg    - Array by subregion of indexes into MTBL that points to where
c              management entries for each subregion start
c     mcur    - Array by subregion of indexes into MTBL that points to the
c              management file line that is presently being read for each
c              subregion
c     mcount  - Array by subregion that indicates which pass through the
c              management file is being performed
c
c     mstart  - Holds the record number ("pointer") to the "beginning" 
c              of operations (in the management file) for each subregion.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          1          mnsub
c              typical        1          n_sr
c              ------------   ---------  ---------
c
c     aline  - Dummy variable to avoid compile warning under WATCOM
c
c
c
c     mcurnt  - Holds the record number ("pointer") to the next management
c              operation to be done for each subregion.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          1          mnsub
c              typical        1          n_sr
c              ------------   ---------  ---------
c
c
c     mperod - Holds the number of years for a management cycle
c              (length of crop rotation) for each subregion.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          1          no of sim years
c              typical        1          1-5
c              ------------   ---------  ---------
c
c
c     manlin - Holds the current management date/operation
c              to be done for each subregion on that date.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------
c
c
c     istack - Holds a list of integer data values that are
c              retrieved from the management data file.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------
c
c
c     nstack - Holds a list of real data values that are
c              retrieved from the management data file.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------
c
c
c     cstack - Holds a list of character data values that are
c              retrieved from the management data file.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------
c
c
c     mline  - Saves a line from the management file for use by
c              the getr function during and after it's call.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------
c
c
c     mlpos  - Saves the internal position within 'mline' for use
c              during and for latter getr function calls.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------
c
c
c     mrecnum - Holds the current record number.
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------

c     mrcl    - Holds the record length of each management file
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------

c     meor    - Holds the position of last printable ASCII char
c               in each record within the management files
c               (should be 70)
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------