anchor.diff:         u%DistrLoad%Moment(:,k) = 0.0D0
      ENDDO
   
  -   CALL BD_CalcIC(u,p,x,OtherState,ErrStat2,ErrMsg2)
  +   CALL BD_CopyInput(u, u_tmp, MESH_NEWCOPY, ErrStat2, ErrMsg2)
  +      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  +   CALL BD_InputGlobalLocal(p,u_tmp,ErrStat2,ErrMsg2)
  +      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  +   CALL BD_CalcIC(u_tmp,p,x,OtherState,ErrStat2,ErrMsg2)
         CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
      ! Define initial guess for the system outputs here:
   
  
positive.code: 
     ! local variables
     TYPE(BD_InputFile)      :: InputFileData    ! Data stored in the module's input file
     INTEGER(IntKi)          :: i                ! do-loop counter
     INTEGER(IntKi)          :: j                ! do-loop counter
     INTEGER(IntKi)          :: k                ! do-loop counter
  
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
  