anchor.diff:                     ENDDO
                  ENDDO
              ENDDO
  -       ENDDO 
  +       ENDDO
   
          DO i=1,node_elem
              DO j=1,dof_node
  
positive.code:    REAL(ReKi),                   INTENT(  OUT):: Acc(:)
  
     ! Local variables
     
     REAL(ReKi):: MassM(dof_total,dof_total) 
     REAL(ReKi):: RHS(dof_total)  
     REAL(ReKi):: F_PointLoad(dof_total) 
     REAL(ReKi):: sol_temp(dof_total) 
     REAL(ReKi):: d 
     INTEGER(IntKi):: indx(dof_total) 
     INTEGER(IntKi):: j 
     INTEGER(IntKi):: k 
     INTEGER(IntKi):: temp_id
     REAL(ReKi):: temp6(6)
  
  
negative.code: 
     REAL(ReKi)                                   :: temp_cc(3)
  
     ErrStat = ErrID_None
     ErrMsg = ""
     
     ! Root displacements
     x%q(1:3) = u%RootMotion%TranslationDisp(1:3,1)
     ! Root rotations
  