anchor.diff:     ! 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)
  
positive.code:                    , ErrStat               &
                     , ErrMsg )
  
     BD_InputTimes(1) = t_initial
     BD_InputTimes(2) = t_initial 
     BD_OutputTimes(1) = t_initial
  
negative.code:    INTEGER(IntKi)                     :: DvrOut 
  
     CHARACTER(256)    :: DvrInputFile
     CHARACTER(256)    :: RootName
  
  
     ! local variables
  