anchor.diff:                             errStat2, errMsg2)
         call SetErrStat( errStat2, errMsg2, errStat, errMsg, RoutineName ) 
         if (errStat >= AbortErrLev) return
  -
  +   
         if ( abs(f1) < aTol ) then
            phiStar =  phiIn
            return
  
positive.code:    integer(IntKi)                                :: errStat2, errStat3      ! temporary Error status of the operation
     character(*), parameter                       :: RoutineName = 'BEMT_UnCoupledSolve'
  
     real(ReKi) :: f1
     real(ReKi) :: phi_lower, phi_upper, epsilon2         ! wake skew angle (rad)
     logical    :: isEpsilon
     real(ReKi) :: AOA, Re, Vrel
     
     ErrStat = ErrID_None
     ErrMsg  = ""
  
negative.code:    enddo          ! J - All blades
  
  #ifdef UA_OUTS
    ! if ( mod(REAL(t,ReKi),.1) < p%dt) then
              WRITE (69, '(F9.4,'//trim(num2lstr(p%numBladeNodes*p%numBlades*p%UA%NumOuts))//'(:,A,ES12.3E3))') t, (' ', m%y_UA%WriteOutput(k), k=1,p%UA%NumOuts*p%numBladeNodes*p%numBlades)
    ! end if
       !WRITE (69, '((F8.3,'//TRIM(num2lstr(13*p%numBladeNodes*p%numBlades))//'(:,A,ES10.3E2))')
              !Frmt = '(F8.3,'//TRIM(Int2LStr(p%WAMIT%NumOuts+p%Morison%NumOuts))//'(:,A,'//TRIM( p%OutFmt )//'))'
     !Frmt = '('ES10.3E2,'//TRIM(13*p%numBladeNodes*p%numBlades)//'(:,A,'ES10.3E2'))'
     
             
  #endif 
     
     !...............................................................................................................................
  