      common /TdPlot/ TdVuNumPrm,TdVuOpt,TdVuData,
     &                TdVuFileNum,TdVuReadFlag

      record /TdOption/ TdVuOpt(MAX_3DVU)
      record /TdData/   TdVuData(MAX_3DVU)
      record /TdRead/   TdVuReadFlag
      integer*4 TdVuNumPrm(67),TdVuFileNum

      common /TdVuMrk/ MrkData,MrkVel,MrkAcc ! 3
     
      real*4    MrkData(3,MAX_MTN_FRM,MAX_MRK),
     &          MrkVel(3,MAX_MTN_FRM,MAX_MRK),
     &          MrkAcc(3,MAX_MTN_FRM,MAX_MRK)

      common /TdVuSeg/ SegPosGCS,SegVelGCS,SegAccGCS, ! 10 13
     &                 ScrewFinGCS,ScrewInsGCS,
     &                 BodyCM,SegMom,BodyMom,BCMVel
      real*4    SegPosGCS(3,4,MAX_MTN_FRM,MAX_SEG),
     &          SegVelGCS(6,MAX_MTN_FRM,MAX_SEG),  
     &          SegAccGCS(6,MAX_MTN_FRM,MAX_SEG),
     &          ScrewFinGCS(8,MAX_MTN_FRM,MAX_SEG),
     &          ScrewInsGCS(8,MAX_MTN_FRM,MAX_SEG),
     &          BodyCM(3,MAX_MTN_FRM),SegMom(8,MAX_MTN_FRM,MAX_SEG),
     &          BodyMom(8,MAX_MTN_FRM),BCMVel(3,MAX_MTN_FRM)
c
c     NOTE that the 7 and 8 elements of seg and body momentum are
c     the magnitudes of the linear and rotational momentums respectively
c
      common /TdVuJnt/ JntLoadGCS,JntWrenchLCS,ScrewFinLCS,ScrewInsLCS
      real*4    JntLoadGCS(6,MAX_MTN_FRM,MAX_JNT),		! 4 17
     &          JntWrenchLCS(8,MAX_MTN_FRM,MAX_JNT), 
     &          ScrewFinLCS(8,MAX_MTN_FRM,MAX_JNT),
     &          ScrewInsLCS(8,MAX_MTN_FRM,MAX_JNT)
c
c
c               
      common /TdVuFrc/ FpData,FtGrl,CombGrl,		! 9 27
     &                 FpCp,FtCp,CombCp,
     &                 FpWrench,FtWrench,CombWrench,
     &                 FtCpVelGCS
      real*4    FpData(6,MAX_ELEC_FRM,MAX_PLT),    
     &          FtGrl(6,MAX_ELEC_FRM,2),
     &          CombGrl(6,MAX_ELEC_FRM),     
     &          FtCp(3,MAX_ELEC_FRM,2),
     &          CombCp(3,MAX_ELEC_FRM),      
     &          FpCp(3,MAX_ELEC_FRM,MAX_PLT),
     &          FpWrench(8,MAX_ELEC_FRM,MAX_PLT),
     &          FtWrench(8,MAX_ELEC_FRM,2),  
     &          CombWrench(8,MAX_ELEC_FRM),
     &          FtCpVelGCS(3,MAX_MTN_FRM,2)
