9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-01 10:15:18 +02:00

Merge pull request #190 from Ydrnan/qp2_dev

dipole moments x,y,z
This commit is contained in:
Anthony Scemama 2022-03-16 10:26:33 +01:00 committed by GitHub
commit 44d953b47c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 2 deletions

View File

@ -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

View File

@ -1,5 +1,5 @@
program print_dipole
implicit none
call print_z_dipole_moment_only
call print_dipole_moments
end