mirror of
https://github.com/LCPQ/quantum_package
synced 2025-01-05 11:00:10 +01:00
mend
This commit is contained in:
parent
59cb6c4402
commit
04bb08be96
8
src/MO_Basis/rotate_mos.irp.f
Normal file
8
src/MO_Basis/rotate_mos.irp.f
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
program rotate
|
||||||
|
implicit none
|
||||||
|
integer :: iorb,jorb
|
||||||
|
print*, 'which mos would you like to rotate'
|
||||||
|
read(5,*)iorb,jorb
|
||||||
|
call mix_mo_jk(iorb,jorb)
|
||||||
|
call save_mos
|
||||||
|
end
|
Loading…
Reference in New Issue
Block a user