anchor.diff:     InitInData_ED%ADInputFile   = p_FAST%ADFile
      InitInData_ED%RootName      = p_FAST%OutFileRoot
      CALL ED_Init( InitInData_ED, Input_ED(1), p_ED, x_ED, xd_ED, z_ED, OtherSt_ED, y_ED, dt_global, InitOutData_ED, ErrStat, ErrMsg )
  -   CALL CheckError( ErrStat, 'Error in ED_Init:'//ErrMsg )
  +   CALL CheckError( ErrStat, 'Error in ED_Init: '//ErrMsg )
   
      IF ( .NOT. EqualRealNos( dt_global, p_FAST%DT ) ) &
           CALL CheckError(ErrID_Fatal, "The value of DT in ElastoDyn must be the same as the value of DT in FAST.")
  
positive.code:             !bjj FIX THIS algorithm!!! this assumes dt_out is an integer multiple of dt; we will probably have to do some interpolation to get these outputs at the times we want them....
           OutTime = NINT( ZTime / p_FAST%DT_out ) * p_FAST%DT_out      
           IF ( EqualRealNos( ZTime, OutTime ) )  THEN 
              
              IF ( p_FAST%CompAero ) IfW_WriteOutput = AD_GetUndisturbedWind( REAL(ZTime, ReKi), (/0.0_ReKi, 0.0_ReKi, p_ED%FASTHH /), ErrStat )
                 
                 ! Generate glue-code output file
              CALL WrOutputLine( ZTime, p_FAST, y_FAST, EDOutput=y_ED%WriteOutput, SrvDOutput=y_SrvD%WriteOutput, IfWOutput=IfW_WriteOutput, ErrStat=ErrStat, ErrMsg=ErrMsg )
              CALL CheckError( ErrStat, ErrMsg )
  
negative.code:    ! Set up output for glue code (must be done after all modules are initialized so we have their WriteOutput information)
  
     CALL FAST_InitOutput( p_FAST, y_FAST, InitOutData_ED, InitOutData_SrvD, AD_Prog, ErrStat, ErrMsg )
     CALL CheckError( ErrStat, 'Error in FAST_InitOutput: '//ErrMsg )
  
     
  
  