
      real*4    SegKE(3,MAX_MTN,MAX_SEG),SegPE(MAX_MTN,MAX_SEG),
     &          SegTE(MAX_MTN,MAX_SEG),
     &          BodyKE(3,MAX_MTN),BodyPE(MAX_MTN),BodyTE(MAX_MTN),
     &          JntPower(4,MAX_MTN,MAX_JNT),JntPowerLeg(4,MAX_MTN,2)

      common /Energy/ SegKE,SegPE,SegTE,BodyKE,BodyPE,BodyTE,JntPower,
     &                JntPowerLeg
c
c     NOTE that kinetic energy quantities (seg_KE,body_KE) contain
c     the translational KE in the first element, rotational KE in
c     the second, and the total KE magnitude in the third.
c
