anchor.diff:        ErrStat = 0
         
      END IF     
  -      
         
      !-------------------------------------------------------------------------------------------------
      ! check that the HD_Loads and HD_Markers are allocated properly
  
positive.code:    ! calculate output as requested
     !-------------------------------------------------------------------------------------------------
        
     CALL HDOut_CalcOutput ( CurrentTime, HD_Data%HDOut_Data, HD_Data%FltPtfm_data, HD_Data%Waves_data, ErrStat )   
     HD_Data%LastCalcTime = CurrentTime
  
  
  END SUBROUTINE HD_CalculateLoads
  !====================================================================================================
  
negative.code:    PUBLIC                                       :: HD_GetValue                ! Returns ancillary values that other codes may want to use
  !   PUBLIC                                       :: HD_GetValue_CHAR           ! Returns ancillary values that other codes may want to use
  !   PUBLIC                                       :: HD_GetValue_AllOuts        ! Returns ancillary values that other codes may want to use
  
  
     TYPE, PUBLIC :: HD_InitOutputType
       CHARACTER(10) , DIMENSION(:), ALLOCATABLE  :: WriteOutputHdr 
       CHARACTER(10) , DIMENSION(:), ALLOCATABLE  :: WriteOutputUnt 
       REAL(ReKi)    , DIMENSION(:), ALLOCATABLE  :: WriteOutput 
       TYPE(ProgDesc)  :: Ver 
     END TYPE HD_InitOutputType
  
  
     TYPE, PUBLIC :: HD_DataType                                                ! The type is public
  