anchor.diff:              CALL CheckIOS ( IOS, InputFile, 'NRMax', NumType, ErrStat2, ErrMsg2 )
               CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
         END IF
  +      
      Line = ""
      CALL ReadVar( UnIn, InputFile, Line, "stop_tol", "Tolerance for stopping criterion", ErrStat2,ErrMsg2,UnEc)
         CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  +      if (ErrStat >= AbortErrLev) then
  +         call cleanup()
  +         return
  +      end if
         CALL Conv2UC( Line )
         IF ( INDEX(Line, "DEFAULT" ) .EQ. 1) THEN
             InputFileData%stop_tol = 1.0D-05
  
positive.code:                                        Stif0,Mass0,gravity,u,&
                                         damp_flag,beta,&
                                         elem_total,node_elem,dof_node,ngp,RHS,Reaction)
  
     Force(:) = 0.0D0
     Force(:) = RHS(:)
     ReactionForce(:) = 0.0D0
     ReactionForce(:) = -Reaction(:)
  
     END SUBROUTINE BD_DynamicSolutionForce
  
negative.code:    INTEGER(IntKi)               :: UnIn                         ! Unit number for reading file
     INTEGER(IntKi)               :: ErrStat2                     ! Temporary Error status
     LOGICAL                      :: Echo                         ! Determines if an echo file should be written
     INTEGER(IntKi)               :: IOS                          ! Temporary Error status
     CHARACTER(ErrMsgLen)         :: 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(200)               :: Line                         ! Temporary storage of a line from the input
  
     INTEGER(IntKi)               :: i
     INTEGER(IntKi)               :: j
     INTEGER(IntKi)               :: temp_int
     REAL(ReKi)                   :: tmpReAry(4)
  
     ! Initialize some variables:
     ErrStat = ErrID_None
  