10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-09-27 12:00:56 +02:00
quantum_package/plugins/eginer/Properties/print_hcc.irp.f
2018-10-19 11:32:58 +02:00

18 lines
247 B
Fortran

program print_hcc_main
implicit none
read_wf = .True.
touch read_wf
! call print_hcc
call routine
end
subroutine routine
implicit none
integer :: i
do i = 1, mo_tot_num
write(*,'(1000(F16.10,X))')one_body_dm_mo_beta(i,:,1)
enddo
end