quantum_package/plugins/Properties/print_hcc.irp.f

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(*,'(I3,X,1000(F16.10,X))')i,one_body_dm_mo_beta(i,i,1)
 enddo
end
FOBO-SCF executable works 2016-03-11 23:27:39 +01:00			`program print_hcc_main`
added print_hcc and OVB plugin 2016-02-17 10:52:57 +01:00			`implicit none`
			`read_wf = .True.`
			`touch read_wf`
Revert 4idx 2017-12-08 16:17:54 +01:00			`! call print_hcc`
			`call routine`
added print_hcc and OVB plugin 2016-02-17 10:52:57 +01:00			`end`
Revert 4idx 2017-12-08 16:17:54 +01:00

			`subroutine routine`
			`implicit none`
			`integer :: i`
			`do i = 1, mo_tot_num`
fixed bug in FOBOSCF 2019-06-28 00:16:47 +02:00			`write(*,'(I3,X,1000(F16.10,X))')i,one_body_dm_mo_beta(i,i,1)`
Revert 4idx 2017-12-08 16:17:54 +01:00			`enddo`
			`end`