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:    END DO ! J
  
  
  END SUBROUTINE CalculateAngularPosVelAcc
  !----------------------------------------------------------------------------------------------------------------------------------
  SUBROUTINE CalculateLinearVelAcc( p, x, CoordSys, RtHSdat )
  ! This routine is used to calculate the linear velocities and accelerations stored in other states that are used in
  ! both the CalcOutput and CalcContStateDeriv routines.
  !..................................................................................................................................
  
negative.code: ! limitations under the License.
  !
  !**********************************************************************************************************************************
  ! File last committed: $Date: 2015-07-08 09:35:21 -0600 (Wed, 08 Jul 2015) $
  ! (File) Revision #: $Rev: 1051 $
  ! URL: $HeadURL: https://windsvn.nrel.gov/FAST/branches/BJonkman/Source/ElastoDyn.f90 $
  !**********************************************************************************************************************************
  
  