anchor.diff:     INTEGER(IntKi),         INTENT(  OUT):: ErrStat       ! Error status of the operation
      CHARACTER(*),           INTENT(  OUT):: ErrMsg        ! Error message if ErrStat /= ErrID_None
                                                              ! 1: Blade to Global
  -   REAL(ReKi)                           :: RotTen(3,3)
  -   REAL(ReKi)                           :: temp_v(3)
  -   REAL(ReKi)                           :: temp_v2(3)
  +   REAL(BDKi)                           :: RotTen(3,3)
  +   REAL(BDKi)                           :: temp_v(3)
  +   REAL(BDKi)                           :: temp_v2(3)
      INTEGER(IntKi)                       :: i
      INTEGER(IntKi)                       :: ErrStat2                     ! Temporary Error status
      CHARACTER(ErrMsgLen)                 :: ErrMsg2                      ! Temporary Error message
  
positive.code:    ErrStat = ErrID_None
     ErrMsg  = ""
  
     Rr = 0.0D0
     DO i=1,3
         Rr(i,1) = e1(i)
     ENDDO
  
     e2 = 0.0D0
     temp = phi*D2R_D  ! convert to radians
     temp2 = ((e1(2)*COS(temp) + e1(3)*SIN(temp))/e1(1))
     Delta = SQRT(1.0D0 + temp2*temp2)
     e2(1) = -(e1(2)*COS(temp)+e1(3)*SIN(temp))/e1(1)
     e2(2) = COS(temp)
     e2(3) = SIN(temp)
  
negative.code:            i=i+1
             call WrScr( "Warning: Load may be too large, BeamDyn will attempt to solve with additional steps.")
             call WrScr( "  Load_Step="//trim(num2lstr(i)) )
             x%q = 0.0_BDKi
         ENDIF
     ENDDO
     
  