      real*4    SgpAvg(3,4,MAX_SEG),SgpGCS(3,4,MAX_MTN,MAX_SEG),
     &          SvlGCS(6,MAX_MTN,MAX_SEG),SvlLCS(6,MAX_MTN,MAX_SEG),
     &          SacGCS(6,MAX_MTN,MAX_SEG),SacLCS(6,MAX_MTN,MAX_SEG),
     &          SgFinScrGCS(8,MAX_MTN,MAX_SEG),
     &          SgInsScrGCS(8,MAX_MTN,MAX_SEG),
     &          BodyCM(3,MAX_MTN),SgMom(8,MAX_MTN,MAX_SEG),
     &          BdMom(8,MAX_MTN),SangGCS(3,MAX_MTN,MAX_SEG),
     &          RMd(3,3,MAX_MTN),RMdd(3,3,MAX_MTN),
     &          SgpRefCorAng(3,MAX_SEG),BCMVel(3,MAX_MTN)

      common /Segment/ SgpAvg,SgpGCS,SvlGCS,SacGCS,
     &                 SvlLCS,SacLCS,SgFinScrGCS,SgInsScrGCS,
     &                 BodyCM,SgMom,BdMom,SangGCS,
     &                 RMd,RMdd,SgpRefCorAng,BCMVel
