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_SetParameters'
      integer(IntKi)                                :: i, j
  
positive.code:    enddo          ! J - All blades
  
  #ifdef UA_OUTS
  
              WRITE (69, '(F9.4,'//trim(num2lstr(p%numBladeNodes*p%numBlades*p%UA%NumOuts))//'(:,A,ES10.3E2))') t, (' ', OtherState%y_UA%WriteOutput(k), k=1,p%UA%NumOuts*p%numBladeNodes*p%numBlades)
              !WRITE (69, '((F8.3,'//TRIM(num2lstr(13*p%numBladeNodes*p%numBlades))//'(:,A,ES10.3E2))')
              !Frmt = '(F8.3,'//TRIM(Int2LStr(p%WAMIT%NumOuts+p%Morison%NumOuts))//'(:,A,'//TRIM( p%OutFmt )//'))'
     !Frmt = '('ES10.3E2,'//TRIM(13*p%numBladeNodes*p%numBlades)//'(:,A,'ES10.3E2'))'
     
     !WRITE(p%UnOutFile,Frmt) Time, ( p%Delim, y%WAMIT%WriteOutput(I), I=1,p%WAMIT%NumOuts), ( p%Delim, y%Morison%WriteOutput(I), I=1,p%Morison%NumOuts)
              
  #endif 
     
     !...............................................................................................................................
  
negative.code:    real(ReKi)                                             :: alpha0              ! zero lift angle of attack (radians)
     real(ReKi)                                             :: eta_e
     real(ReKi)                                             :: St_sh
     real(ReKi)                                             :: Re
     real(ReKi)                                             :: alpha
  
     real(ReKi)                                     :: M, alpha1, alpha2, C_nalpha, C_nalpha_circ, T_f0, T_V0, T_p, b1,b2,b5,A1,A2,A5,S1,S2,S3,S4,k1_hat
     real(ReKi)                :: filtCutOff                    ! airfoil parameter for the low-pass cut-off frequency for pitching rate and accelerations (Hz)
     character(64)                                  :: chanPrefix
        ! Initialize variables for this routine
     errStat = ErrID_None
  