anchor.diff:     Echo = .FALSE.
      UnEc = -1
   
  -   CALL GetNewUnit(UnIn,ErrStat,ErrMsg)
  +   CALL GetNewUnit(UnIn,ErrStat2,ErrMsg2)
  +      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
      CALL OpenFInpFile(UnIn,InputFile,ErrStat2,ErrMsg2)
  +      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
   
      !-------------------------- HEADER ---------------------------------------------
      CALL ReadCom(UnIn,InputFile,'File Header: Module Version (line 1)',ErrStat2,ErrMsg2,UnEc)
  
positive.code:    INTEGER(IntKi)               :: ErrStat2                     ! Temporary Error status
     LOGICAL                      :: Echo                         ! Determines if an echo file should be written
     CHARACTER(LEN(ErrMsg))       :: ErrMsg2                      ! Temporary Error message
     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
  
negative.code:    PUBLIC :: BD_End                            ! Ending routine (includes clean up)
     PUBLIC :: BD_UpdateStates                   ! Loose coupling routine for solving for constraint states, integrating
     PUBLIC :: BD_CalcOutput                     ! Routine for computing outputs
     PUBLIC :: BD_CalcConstrStateResidual        ! Tight coupling routine for returning the constraint state residual
     PUBLIC :: BD_UpdateDiscState                ! Tight coupling routine for updating discrete states
     PUBLIC :: BD_CrvMatrixR                ! Tight coupling routine for updating discrete states
     PUBLIC :: BD_CrvCompose                ! Tight coupling routine for updating discrete states
     PUBLIC :: BD_CrvExtractCrv                ! Tight coupling routine for updating discrete states
     PUBLIC :: BD_Tilde
     PUBLIC :: BD_Norm
  