anchor.diff:     CHARACTER(*),    INTENT(  OUT) :: ErrMsg
   ! Local 
      INTEGER(IntKi)                 :: i,i1,i2,i3,i4,i5,j,k
  +   INTEGER(IntKi)                 :: i1_l,i2_l,i3_l,i4_l,i5_l  ! lower bounds for an array dimension
  +   INTEGER(IntKi)                 :: i1_u,i2_u,i3_u,i4_u,i5_u  ! upper bounds for an array dimension
   ! 
      ErrStat = ErrID_None
      ErrMsg  = ""
  
positive.code:    CHARACTER(*),    INTENT(  OUT) :: ErrMsg
  ! Local 
     INTEGER(IntKi)                 :: i,i1,i2,i3,i4,i5,j,k
  ! 
     ErrStat = ErrID_None
     ErrMsg  = ""
  
negative.code:   ErrStat = ErrID_None
    ErrMsg  = ""
  IF (ALLOCATED(OtherStateData%xdot)) THEN
  DO i1 = LBOUND(OtherStateData%xdot,1), UBOUND(OtherStateData%xdot,1)
    CALL BDyn_DestroyContState( OtherStateData%xdot(i1), ErrStat, ErrMsg )
  ENDDO
  ENDIF
  