anchor.diff:     integer(IntKi)                 :: k
   #endif
   
  -   logical, parameter             :: UpdateValues  = .TRUE.                          ! determines if the OtherState values need to be updated
      logical                        :: IsValidSolution !< this is set to false if k<=1 in propeller brake region or k<-1 in momentum region, indicating an invalid solution
            ! Initialize some output values
      errStat = ErrID_None
  
positive.code: end subroutine BEMT_AllocOutput
  
  
  
  subroutine BEMT_MapOutputs(p, OtherState, y, errStat, errMsg)
  
     type(BEMT_ParameterType),       intent(in   )  :: p           ! Parameters
     type(BEMT_OtherStateType),      intent(in   )  :: OtherState  ! other states
     type(BEMT_OutputType),          intent(inout)  :: y           ! system outputs 
     integer(IntKi),                 intent(  out)  :: errStat     ! Error status of the operation
     character(*),                   intent(  out)  :: errMsg      ! Error message if ErrStat /= ErrID_None
     
     ErrStat = ErrID_None
     ErrMsg = ""
     
  end subroutine BEMT_MapOutputs
  
  
  !----------------------------------------------------------------------------------------------------------------------------------
  subroutine BEMT_Init( InitInp, u, p, x, xd, z, OtherState, AFInfo, y, misc, Interval, InitOut, ErrStat, ErrMsg )
  ! This routine is called at the start of the simulation to perform initialization steps.
  
negative.code:             WRITE (69, '(F20.6,'//trim(num2lstr(size(m%y_UA%WriteOutput)))//'(:,1x,ES19.5E3))') t, ( m%y_UA%WriteOutput(k), k=1,size(m%y_UA%WriteOutput))
    ! end if              
  #endif 
     
                 
     return
  