mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-01 18:25:17 +02:00
14 lines
202 B
Fortran
14 lines
202 B
Fortran
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
|