qp2/src/tools/print_dipole.irp.f

mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-02 02:35:18 +02:00
program print_dipole
 implicit none
 read_wf = .True.
 TOUCH read_wf
 call print_dipole_moments

end
minor changes 2021-03-15 17:40:37 +01:00			`program print_dipole`
			`implicit none`
output print dipole for n_states >= 1 + read_wf true 2022-03-16 11:42:26 +01:00			`read_wf = .True.`
			`TOUCH read_wf`
dipole moments x,y,z 2022-03-15 16:25:21 +01:00			`call print_dipole_moments`
minor changes 2021-03-15 17:40:37 +01:00
			`end`