mirror of
https://github.com/QuantumPackage/qp2.git
synced 2025-04-25 17:54:44 +02:00
Added del orbs in reorder_casscf
This commit is contained in:
parent
d04232bb7b
commit
d20ac13c4f
@ -26,6 +26,11 @@ subroutine reorder_orbitals_for_casscf
|
|||||||
array(iorb) = 3 * mo_num + i
|
array(iorb) = 3 * mo_num + i
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
do i = 1, n_del_orb
|
||||||
|
iorb = list_del(i)
|
||||||
|
array(iorb) = 4 * mo_num + i
|
||||||
|
enddo
|
||||||
|
|
||||||
do i = 1, mo_num
|
do i = 1, mo_num
|
||||||
iorder(i) = i
|
iorder(i) = i
|
||||||
enddo
|
enddo
|
||||||
|
Loading…
x
Reference in New Issue
Block a user