| # | 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 (old) |
| > | Changed lines (new) |