# | Line 118 | Line 118 | diraniso( /* compute source contribution */ | |
---|---|---|
118 | */ | |
119 | /* add source width if flat */ | |
120 | if (np->specfl & SP_FLAT) | |
121 | < | au2 = av2 = omega * (0.25/PI); |
121 | > | au2 = av2 = (1. - dstrsrc) * omega * (0.25/PI); |
122 | else | |
123 | au2 = av2 = 0.0; | |
124 | au2 += np->u_alpha*np->u_alpha; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |