diff --git a/src/determinants/dipole_moments.irp.f b/src/determinants/dipole_moments.irp.f index 8a5f1a2d..c3675e7d 100644 --- a/src/determinants/dipole_moments.irp.f +++ b/src/determinants/dipole_moments.irp.f @@ -55,11 +55,13 @@ END_PROVIDER - subroutine print_z_dipole_moment_only + subroutine print_dipole_moments implicit none print*, '' print*, '' print*, '****************************************' + print*, 'x_dipole_moment = ',x_dipole_moment + print*, 'y_dipole_moment = ',y_dipole_moment print*, 'z_dipole_moment = ',z_dipole_moment print*, '****************************************' end diff --git a/src/tools/print_dipole.irp.f b/src/tools/print_dipole.irp.f index 8351308e..1d095af9 100644 --- a/src/tools/print_dipole.irp.f +++ b/src/tools/print_dipole.irp.f @@ -1,5 +1,5 @@ program print_dipole implicit none - call print_z_dipole_moment_only + call print_dipole_moments end