qp2/src/two_body_rdm/test_2_rdm.irp.f

program test_2_rdm
 implicit none
 read_wf = .True.
 touch read_wf 
! call routine_active_only
! call routine_full_mos
 call routine
end

subroutine routine
 implicit none 
 provide act_2_rdm_ab_mo
end
only active and full 2 rdms are ok 2020-03-19 15:57:49 +01:00			`program test_2_rdm`
			`implicit none`
			`read_wf = .True.`
			`touch read_wf`
parallel sections for dft_utils_in_r 2020-04-05 13:58:17 +02:00			`! call routine_active_only`
			`! call routine_full_mos`
			`call routine`
only active and full 2 rdms are ok 2020-03-19 15:57:49 +01:00			`end`

parallel sections for dft_utils_in_r 2020-04-05 13:58:17 +02:00			`subroutine routine`
			`implicit none`
			`provide act_2_rdm_ab_mo`
			`end`