mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-04 13:13:53 +01:00
17 lines
227 B
Fortran
17 lines
227 B
Fortran
|
program kick_the_mos
|
||
|
|
|
||
|
|
!BEGIN_DOC
|
||
|
|
! To do a small rotation of the MOs
|
||
|
|
!END_DOC
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
kick_in_mos = .True.
|
||
|
|
TOUCH kick_in_mos
|
||
|
|
|
||
|
|
call set_classes_loc
|
||
|
|
call apply_pre_rotation
|
||
|
|
call unset_classes_loc
|
||
|
|
|
||
|
|
end
|