anchor.diff:     INTEGER(IntKi)               :: ErrStat2                     ! Temporary Error status
      LOGICAL                      :: Echo                         ! Determines if an echo file should be written
      CHARACTER(LEN(ErrMsg))       :: ErrMsg2                      ! Temporary Error message
  +   character(*), parameter      :: RoutineName = 'BD_ReadPrimaryFile'
      CHARACTER(1024)              :: PriPath                      ! Path name of the primary file
      CHARACTER(1024)              :: FTitle              ! "File Title": the 2nd line of the input file, which contains a description of its contents
      CHARACTER(1024)              :: BldFile
  
positive.code:    INTEGER(IntKi)                               :: UnEcho
     INTEGER(IntKi)                               :: ErrStat2
     CHARACTER(LEN(ErrMsg))                       :: ErrMsg2
     CHARACTER(1024)                              :: BldFile ! File that contains the blade information (specified in the primary input file)
  
     INTEGER(IntKi)     :: i
  
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
  