anchor.diff:           IF (ErrStat >= AbortErrLev) RETURN
      
         CALL CalculatePositions(        p, x, OtherState%CoordSys,    OtherState%RtHS ) ! calculate positions
  -      CALL CalculateAngularPosVelAcc( p, x, OtherState%CoordSys,    OtherState%RtHS ) ! calculate angular positions, velocities, and accelerations, including partial angular quantities
  -      CALL CalculateLinearVelAcc(     p, x, OtherState%CoordSys,    OtherState%RtHS ) ! calculate linear velocities and accelerations
  +      CALL CalculateAngularPosVelPAcc(p, x, OtherState%CoordSys,    OtherState%RtHS ) ! calculate angular positions, velocities, and partial accelerations, including partial angular quantities
  +      CALL CalculateLinearVelPAcc(    p, x, OtherState%CoordSys,    OtherState%RtHS ) ! calculate linear velocities and partial accelerations
         CALL CalculateForcesMoments(    p, x, OtherState%CoordSys, u, OtherState%RtHS ) ! calculate the forces and moments (requires AeroBladeForces and AeroBladeMoments)            
         
      END IF
  
positive.code:       CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN
        
        !............................................................................................
        ! Define initialization-routine output here:
        !............................................................................................
  
negative.code: 
  END SUBROUTINE CalculatePositions
  !----------------------------------------------------------------------------------------------------------------------------------
  SUBROUTINE CalculateAngularPosVelPAcc( p, x, CoordSys, RtHSdat )
  ! This routine is used to calculate the angular positions, velocities, and partial accelerations stored in other states that are used in
  ! both the CalcOutput and CalcContStateDeriv routines.
  !..................................................................................................................................
  
  