anchor.diff:        CHARACTER(1024)            :: ErrMsg3     ! The error message (ErrMsg)
                     
         CALL ED_DestroyOutput(y_ED_input, ErrStat3, ErrMsg3 )
  -         IF (ErrStat3 /= ErrID_None) CALL WrScr(' ED_HD_InputOutputSolve/ED_DestroyOutput: '//TRIM(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(' ED_HD_InputOutputSolve/ED_DestroyInput: '//TRIM(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(' ED_HD_InputOutputSolve/ED_DestroyOutput: '//TRIM(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(' ED_HD_InputOutputSolve/HydroDyn_DestroyInput: '//TRIM(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(' ED_HD_InputOutputSolve/HydroDyn_DestroyOutput: '//TRIM(ErrMsg3) )                        
  +            IF (ErrStat3 /= ErrID_None) CALL WrScr(RoutineName//'/HydroDyn_DestroyOutput: '//TRIM(ErrMsg3) )                        
         END IF
         
      
  
positive.code:    USE NWTC_LAPACK
  
     USE FAST_ModTypes
    
     !USE ServoDyn  , ONLY: Cmpl4SFun, Cmpl4LV
      
     USE AeroDyn
     USE ElastoDyn
     USE FEAMooring
  
negative.code:    IF ( ALLOCATED(y_FAST%ChannelUnits                ) ) DEALLOCATE(y_FAST%ChannelUnits                )
  
  
  END SUBROUTINE FAST_EndOutput
  !----------------------------------------------------------------------------------------------------------------------------------
  SUBROUTINE FAST_Init( p, y_FAST, ErrStat, ErrMsg, InFile  )
  ! This subroutine checks for command-line arguments, gets the root name of the input files
  