anchor.diff:        Int_Xferred   = Int_Xferred + 1
         OutData%UseHSSBrake = TRANSFER( IntKiBuf( Int_Xferred ), mask0 )
         Int_Xferred   = Int_Xferred + 1
  +  IF ( IntKiBuf( Int_Xferred ) == 0 ) THEN  ! LinNames_y not allocated
  +    Int_Xferred = Int_Xferred + 1
  +  ELSE
  +    Int_Xferred = Int_Xferred + 1
  +    i1_l = IntKiBuf( Int_Xferred    )
  +    i1_u = IntKiBuf( Int_Xferred + 1)
  +    Int_Xferred = Int_Xferred + 2
  +    IF (ALLOCATED(OutData%LinNames_y)) DEALLOCATE(OutData%LinNames_y)
  +    ALLOCATE(OutData%LinNames_y(i1_l:i1_u),STAT=ErrStat2)
  +    IF (ErrStat2 /= 0) THEN 
  +       CALL SetErrStat(ErrID_Fatal, 'Error allocating OutData%LinNames_y.', ErrStat, ErrMsg,RoutineName)
  +       RETURN
  +    END IF
  +    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. 
  +    DO i1 = LBOUND(OutData%LinNames_y,1), UBOUND(OutData%LinNames_y,1)
  +        DO I = 1, LEN(OutData%LinNames_y)
  +          OutData%LinNames_y(i1)(I:I) = CHAR(IntKiBuf(Int_Xferred))
  +          Int_Xferred = Int_Xferred   + 1
  +        END DO ! I
  +    END DO !i1
  +    DEALLOCATE(mask1)
  +  END IF
  +  IF ( IntKiBuf( Int_Xferred ) == 0 ) THEN  ! LinNames_u not allocated
  +    Int_Xferred = Int_Xferred + 1
  +  ELSE
  +    Int_Xferred = Int_Xferred + 1
  +    i1_l = IntKiBuf( Int_Xferred    )
  +    i1_u = IntKiBuf( Int_Xferred + 1)
  +    Int_Xferred = Int_Xferred + 2
  +    IF (ALLOCATED(OutData%LinNames_u)) DEALLOCATE(OutData%LinNames_u)
  +    ALLOCATE(OutData%LinNames_u(i1_l:i1_u),STAT=ErrStat2)
  +    IF (ErrStat2 /= 0) THEN 
  +       CALL SetErrStat(ErrID_Fatal, 'Error allocating OutData%LinNames_u.', ErrStat, ErrMsg,RoutineName)
  +       RETURN
  +    END IF
  +    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. 
  +    DO i1 = LBOUND(OutData%LinNames_u,1), UBOUND(OutData%LinNames_u,1)
  +        DO I = 1, LEN(OutData%LinNames_u)
  +          OutData%LinNames_u(i1)(I:I) = CHAR(IntKiBuf(Int_Xferred))
  +          Int_Xferred = Int_Xferred   + 1
  +        END DO ! I
  +    END DO !i1
  +    DEALLOCATE(mask1)
  +  END IF
    END SUBROUTINE SrvD_UnPackInitOutput
   
    SUBROUTINE SrvD_CopyInputFile( SrcInputFileData, DstInputFileData, CtrlCode, ErrStat, ErrMsg )
  
positive.code:       END IF
        Int_BufSz  = Int_BufSz  + 1  ! CouplingScheme
        Int_BufSz  = Int_BufSz  + 1  ! UseHSSBrake
    IF ( Re_BufSz  .GT. 0 ) THEN 
       ALLOCATE( ReKiBuf(  Re_BufSz  ), STAT=ErrStat2 )
       IF (ErrStat2 /= 0) THEN 
  
negative.code:   DEALLOCATE(InitOutputData%WriteOutputUnt)
  ENDIF
    CALL NWTC_Library_Destroyprogdesc( InitOutputData%Ver, ErrStat, ErrMsg )
  IF (ALLOCATED(InitOutputData%LinNames_y)) THEN
    DEALLOCATE(InitOutputData%LinNames_y)
  ENDIF
  IF (ALLOCATED(InitOutputData%LinNames_u)) THEN
    DEALLOCATE(InitOutputData%LinNames_u)
  ENDIF
   END SUBROUTINE SrvD_DestroyInitOutput
  
   SUBROUTINE SrvD_PackInitOutput( ReKiBuf, DbKiBuf, IntKiBuf, Indata, ErrStat, ErrMsg, SizeOnly )
  