10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00
This commit is contained in:
Emmanuel Giner 2017-04-14 19:09:50 +02:00
parent 59cb6c4402
commit 04bb08be96

View 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