anchor.diff:  
   					! 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
  
positive.code: 		DO K = 1,p%NrObsLoc
  			DO III=1,size(p%FreqList)
  				IF (y%PtotalFreq(K,III) .EQ. 0.)	    y%PtotalFreq(K,III) = 1
  				! If A-weighting flag is ON, combine PtotalFreq with Aweight
  				IF (p%AweightFlag .eqv. .TRUE.) THEN
  					y%PtotalFreq(K,III)    = 10.*LOG10(y%PtotalFreq(K,III))+p%Aweight(III)	! P to SPL conversion
  				ELSE
  					y%PtotalFreq(K,III)    = 10.*LOG10(y%PtotalFreq(K,III))					! P to SPL conversion
  				ENDIF
  			ENDDO
  		ENDDO
      ENDIF
  
negative.code: 	DO K = 1,p%NrObsLoc
  		DO III = 1,size(p%FreqList)
  			DO oi = 1,7
  				IF (y%SumSpecNoiseSep(oi,K,III)  .EQ. 0.) y%SumSpecNoiseSep(oi,K,III) = 1 
  			ENDDO
  		ENDDO
  	ENDDO
  