!*==./Restructure/Modules/C_M1GEO.f90  created by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      module c_m1geo
      implicit none
      real :: amasim,sim_area
      real,dimension(mnbr) :: ampbr,amxbrw,amzbr
      real,dimension(mnarpt,mnarpt,mnar) :: amxar
      real,dimension(mnbpt,mnbpt,mnbr) :: amxbr
      real,dimension(mnspt,mnspt) :: amxsim
      real,dimension(mnsrpt,mnsrpt,mnsub) :: amxsr
      character(80),dimension(mnbr) :: amzbt
      integer :: nacctr,nbr
      end module c_m1geo