anchor.diff:     REAL(BDKi)                  :: sm3
      REAL(BDKi)                  :: em
      REAL(BDKi)                  :: temp
  -   REAL(BDKi)                  :: Rr(3,3)  ! (possibly) corrected rotation matrix
  +   REAL(BDKi)                  :: Rr(3,3)
      INTEGER                     :: i        ! case indicator
   
      INTEGER(IntKi)              :: ErrStat2 ! Temporary Error status
  
positive.code:    ! Initialize ErrStat
     ErrStat = ErrID_None
     ErrMsg  = ""
  
     !> Starting with equation (14) from AIAA paper, "Geometric Nonlinear Analysis of Composite Beams Using
     !! Wiener-Milenkovic Parameters", Wang, et. al. \n
  
negative.code:    REAL(BDKi)                  :: S(3)         !mjs--these three are the SVD matrices (S is actually a vector)
     REAL(BDKi)                  :: U(3,3)
     REAL(BDKi)                  :: VT(3,3)
     LOGICAL                     :: ortho        !mjs--logical value indicating whether R is orthogonal
     INTEGER                     :: i            ! loop variable/case indicator
  
  