program print_dipole
 implicit none
 call print_z_dipole_moment_only

end