anchor.diff:     END DO ! J
   
   
  -END SUBROUTINE CalculateLinearVelAcc
  +END SUBROUTINE CalculateLinearVelPAcc
   !----------------------------------------------------------------------------------------------------------------------------------
   SUBROUTINE CalculateForcesMoments( p, x, CoordSys, u, RtHSdat )
   ! This routine is used to calculate the forces and moments stored in other states that are used in
  
positive.code:          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 CalculateForcesMoments(    p, x, OtherState%CoordSys, u, OtherState%RtHS ) ! calculate the forces and moments (requires AeroBladeForces and AeroBladeMoments)            
        
     END IF
  
negative.code:    CALL ED_DestroyInputFile(InputFileData, ErrStat2, ErrMsg2 )
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN
        
           
  
  CONTAINS
     !...............................................................................................................................
  