anchor.diff:     
      CHARACTER(1024)                              :: SummaryName          ! name of the HydroDyn summary file
                   
  +   integer(intki) :: errstat2
  +   character(1024) :: errmsg2
  +   
         ! Initialize NWTC_Library
         
      CALL NWTC_Init( )
  
positive.code:       ErrStat = 0
        
     END IF     
        
        
     !-------------------------------------------------------------------------------------------------
     ! check that the HD_Loads and HD_Markers are allocated properly
  
negative.code:    END DO
     
  
  !...........................
     
  CALL AllocAry( HD_InitOutput%WriteOutputHdr, HD_Data%HDOut_Data%NumOuts, 'WriteOutputHdr', ErrStat2, ErrMsg2 )
  CALL AllocAry( HD_InitOutput%WriteOutputUnt, HD_Data%HDOut_Data%NumOuts, 'WriteOutputUnt', ErrStat2, ErrMsg2 )
  CALL AllocAry( HD_InitOutput%WriteOutput,    HD_Data%HDOut_Data%NumOuts, 'WriteOutput',    ErrStat2, ErrMsg2 )
    
  HD_InitOutput%Ver = HD_Prog
  HD_InitOutput%WriteOutputHdr = HD_Data%HDOut_Data%OutParam(1:HD_Data%HDOut_Data%NumOuts)%Name
  HD_InitOutput%WriteOutputUnt = HD_Data%HDOut_Data%OutParam(1:HD_Data%HDOut_Data%NumOuts)%Units
     
  END SUBROUTINE HD_Init
  !====================================================================================================
  