| Symbol | Description | Uses |
| Wd | 22 |
| File | Line number | Procedure | Code |
| ./pkg/opps/opps_calc.F | 757 | NLOPPS |
REAL Ad(km),Sd(km),Td(km),Wd(km),Dd(km),Md(km) |
| ./pkg/opps/opps_calc.F | 846 | NLOPPS |
Wd(k) = 0.03 |
| ./pkg/opps/opps_calc.F | 854 | NLOPPS |
wsqr=Wd(k)*Wd(k) |
| ./pkg/opps/opps_calc.F | 861 | NLOPPS |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
| ./pkg/opps/opps_calc.F | 880 | NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
| ./pkg/opps/opps_calc.F | 940 | NLOPPS |
Wd(k2+1)=sqrt(wsqr) |
| ./pkg/opps/opps_calc.F | 944 | NLOPPS |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
| ./pkg/opps/opps_calc.F | 970 | NLOPPS |
Md(k)=Wd(k)*Ad(k) |
| ./pkg/opps/opps_calc.F | 975 | NLOPPS |
write(0,*)"Md, Wd, and k are ",Md(k2),Wd(k2),k2 |