anchor.diff:     use BEMT
      use AirfoilInfo
      use NWTC_LAPACK
  +   use AeroAcoustics
      
      
      implicit none
  
positive.code:    
     
  END SUBROUTINE Init_AFIparams
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine initializes the BEMT module from within AeroDyn.
  SUBROUTINE Init_BEMTmodule( InputFileData, u_AD, u, p, x, xd, z, OtherState, y, m, ErrStat, ErrMsg )
  
negative.code:          
     call BEMT_CopyInput( m%BEMT_u(1), m%BEMT_u(2), MESH_NEWCOPY, ErrStat2, ErrMsg2 )
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
  
           
        !............................................................................................
        ! Initialize the AeroAcoustics Module if the CompAA flag is set
        !............................................................................................
     if (p%CompAA) then
        call Init_AAmodule( InitInp, InputFileData, u, m%AA_u, p, x%AA, xd%AA, z%AA, OtherState%AA, m%AA_y, m%AA, ErrStat2, ErrMsg2 )
           call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
     end if   
        
        
        !............................................................................................
        ! Define outputs here
  