qp2/src/tools/print_dipole.irp.f

8 lines
101 B
Fortran

program print_dipole
implicit none
read_wf = .True.
TOUCH read_wf
call print_dipole_moments
end