anchor.diff:  ! 
     ErrStat = ErrID_None
     ErrMsg  = ""
  -IF (ALLOCATED(InitOutputData%WriteOutputHdr)) THEN
  -  DEALLOCATE(InitOutputData%WriteOutputHdr)
  -ENDIF
    END SUBROUTINE TMD_DestroyInitOutput
   
    SUBROUTINE TMD_PackInitOutput( ReKiBuf, DbKiBuf, IntKiBuf, Indata, ErrStat, ErrMsg, SizeOnly )
  
positive.code:   Re_BufSz  = 0
    Db_BufSz  = 0
    Int_BufSz  = 0
    Int_BufSz   = Int_BufSz   + 1     ! WriteOutputHdr allocated yes/no
    IF ( ALLOCATED(InData%WriteOutputHdr) ) THEN
      Int_BufSz   = Int_BufSz   + 2*1  ! WriteOutputHdr upper/lower bounds for each dimension
        Int_BufSz  = Int_BufSz  + SIZE(InData%WriteOutputHdr)*LEN(InData%WriteOutputHdr)  ! WriteOutputHdr
    END IF
    IF ( Re_BufSz  .GT. 0 ) THEN 
       ALLOCATE( ReKiBuf(  Re_BufSz  ), STAT=ErrStat2 )
       IF (ErrStat2 /= 0) THEN 
  
negative.code:   LOGICAL, ALLOCATABLE           :: mask3(:,:,:)
    LOGICAL, ALLOCATABLE           :: mask4(:,:,:,:)
    LOGICAL, ALLOCATABLE           :: mask5(:,:,:,:,:)
    INTEGER(IntKi)                 :: ErrStat2
    CHARACTER(ErrMsgLen)           :: ErrMsg2
    CHARACTER(*), PARAMETER        :: RoutineName = 'TMD_UnPackInitOutput'
  