mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-29 20:23:40 +02:00
commit
44d953b47c
@ -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
|
||||
|
@ -1,5 +1,5 @@
|
||||
program print_dipole
|
||||
implicit none
|
||||
call print_z_dipole_moment_only
|
||||
call print_dipole_moments
|
||||
|
||||
end
|
||||
|
Loading…
Reference in New Issue
Block a user