anchor.diff:  
   					! If flag for TI is ON, compute Turbulent Inflow contribution
                       IF ( (p%IInflow .GT. 0)  )  THEN
  +                        IF (p%AweightFlag .eqv. .TRUE.) THEN
  +                            m%SPLti(III) = m%SPLti(III) + p%Aweight(III)                    ! A-weighting
  +                        ENDIF
  +                        
                           PTI = 10.0_ReKi**(m%SPLti(III)/10.0_ReKi)							! SPL to P Conversion for III Frequency
                           
   						PtotalInflow = PtotalInflow + PTI									! Sum of Current TI with TI Running Total
  
positive.code: 
  					! If flag for Tip is ON and the current blade node (J) is the last node (tip), compute Tip contribution
                      IF ( (p%ITIP .GT. 0) .AND. (J .EQ. p%NumBlNds) )  THEN					! NOTE: .EQ. 1 would again be more accurate
                          PTip = 10.0_ReKi**(m%SPLTIP(III)/10.0_ReKi)							! SPL to P Conversion for III Frequency
                          
  						PtotalTip = PtotalTip + PTip										! Sum of Current Tip with Tip Running Total
  
negative.code: 
  					! If flag for Blunt TE is ON, compute Blunt contribution
                      IF ( p%IBLUNT .GT. 0 )  THEN											! NOTE: .EQ. 1 would be more accurate since only options are 0 and 1
                          IF (p%AweightFlag .eqv. .TRUE.) THEN
                              m%SPLBLUNT(III) = m%SPLBLUNT(III) + p%Aweight(III)              ! A-weighting
                          ENDIF
                          
                          PBLNT = 10.0_ReKi**(m%SPLBLUNT(III)/10.0_ReKi)						! SPL to P Conversion for III Frequency
                          
  						PtotalBlunt = PtotalBlunt + PBLNT									! Sum of Current Blunt with Blunt Running Total
  