wann_dipole3.f 5.65 KB