anchor.diff:                            ErrStat2, ErrMsg2) 
             CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
   
  -       ui(:) = 0.0D0
  +       ui(:) = 0.0_BDKi
          DO j=1,dof_total-6
              ui(j+6) = RHS_LU(j)
          ENDDO
  
positive.code:    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)
     INTEGER(IntKi)                       :: i
     INTEGER(IntKi)                       :: ErrStat2                     ! Temporary Error status
     CHARACTER(ErrMsgLen)                 :: ErrMsg2                      ! Temporary Error message
  
negative.code:              return
            end if
         temp_ratio(:,:) = 0.0_BDKi
         DO i=1,p%ngp
             temp_GL(i) = (p%GL(i) + 1.0_BDKi)/2.0_BDKi
         ENDDO
  