anchor.diff:     INTEGER(IntKi)                     :: DvrOut 
   
      CHARACTER(256)    :: DvrInputFile
  +   CHARACTER(256)    :: RootName
   
   
      ! local variables
  
positive.code:      CALL BD_CalcOutput( t_global, BD_Input(2), BD_Parameter, BD_ContinuousState, BD_DiscreteState, &
                               BD_ConstraintState, &
                               BD_OtherState,  BD_Output(2), ErrStat, ErrMsg)
  !     IF(BD_Parameter%analysis_type .EQ. 2 .AND. n_t_global .EQ. 0) THEN
  !         CALL BD_InitAcc( t_global, BD_Input(1), BD_Parameter, &
  !               BD_ContinuousState,BD_OtherState,ErrStat,ErrMsg)
  !!      WRITE(*,*) 'Initial Acc'
  !!      WRITE(*,*) BD_OtherState%acc(:)
  !!      WRITE(*,*) 'Initial Xcc'
  !!      WRITE(*,*) BD_OtherState%xcc(:)
  !     ENDIF
  WRITE(*,*) 'TEST'
       IF(BD_Parameter%analysis_type .EQ. 1 .AND. n_t_global .EQ. 1) EXIT 
  
       CALL BD_UpdateStates( t_global, n_t_global, BD_Input, BD_InputTimes, BD_Parameter, &
  
negative.code:    ! Initialize some variables:
     ErrStat = ErrID_None
     ErrMsg  = ""
     UnEc = -1
     
     CALL GetNewUnit(UnIn,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  