mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-23 04:43:50 +01:00
Added swap_mos program
This commit is contained in:
parent
f0fc7dd39f
commit
4dda44e324
14
src/MO_Basis/swap_mos.irp.f
Normal file
14
src/MO_Basis/swap_mos.irp.f
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
program swap_mos
|
||||||
|
implicit none
|
||||||
|
integer :: i,j, i1, i2
|
||||||
|
double precision :: x
|
||||||
|
print *, 'MOs to swap?'
|
||||||
|
read(*,*) i1, i2
|
||||||
|
do i=1,ao_num_align
|
||||||
|
x = mo_coef(i,i1)
|
||||||
|
mo_coef(i,i1) = mo_coef(i,i2)
|
||||||
|
mo_coef(i,i2) = x
|
||||||
|
enddo
|
||||||
|
call save_mos
|
||||||
|
|
||||||
|
end
|
Loading…
Reference in New Issue
Block a user