!$Author: wagner $
!$Date: 2002-02-20 14:33:18 $
!$Revision: 1.8 $
!$Source: /weru/cvs/weps/weps.src/inc/c1gen.inc,v $

!     This common block contains the state variables relating to
!     the general purpose crop information.

!     Parameter include files:  p1werm.inc

!     + + + VARIABLE DECLARATIONS + + +

      integer          ac0rg(mnsub)
      real             acdpop(mnsub)
      real             acntil(mnsub)
      real             acytgt(mnsub)
      integer          achyfg(mnsub)
      character*80     acynmu(mnsub)
      real             acycon(mnsub)
      real             acywct(mnsub)
      integer          acrsfg(mnsub)
      real             acxrow(mnsub)
      integer          acthud(mnsub)

      common / c1gen /                                                  &
     &                 ac0rg,                                           &
     &                 acdpop, acntil,                                  &
     &                 acytgt,                                          &
     &                 achyfg,                                          &
     &                 acynmu,                                          &
     &                 acycon, acywct,                                  &
     &                 acrsfg,                                          &
     &                 acxrow,                                          &
     &                 acthud

!     + + + VARIABLE DEFINITIONS + + +
!     ac0rg  - Crop seeding location in relation to ridge
!         0     o plant in furrow
!         1     o plant on ridge
!     acdpop - Crop seeding density (#/m^2)
!     acntil - typical tillering factor for crop
!     acytgt - target yield (in units shown below)
!     achyfg - flag indicating part of plant which is harvestable yield
!         0     'yield' is all of the 'reproductive' mass
!         1     'yield' is a fraction of the 'reproductive' mass
!         2     'yield' is all or a fraction of the aboveground biomass
!         3     'yield' is all or a fraction ofthe leaf mass
!         4     'yield' is all or a fraction ofthe stem mass
!         5     not used at the moment
!     acynmu - string for name of units in which yield of interest will be
!              reported
!     acycon - conversion factor from Kg/m^2 to units named in acynmu (all
!              dry weight)
!     acywct - water content at which yield is to be reported (fraction)
!     acrsfg - row spacing flag
!         0      o Broadcast Planting
!         1      o Use Specified Row Spacing
!         2      o Use Existing Ridge Spacing
!     acxrow - Crop row spacing (m)
!     acthud - heat units or days to maturity flag
!         0      o Days to maturity and average conditions used to find heat units
!         1      o Heat units specified used directly