anchor.diff:    Re_Xferred  = 1
     Db_Xferred  = 1
     Int_Xferred  = 1
  -  IF ( IntKiBuf( Int_Xferred ) == 0 ) THEN  ! WriteOutputHdr 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%WriteOutputHdr)) DEALLOCATE(OutData%WriteOutputHdr)
  -    ALLOCATE(OutData%WriteOutputHdr(i1_l:i1_u),STAT=ErrStat2)
  -    IF (ErrStat2 /= 0) THEN 
  -       CALL SetErrStat(ErrID_Fatal, 'Error allocating OutData%WriteOutputHdr.', 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%WriteOutputHdr,1), UBOUND(OutData%WriteOutputHdr,1)
  -        DO I = 1, LEN(OutData%WriteOutputHdr)
  -          OutData%WriteOutputHdr(i1)(I:I) = CHAR(IntKiBuf(Int_Xferred))
  -          Int_Xferred = Int_Xferred   + 1
  -        END DO ! I
  -    END DO !i1
  -    DEALLOCATE(mask1)
  -  END IF
  +      OutData%DummyInitOut = REAL( ReKiBuf( Re_Xferred ), SiKi) 
  +      Re_Xferred   = Re_Xferred + 1
    END SUBROUTINE TMD_UnPackInitOutput
   
    SUBROUTINE TMD_CopyContState( SrcContStateData, DstContStateData, CtrlCode, ErrStat, ErrMsg )
  
positive.code:    CHARACTER(*),    INTENT(  OUT) :: ErrMsg
  ! Local 
     INTEGER(IntKi)                 :: i,j,k
     INTEGER(IntKi)                 :: i1, i1_l, i1_u  !  bounds (upper/lower) for an array dimension 1
     INTEGER(IntKi)                 :: ErrStat2
     CHARACTER(ErrMsgLen)           :: ErrMsg2
     CHARACTER(*), PARAMETER        :: RoutineName = 'TMD_CopyInitOutput'
  ! 
     ErrStat = ErrID_None
     ErrMsg  = ""
  IF (ALLOCATED(SrcInitOutputData%WriteOutputHdr)) THEN
    i1_l = LBOUND(SrcInitOutputData%WriteOutputHdr,1)
    i1_u = UBOUND(SrcInitOutputData%WriteOutputHdr,1)
    IF (.NOT. ALLOCATED(DstInitOutputData%WriteOutputHdr)) THEN 
      ALLOCATE(DstInitOutputData%WriteOutputHdr(i1_l:i1_u),STAT=ErrStat2)
      IF (ErrStat2 /= 0) THEN 
        CALL SetErrStat(ErrID_Fatal, 'Error allocating DstInitOutputData%WriteOutputHdr.', ErrStat, ErrMsg,RoutineName)
        RETURN
      END IF
    END IF
      DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr
  ENDIF
   END SUBROUTINE TMD_CopyInitOutput
  
   SUBROUTINE TMD_DestroyInitOutput( InitOutputData, ErrStat, ErrMsg )
  
negative.code: ! 
    ErrStat = ErrID_None
    ErrMsg  = ""
   END SUBROUTINE TMD_DestroyInitOutput
  
   SUBROUTINE TMD_PackInitOutput( ReKiBuf, DbKiBuf, IntKiBuf, Indata, ErrStat, ErrMsg, SizeOnly )
  