anchor.diff:    END DO
   END IF ! check if allocated
   IF (ASSOCIATED(u_out%xdotForce) .AND. ASSOCIATED(u1%xdotForce)) THEN
  -  ALLOCATE(b1(SIZE(u_out%xdotForce,1)))
  -  ALLOCATE(c1(SIZE(u_out%xdotForce,1)))
  -  b1 = -(u1%xdotForce - u2%xdotForce)/t(2)
  -  u_out%xdotForce = u1%xdotForce + b1 * t_out
  -  DEALLOCATE(b1)
  -  DEALLOCATE(c1)
  +  DO i1 = LBOUND(u_out%xdotForce,1),UBOUND(u_out%xdotForce,1)
  +    b = -(u1%xdotForce(i1) - u2%xdotForce(i1))
  +    u_out%xdotForce(i1) = u1%xdotForce(i1) + b * ScaleFactor
  +  END DO
   END IF ! check if allocated
   IF (ASSOCIATED(u_out%ydotForce) .AND. ASSOCIATED(u1%ydotForce)) THEN
  -  ALLOCATE(b1(SIZE(u_out%ydotForce,1)))
  -  ALLOCATE(c1(SIZE(u_out%ydotForce,1)))
  -  b1 = -(u1%ydotForce - u2%ydotForce)/t(2)
  -  u_out%ydotForce = u1%ydotForce + b1 * t_out
  -  DEALLOCATE(b1)
  -  DEALLOCATE(c1)
  +  DO i1 = LBOUND(u_out%ydotForce,1),UBOUND(u_out%ydotForce,1)
  +    b = -(u1%ydotForce(i1) - u2%ydotForce(i1))
  +    u_out%ydotForce(i1) = u1%ydotForce(i1) + b * ScaleFactor
  +  END DO
   END IF ! check if allocated
   IF (ASSOCIATED(u_out%zdotForce) .AND. ASSOCIATED(u1%zdotForce)) THEN
  -  ALLOCATE(b1(SIZE(u_out%zdotForce,1)))
  -  ALLOCATE(c1(SIZE(u_out%zdotForce,1)))
  -  b1 = -(u1%zdotForce - u2%zdotForce)/t(2)
  -  u_out%zdotForce = u1%zdotForce + b1 * t_out
  -  DEALLOCATE(b1)
  -  DEALLOCATE(c1)
  +  DO i1 = LBOUND(u_out%zdotForce,1),UBOUND(u_out%zdotForce,1)
  +    b = -(u1%zdotForce(i1) - u2%zdotForce(i1))
  +    u_out%zdotForce(i1) = u1%zdotForce(i1) + b * ScaleFactor
  +  END DO
   END IF ! check if allocated
   IF (ASSOCIATED(u_out%pOrientation) .AND. ASSOCIATED(u1%pOrientation)) THEN
     DO i1 = LBOUND(u_out%pOrientation,1),UBOUND(u_out%pOrientation,1)
  
positive.code:     IntKiBuf( Int_Xferred + 1) = UBOUND(InData%ydotForce,1)
      Int_Xferred = Int_Xferred + 2
  
        IF (SIZE(InData%ydotForce)>0) ReKiBuf ( Re_Xferred:Re_Xferred+(SIZE(InData%ydotForce))-1 ) = PACK(InData%ydotForce,.TRUE.)
        Re_Xferred   = Re_Xferred   + SIZE(InData%ydotForce)
    END IF
    IF ( .NOT. ASSOCIATED(InData%zdotForce) ) THEN
      IntKiBuf( Int_Xferred ) = 0
  
negative.code:     OutData%c_obj%zdotForce_Len = SIZE(OutData%zdotForce)
      IF (OutData%c_obj%zdotForce_Len > 0) &
         OutData%c_obj%zdotForce = C_LOC( OutData%zdotForce(i1_l) ) 
        DO i1 = LBOUND(OutData%zdotForce,1), UBOUND(OutData%zdotForce,1)
          OutData%zdotForce(i1) = REAL(ReKiBuf(Re_Xferred), C_FLOAT)
          Re_Xferred = Re_Xferred + 1
        END DO
    END IF
    IF ( IntKiBuf( Int_Xferred ) == 0 ) THEN  ! pOrientation not allocated
      Int_Xferred = Int_Xferred + 1
  