anchor.diff:                     , ErrStat               &
                      , ErrMsg )
   
  +   CALL Dvr_InitializeOutputFile(DvrOut,BD_InitOutput,RootName,ErrStat,ErrMsg)
  +
      BD_InputTimes(1) = t_initial
      BD_InputTimes(2) = t_initial 
      BD_OutputTimes(1) = t_initial
  
positive.code:       return
     end subroutine cleanup         
  END SUBROUTINE BD_ReadDvrFile
  
negative.code:    ! Initialization of glue-code time-step variables
     ! -------------------------------------------------------------------------
     CALL GET_COMMAND_ARGUMENT(1,DvrInputFile)
     CALL GetRoot(DvrInputFile,RootName)
     CALL BD_ReadDvrFile(DvrInputFile,t_initial,t_final,dt_global,BD_InitInput,&
                            ErrStat,ErrMsg)
     BD_InitInput%RootName  = TRIM(BD_Initinput%InputFile)
  