      real*4    FpData(6,MAX_ELC,MAX_PLT),FtGrl(6,MAX_ELC,2),
     &          CmbGrl(6,MAX_ELC),
     &          FtCpGCS(3,MAX_ELC,2),CmbCp(3,MAX_ELC),
     &          FtCpLCS(3,MAX_MTN,2),
     &          FtGRLWre(8,MAX_ELC,2),CmbGrlWre(8,MAX_ELC),
     &          FtIntegral(4,MAX_ELC,2),CombIntegral(4,MAX_ELC),
     &          FpCp(3,MAX_ELC,MAX_PLT),FpWre(8,MAX_ELC,MAX_PLT),
     &          PltIntegral(4,MAX_ELC,MAX_PLT),
     &          StrIdx(MAX_MTN,2),rFtGrlLCS(6,MAX_MTN,2),
     &          rFtGrlGCS(6,MAX_MTN,2),rFtCpLCS(3,MAX_MTN,2),
     &          rFtCpGCS(3,MAX_MTN,2),rCmbGrl(6,MAX_MTN),
     &          rCmbCp(3,MAX_MTN),
     &          rStrIdx(MAX_MTN,2),PltLoc(3,4,MAX_PLT),
     &          PltSize(2,MAX_PLT),
     &          CalMatrix(6,6,MAX_PLT),OldAmpGain(6,MAX_PLT),
     &          NewAmpGain(6,MAX_PLT),FpAvg(6,MAX_PLT),
     &          FpSD(6,MAX_PLT),FpZero(6,MAX_PLT),
     &          FtGRLLCS(6,MAX_MTN,2),
     &          PmaPnt(3,MAX_MTN),PmaTrkLCS(3,MAX_MTN),
     &          PmaGCS(4,MAX_MTN),PmaPlvLCS(3,MAX_MTN),
     &          PwaPnt(3,MAX_MTN),PwaTrkLCS(3,MAX_MTN),
     &          PwaGCS(4,MAX_MTN),PwaPlvLCS(3,MAX_MTN),
     &          PltIntegral2(4,MAX_ELC,MAX_PLT),
     &          CombIntegral2(4,MAX_ELC),
     &          FtIntegral2(4,MAX_ELC,2),FtCprVelGCS(3,MAX_MTN,2)
      integer*4 TrgFrm(MAX_PLT)
      logical*4 FtGrlOK(MAX_ELC,2),FlrCntct(MAX_MTN,2),
     &          FpDataOK(MAX_ELC,MAX_PLT),FcDataOK(MAX_ELC)     
      record /force_condition_param/ FRC_COND                     
      record /FileHeader/ Gls2FileHdr

      common /Force_Plate/ FpData,FtGrl,CmbGrl,FtCpGCS,CmbCp,
     &                     FtGrlOK,FtCpLCS,FtGRLWre,
     &                     CmbGrlWre,FtIntegral,CombIntegral,
     &                     TrgFrm,FRC_COND,FpCp,FpWre,PltIntegral,
     &                     StrIdx,FlrCntct,
     &                     rFtGrlLCS,rFtGrlGCS,rFtCpLCS,
     &                     rFtCpGCS,rCmbGrl,rCmbCp,         
     &                     rStrIdx,PltLoc,PltSize,CalMatrix,
     &                     OldAmpGain,NewAmpGain,Gls2FileHdr,FpAvg,
     &                     FpSD,FpZero,FpDataOK,FcDataOK,
     &                     FtGRLLCS,
     &                     PmaPnt,PmaTrkLCS,
     &                     PmaGCS,PmaPlvLCS,
     &                     PwaPnt,PwaTrkLCS,
     &                     PwaGCS,PwaPlvLCS,
     &                     PltIntegral2,CombIntegral2,
     &                     FtIntegral2,FtCprVelGCS
