wann_dipole2.f 3.7 KB