anchor.diff:     REAL(ReKi)                           :: temp_v(3)
      REAL(ReKi)                           :: temp_v2(3)
      INTEGER(IntKi)                       :: i
  +   INTEGER(IntKi)                       :: ErrStat2                     ! Temporary Error status
  +   CHARACTER(ErrMsgLen)                 :: ErrMsg2                      ! Temporary Error message
  +   CHARACTER(*), PARAMETER              :: RoutineName = 'BD_InputGlobalLocal'
   
      ErrStat = ErrID_None
      ErrMsg  = ""
  
positive.code: 
     y%BldMotion%TranslationDisp(:,:) = 0.0D0
     y%BldMotion%Orientation(:,:,:)   = 0.0D0
     DO i=1,p%elem_total
         DO j=1,p%node_elem
             temp_int = (j-1)*p%dof_node
             CALL BD_CrvMatrixR(p%uuN0(temp_int+4:temp_int+6,i),y%BldMotion%Orientation(:,:,(i-1)*p%node_elem+j),&
                                       ErrStat2,ErrMsg2)
         ENDDO
     ENDDO
     y%BldMotion%TranslationVel(:,:)  = 0.0D0
     y%BldMotion%RotationVel(:,:)     = 0.0D0
     y%BldMotion%TranslationAcc(:,:)  = 0.0D0
  
negative.code:            temp_id2= (i-1)*p%node_elem+j
             IF(i .EQ. 1 .AND. j .EQ. 1) THEN
                 temp6(:) = 0.0D0
                 temp6(1) = u%RootMotion%TranslationAcc(3,1)
                 temp6(2) = u%RootMotion%TranslationAcc(1,1)
                 temp6(3) = u%RootMotion%TranslationAcc(2,1)
                 temp6(4) = u%RootMotion%RotationAcc(3,1)
                 temp6(5) = u%RootMotion%RotationAcc(1,1)
                 temp6(6) = u%RootMotion%RotationAcc(2,1)
             ELSE
                 temp6(:) = 0.0D0
                 temp6(1) = y%BldMotion%TranslationAcc(3,temp_id2)
                 temp6(2) = y%BldMotion%TranslationAcc(1,temp_id2)
                 temp6(3) = y%BldMotion%TranslationAcc(2,temp_id2)
                 temp6(4) = y%BldMotion%RotationAcc(1,temp_id2)
                 temp6(5) = y%BldMotion%RotationAcc(2,temp_id2)
                 temp6(6) = y%BldMotion%RotationAcc(3,temp_id2)
             ENDIF
             temp6(1:3) = MATMUL(TRANSPOSE(p%GlbRot),temp6(1:3))
             temp6(4:6) = MATMUL(TRANSPOSE(p%GlbRot),temp6(4:6))
             OtherState%Acc(temp_id+1:temp_id+6) = temp6(1:6)
         ENDDO
     ENDDO
  