anchor.diff:      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)
  +      DO i1 = LBOUND(InData%ydotForce,1), UBOUND(InData%ydotForce,1)
  +        ReKiBuf(Re_Xferred) = InData%ydotForce(i1)
  +        Re_Xferred = Re_Xferred + 1
  +      END DO
     END IF
     IF ( .NOT. ASSOCIATED(InData%zdotForce) ) THEN
       IntKiBuf( Int_Xferred ) = 0
  
positive.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) ) 
      ALLOCATE(mask1(i1_l:i1_u),STAT=ErrStat2)
      IF (ErrStat2 /= 0) THEN 
         CALL SetErrStat(ErrID_Fatal, 'Error allocating mask1.', ErrStat, ErrMsg,RoutineName)
         RETURN
      END IF
      mask1 = .TRUE. 
        IF (SIZE(OutData%zdotForce)>0) OutData%zdotForce = REAL( UNPACK(ReKiBuf( Re_Xferred:Re_Xferred+(SIZE(OutData%zdotForce))-1 ), mask1, 0.0_ReKi ), C_FLOAT)
        Re_Xferred   = Re_Xferred   + SIZE(OutData%zdotForce)
      DEALLOCATE(mask1)
    END IF
    IF ( IntKiBuf( Int_Xferred ) == 0 ) THEN  ! pOrientation not allocated
      Int_Xferred = Int_Xferred + 1
  
negative.code:     IntKiBuf( Int_Xferred + 1) = UBOUND(InData%zdotForce,1)
      Int_Xferred = Int_Xferred + 2
  
        DO i1 = LBOUND(InData%zdotForce,1), UBOUND(InData%zdotForce,1)
          ReKiBuf(Re_Xferred) = InData%zdotForce(i1)
          Re_Xferred = Re_Xferred + 1
        END DO
    END IF
    IF ( .NOT. ASSOCIATED(InData%pOrientation) ) THEN
      IntKiBuf( Int_Xferred ) = 0
  