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:                
              ! NOTE: In this version, we are disabling the UA Cm values only we have performed further validation.  GJH 3/9/2016
                 ! Obtain the steady state Cm value from the static tables
              call ComputeSteadyAirfoilCoefs( y%AOA(i,j), y%Re(i,j),  AFInfo(p%AFindx(i,j)), &
                                           localCl, localCd, y%Cm(i,j), errStat2, errMsg2 ) 
                 call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//trim(NodeTxt))
                 if (errStat >= AbortErrLev) return 
  
           else 
                 ! TODO: When we start using Re, should we use the uninduced Re since we used uninduced Re to solve for the inductions!? Probably this won't change, instead create a Re loop up above.
  
negative.code:    integer(IntKi)                                :: errStat2, errStat3      ! temporary Error status of the operation
     character(*), parameter                       :: RoutineName = 'BEMT_UnCoupledSolve'
  
     real(ReKi) :: f1, AOA
     real(ReKi) :: phi_lower, phi_upper, epsilon2         ! wake skew angle (rad)
     logical    :: isEpsilon
     real(ReKi) :: Re, Vrel
     
     ErrStat = ErrID_None
     ErrMsg  = ""
  