anchor.diff:                    if (p%DBEMT_Mod == DBEMT_none ) then
                        
                        call calculate_Inductions_from_BEMT(i,j,p,z%phi(i,j),u1,OtherState,AFInfo,m%axInduction(i,j), m%tanInduction(i,j), ErrStat2,ErrMsg2)
  -                        call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//trim(NodeTxt))
  -                        if (errStat >= AbortErrLev) return
  +                        if (ErrStat2 /= ErrID_None) then
  +                           call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//trim(NodeText(i,j)))
  +                           if (errStat >= AbortErrLev) return
  +                        end if
                        
                     else ! use DBEMT
                     
  
positive.code:    integer(IntKi)                                 :: errStat2    ! temporary Error status of the operation
     character(*), parameter                        :: RoutineName = 'BEMT_CalcOutput'
     
     character(20)                                  :: NodeTxt
     
     
  #ifdef UA_OUTS
     integer(IntKi)                 :: k
  
negative.code: 
  
  
  function NodeText(i,j)
     integer(IntKi), intent(in) :: i ! node number
     integer(IntKi), intent(in) :: j ! blade number
     character(25)              :: NodeText
     
     NodeText = '(node '//trim(num2lstr(i))//', blade '//trim(num2lstr(j))//')'
  end function NodeText
  
  end module BEMT
      
  