anchor.diff:        
      integer(IntKi)                                    :: i,j
      type(UA_InputType)                                :: u_UA
  -   real(ReKi)                                        :: chi, Rtip, AOA, Re, Vrel, axInduction, tanInduction, fzero, phitemp
  +   real(ReKi)                                        :: chi, Rtip, Re, Vrel, axInduction, tanInduction, fzero, phitemp
         
      character(ErrMsgLen)                           :: errMsg2     ! temporary Error message if ErrStat /= ErrID_None
      integer(IntKi)                                 :: errStat2    ! temporary Error status of the operation
  
positive.code:       !............................................................................................
        ! Define parameters here
        !............................................................................................
     p%DT = interval    
     call BEMT_SetParameters( InitInp, p, errStat, errMsg )
     if (errStat >= AbortErrLev) return
  
        !............................................................................................
        ! Define states here
        !............................................................................................
  
negative.code: 
        ! Local variables
     character(*), parameter                       :: RoutineName = 'BEMT_InitContraintStates'
     integer(IntKi)                                :: errStat2                ! temporary Error status of the operation
     
        ! Initialize variables for this routine
  