From 6b0162e22991717d21cab150b952b9fdb006d824 Mon Sep 17 00:00:00 2001 From: ydamour Date: Tue, 15 Mar 2022 16:25:21 +0100 Subject: [PATCH] dipole moments x,y,z --- src/determinants/dipole_moments.irp.f | 4 +++- src/tools/print_dipole.irp.f | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) 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