anchor.diff:  
         IF ( ErrID /= ErrID_None ) THEN
   
  -         CALL WrScr( ' ED_HD_InputOutputSolve: '//TRIM(Msg) )
  +         CALL WrScr( RoutineName//':'//TRIM(Msg) )
            ErrStat = MAX(ErrStat, ErrID)
   
            !.........................................................................................................................
  
positive.code:    RETURN
  END FUNCTION GetVersion
  !----------------------------------------------------------------------------------------------------------------------------------
  SUBROUTINE FAST_End( p_FAST, y_FAST, ErrStat, ErrMsg )
  ! This subroutine is called at program termination. It writes any additional output files,
  ! deallocates variables and closes files.
  !----------------------------------------------------------------------------------------------------
  
negative.code:    ErrMsg  = ""
              
        
     CALL FAST_EndOutput( p_FAST, y_FAST, ErrStat2, ErrMsg2 )
        CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName)
  
     IF ( p_FAST%ModuleInitialized(Module_ED) ) THEN
  