anchor.diff:              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 
  -   
  -   !...............................................................................................................................
  -   ! Place the selected output channels into the WriteOutput(:) array with the proper sign:
  -   !...............................................................................................................................
  -
  -   call BEMT_MapOutputs(p, OtherState, y, errStat2, errMsg2)
  -      call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)
  -      if (errStat >= AbortErrLev) return 
  -   
  -   !DO I = 1,p%NumOuts  ! Loop through all selected output channels
  -   !
  -   !   y%WriteOutput(I) = p%OutParam(I)%SignM * OtherState%AllOuts( p%OutParam(I)%Indx )
  -   !
  -   !ENDDO             ! I - All selected output channels
  -
  -   
  -   !...............................................................................................................................
  -   ! Outputs required for AeroDyn
  -   !...............................................................................................................................
  -  
  -   !...........
  -   ! Blade elements:
  -   !...........
      
                  
      return
  
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: !----------------------------------------------------------------------------------------------------------------------------------
  subroutine BEMT_CalcOutput( t, u, p, x, xd, z, OtherState, AFInfo, y, m, errStat, errMsg )
  ! Routine for computing outputs, used in both loose and tight coupling.
  !..................................................................................................................................
  
     
  