mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-30 00:44:37 +02:00
19 lines
294 B
Org Mode
19 lines
294 B
Org Mode
|
#+BEGIN_SRC f90 :comments org :tangle kick_the_mos.irp.f
|
||
|
|
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
|
||
|
|
#+END_SRC
|