c     ------------------------------------------------------------------
c     file 'm1geo.inc'

c     This block common is contains variables used to describe the
c     geometrical configuration of a simulation area.

c     Parameter include file: c:\main\inc\p1werm.inc

c     + + + VARIABLE DECLARATIONS + + +

      integer          nacctr
      integer          nbr
      real             amasim
      real             ampbr(mnbr)
      real             amxar(mnarpt,mnarpt,mnar)
      real             amxbr(mnbpt,mnbpt,mnbr)
      real             amxbrw(mnbr)
      real             amxsim(mnspt,mnspt)
      real             amxsr(mnsrpt,mnsrpt,mnsub)
      real             amzbr(mnbr)

      common / m1geo /
     i                 nacctr, nbr,
     r                 amasim, ampbr,
     r                 amxar, amxbr, amxbrw,
     r                 amxsim, amxsr, amzbr

c     + + + VARIABLE DEFINITIONS + + +

c     amasim - Field angle (degrees)

c              range values      min       max
c              ------------   ---------  ---------
c              fixed              0        360
c              typical            0        360
c              ------------   ---------  ---------

c            - This variable contains the angle of the simulation
c              region boundary relative to north.

c     ampbr  - Porosity of each barrier

c              range values       min        max
c              ------------   ---------  ---------
c              fixed               ?          ?
c              typical             ?          ?
c              ------------   ---------  ---------

c            - This variable contains the porosity as fraction
c              of the outline of each barrier.
c              (ie., 1 - silhouette area).

c     amxar  - Coordinates of the accounting region

c              range values      min       max
c              ------------   ---------  ---------
c              fixed              ?         ?
c              typical            ?         ?
c              ------------   ---------  ---------

c            - This variable contains the coordinates of two
c              opposite points for a rectangular accounting region.

c     amxsim - Coordinates of simulation region

c              range values      min       max
c              ------------   ---------  ---------
c              fixed             ?          ?
c              typical           ?          ?
c              ------------   ---------  ---------

c            - This variable contains the coordinates of two
c              opposite points for a rectangular simulation region.

c     amxsr  - Coordinates of the subregions

c              range values       min        max
c              ------------   ---------  ---------
c              fixed               ?          ?
c              typical             ?          ?
c              ------------   ---------  ---------

c            - This variable contains the coordinates of two
c              opposite points for each rectangular subregion.

c     amxbr  - Coordinates of barriers

c              range values       min        max
c              ------------   ---------  ---------
c              fixed               ?          ?
c              typical             ?          ?
c              ------------   ---------  ---------

c            - This variable contains the coordinates of two
c              endpoints of a linear barrier.

c     amxbrw - Width of each barrier

c              range values       min        max
c              ------------   ---------  ---------
c              fixed               ?          ?
c              typical             ?          ?
c              ------------   ---------  ---------

c            - This variable contains the width of each barrier in meters.

c     amzbr  - Height of each barrier

c              range values       min        max
c              ------------   ---------  ---------
c              fixed               ?          ?
c              typical             ?          ?
c              ------------   ---------  ---------

c            - This variable contains the height of each barrier in meters.

c    nacctr  - Number of accounting regions

c              range values       min        max
c              ------------   ---------  ---------
c              fixed               ?          ?
c              typical             ?          ?
c              ------------   ---------  ---------

c            - This variable contains the number of accounting
c              regions for the simulation region.

c    nbr     - Number of barriers within the simulation region

c              range values       min        max
c              ------------   ---------  ---------
c              fixed               ?          ?
c              typical             ?          ?
c              ------------   ---------  ---------

c            - This variable contains the number of barriers
c              for the simulation region.

c-----------------------------------------------------------------------