mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-30 00:44:28 +02:00
15 lines
257 B
FortranFixed
15 lines
257 B
FortranFixed
|
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
|