anchor.diff:  
   
         ! Local variables
  -   character(ErrMsgLen)                          :: errMsg2                 ! temporary Error message if ErrStat /= ErrID_None
      integer(IntKi)                                :: errStat2                ! temporary Error status of the operation
      character(*), parameter                       :: RoutineName = 'BEMT_AllocInput'
   
  
positive.code:       do j = 1,p%numBlades
           do i = 1,p%numBladeNodes ! Loop over blades and nodes
        
              ! u_UA values were not set in UA_Init and we need them only because we're trying to determine if C_nalpha is 0 so we can shut off UA.
  
              M = 0.1
              !M           = u_UA%U / p%UA%a_s
              !call UA_CheckMachNumber(M, misc%UA%FirstWarn_M, ErrStat2, ErrMsg2 )
              
              call AFI_GetAirfoilParams( AFInfo(p%AFindx(i,j)), M, u_UA%Re, u_UA%alpha, alpha0, alpha1, alpha2, eta_e, C_nalpha, C_nalpha_circ, &
                                      T_f0, T_V0, T_p, T_VL, St_sh, b1, b2, b5, A1, A2, A5, S1, S2, S3, S4, Cn1, Cn2, Cd0, Cm0, k0, k1, k2, k3, k1_hat, x_cp_bar, errMsg2, errStat2 )           
              ! AFI_GetAirfoilParams does not set errors
              
              if ( EqualRealNos(C_nalpha, 0.0_ReKi) .and. OtherState%UA_Flag(i,j) ) then
  
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 
     
     !...............................................................................................................................
  