anchor.diff:     USE NWTC_LAPACK
   
      USE FAST_ModTypes
  -  
  -   !USE ServoDyn  , ONLY: Cmpl4SFun, Cmpl4LV
  -    
  +      
      USE AeroDyn
      USE ElastoDyn
      USE FEAMooring
  
positive.code: 
        IF ( ErrID /= ErrID_None ) THEN
  
           CALL WrScr( ' ED_HD_InputOutputSolve: '//TRIM(Msg) )
           ErrStat = MAX(ErrStat, ErrID)
  
           !.........................................................................................................................
  
negative.code:       CHARACTER(1024)            :: ErrMsg3     ! The error message (ErrMsg)
                    
        CALL ED_DestroyOutput(y_ED_input, ErrStat3, ErrMsg3 )
           IF (ErrStat3 /= ErrID_None) CALL WrScr(RoutineName//'/ED_DestroyOutput: '//TRIM(ErrMsg3) )
           
        IF ( calcJacobian ) THEN
           CALL ED_DestroyInput( u_ED_perturb, ErrStat3, ErrMsg3 )
              IF (ErrStat3 /= ErrID_None) CALL WrScr(RoutineName//'/ED_DestroyInput: '//TRIM(ErrMsg3) )
           CALL ED_DestroyOutput(y_ED_perturb, ErrStat3, ErrMsg3 )
              IF (ErrStat3 /= ErrID_None) CALL WrScr(RoutineName//'/ED_DestroyOutput: '//TRIM(ErrMsg3) )
           
           CALL HydroDyn_DestroyInput( u_HD_perturb, ErrStat3, ErrMsg3 )
              IF (ErrStat3 /= ErrID_None) CALL WrScr(RoutineName//'/HydroDyn_DestroyInput: '//TRIM(ErrMsg3) )
           CALL HydroDyn_DestroyOutput(y_HD_perturb, ErrStat3, ErrMsg3 )
              IF (ErrStat3 /= ErrID_None) CALL WrScr(RoutineName//'/HydroDyn_DestroyOutput: '//TRIM(ErrMsg3) )                        
        END IF
        
     
  