anchor.diff:     INTEGER(IntKi)                               :: UnEcho
      INTEGER(IntKi)                               :: ErrStat2
      CHARACTER(LEN(ErrMsg))                       :: ErrMsg2
  +   character(*), parameter                      :: RoutineName = 'BD_ReadInput'
      CHARACTER(1024)                              :: BldFile ! File that contains the blade information (specified in the primary input file)
   
      INTEGER(IntKi)     :: i
  
positive.code:    Echo = .FALSE.
     UnEc = -1
  
     CALL GetNewUnit(UnIn,ErrStat,ErrMsg)
     CALL OpenFInpFile(UnIn,InputFile,ErrStat2,ErrMsg2)
  
     !-------------------------- HEADER ---------------------------------------------
     CALL ReadCom(UnIn,InputFile,'File Header: Module Version (line 1)',ErrStat2,ErrMsg2,UnEc)
  
negative.code: 
     CALL DispNVD( BeamDyn_Ver )
  
     CALL BD_ReadInput(InitInp%InputFile,InputFileData,InitInp%RootName,ErrStat2,ErrMsg2)
     p%analysis_type  = InputFileData%analysis_type
     p%time_flag  = InputFileData%time_integrator
     p%damp_flag  = InputFileData%InpBl%damp_flag
  