anchor.diff:     Eref = 0.0D0
   
      DO i=1,niter
  -!WRITE(*,*) "N-R Iteration #", i
          StifK = 0.0D0
          RHS = 0.0D0
          MassM = 0.0D0
  
positive.code:    END SUBROUTINE BD_TiSchmComputeCoefficients
  
     SUBROUTINE BD_BoundaryGA2(x,p,u,t,OtherState,ErrStat,ErrMsg)
  
     TYPE(BD_InputType),           INTENT(IN   )  :: u           ! Inputs at t
     REAL(DbKi),                   INTENT(IN   )  :: t           ! Inputs at t
  
negative.code:    REAL(ReKi)                       :: feqv(dof_total-6)
     REAL(ReKi)                       :: Eref
     REAL(ReKi)                       :: Enorm
     REAL(ReKi)                       :: d
     INTEGER(IntKi)                   :: indx(dof_total-6)
     INTEGER(IntKi)                   :: i
  