!*==./Restructure/Modules/I_s1sgeo.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
      module i_s1sgeo
      implicit none
!
! COMMON /S1SGEO/
!
      real,dimension(mnsub) :: as0rrk,asargo,aslrr,aslrrc,aslrro,asxdkh,&
                             & asxdks,asxrgs,asxrgw,aszrgh,aszrho
      end module i_s1sgeo