anchor.diff:  !!	   ENDIF
   !	   SPLti(I) = SPLhigh + 10.*LOG10(LFC/(1+LFC))
   !      ENDDO
  -
   !!Wei Jun Zhu et al - !Modeling of Aerodynamically Generated Noise From Wind Turbines 2005 paper
     	   Beta2 = 1.d0-Mach**2; !  corresponding line:  Bsq = 1.d0 - Ma**2;
          DO I=1,size(p%FreqList)
  
positive.code:    
     ! Read the primary AeroAcoustics input file in AeroAcoustics_IO
     call ReadInputFiles( InitInp%InputFile, InputFileData, interval, p%RootName, p%NumBlades, UnEcho, ErrStat2, ErrMsg2 )   
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
        if (ErrStat >= AbortErrLev) then
           call Cleanup()
           return
        end if
        
     ! Validate the inputs
     call ValidateInputData( InputFileData, p%NumBlades, ErrStat2, ErrMsg2 )
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
        if (ErrStat >= AbortErrLev) then
           call Cleanup()
           return
        end if
      
     ! Validate Initialization Input data ( not found in the AeroAcoustics input file )
     if (InitInp%AirDens <= 0.0)  call SetErrStat ( ErrID_Fatal, 'The air density (AirDens) must be greater than zero.', ErrStat, ErrMsg, RoutineName )
     if (InitInp%KinVisc <= 0.0)  call SetErrStat ( ErrID_Fatal, 'The kinesmatic viscosity (KinVisc) must be greater than zero.', ErrStat, ErrMsg, RoutineName )
     if (InitInp%SpdSound <= 0.0) call SetErrStat ( ErrID_Fatal, 'The speed of sound (SpdSound) must be greater than zero.', ErrStat, ErrMsg, RoutineName )  
        if (ErrStat >= AbortErrLev) then
           call Cleanup()
           return
        end if
  
     ! Define parameters
     call SetParameters( InitInp, InputFileData, p, ErrStat2, ErrMsg2 )
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
        if (ErrStat >= AbortErrLev) then
           call Cleanup()
           return
        end if
  
     ! Define and initialize inputs 
     call Init_u( u, p, InputFileData, InitInp, errStat2, errMsg2 ) 
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
        if (ErrStat >= AbortErrLev) then
           call Cleanup()
           return
        end if
  
     ! Define outputs here
     call Init_y(y, u, p, errStat2, errMsg2) ! do this after input meshes have been initialized
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
  
     ! Initialize states and misc vars
     call Init_MiscVars(m, p, u, y, errStat2, errMsg2)
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
     call Init_States(xd, p,  errStat2, errMsg2)
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
  
     ! Define initialization output here
     call AA_SetInitOut(p, InputFileData, InitOut, errStat2, errMsg2)
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
     call AA_InitializeOutputFile(p, InputFileData,InitOut,errStat2, errMsg2)
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
     call Cleanup() 
        
  contains
  
     subroutine Cleanup()
        CALL AA_DestroyInputFile( InputFileData, ErrStat2, ErrMsg2 )
  
negative.code: !	m%CfVar(1)    = Cf(1)
  !	m%CfVar(2)    = Cf(2)   
  !
  !END SUBROUTINE XFOIL_BL_SINGLE
  !			
  !
  !!==================================================================================================================================!
  !!================================================= XFOIL BL PRETABULATE ===========================================================!
  !!==================================================================================================================================!
  ! SUBROUTINE RUN_XFOIL_BL(p)
  !      USE XfoilAirfoilParams
  !      USE XfoilBLParams
  !  TYPE(AA_ParameterType),                         INTENT(INOUT)  :: p                ! Parameters
  !!   INTEGER(IntKi),              		  INTENT(  OUT)  :: ErrStat                !< Error status of the operation
  !!   CHARACTER(*),               			  INTENT(  OUT)  :: ErrMsg                 !< Error message if ErrStat /= ErrID_None
  