!*==./Restructure/Modules/I_m1geo.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
      module i_m1geo
      implicit none
!
! COMMON /M1GEO/
!
      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 i_m1geo