anchor.diff:              !--------Read in Boundary Layer Data-------------------------!
               IF (p%X_BLMethod .EQ. 2) THEN
                   call BL_Param_Interp(p,m,Unoise,AlphaNoise,p%BlChord(J,I),p%BlAFID(J,I), errStat2, errMsg2)
  +                CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
                   temp_dispthick(J,I) = m%d99Var(1)
                   m%d99Var            = m%d99Var*p%BlChord(J,I)
                   m%dstarVar          = m%dstarVar*p%BlChord(J,I)
  
positive.code:           enddo
        endif    
    enddo 
    if (re_flag .eqv. .FALSE.) then  
      call SetErrStat( ErrID_Fatal, 'Warning AeroAcoustics Module - the Reynolds number is not in the range provided by the user. Code stopping.', ErrSTat, ErrMsg, RoutineName )
    stop
    endif 
  END SUBROUTINE BL_Param_Interp
  
negative.code:     REAL(kind=4),DIMENSION(p%total_sample)                     :: spect_signal
      REAL(kind=4),DIMENSION(p%total_sample/2)                   :: spectra
      real(ReKi),ALLOCATABLE     ::  fft_freq(:)  
      integer(intKi)                                             :: ErrStat2
      character(ErrMsgLen)                                       :: ErrMsg2
      character(*), parameter                                    :: RoutineName = 'CalcAeroAcousticsOutput'
      logical :: exist
  