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:     END IF
  
      ! -- xdotForce Input Data fields
      IF ( .NOT. C_ASSOCIATED( InputData%C_obj%xdotForce ) ) THEN
         NULLIFY( InputData%xdotForce )
      ELSE
         CALL C_F_POINTER(InputData%C_obj%xdotForce, InputData%xdotForce, (/InputData%C_obj%xdotForce_Len/))
      END IF
  
      ! -- ydotForce Input Data fields
      IF ( .NOT. C_ASSOCIATED( InputData%C_obj%ydotForce ) ) THEN
         NULLIFY( InputData%ydotForce )
      ELSE
         CALL C_F_POINTER(InputData%C_obj%ydotForce, InputData%ydotForce, (/InputData%C_obj%ydotForce_Len/))
      END IF
  
      ! -- zdotForce Input Data fields
      IF ( .NOT. C_ASSOCIATED( InputData%C_obj%zdotForce ) ) THEN
         NULLIFY( InputData%zdotForce )
      ELSE
         CALL C_F_POINTER(InputData%C_obj%zdotForce, InputData%zdotForce, (/InputData%C_obj%zdotForce_Len/))
      END IF
  
      ! -- pOrientation Input Data fields
  
negative.code:     OutData%c_obj%xdotForce_Len = SIZE(OutData%xdotForce)
      IF (OutData%c_obj%xdotForce_Len > 0) &
         OutData%c_obj%xdotForce = C_LOC( OutData%xdotForce(i1_l) ) 
        DO i1 = LBOUND(OutData%xdotForce,1), UBOUND(OutData%xdotForce,1)
          OutData%xdotForce(i1) = REAL(ReKiBuf(Re_Xferred), C_FLOAT)
          Re_Xferred = Re_Xferred + 1
        END DO
    END IF
    IF ( IntKiBuf( Int_Xferred ) == 0 ) THEN  ! ydotForce not allocated
      Int_Xferred = Int_Xferred + 1
  