mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-02 09:58:24 +01:00
86 lines
2.0 KiB
Fortran
86 lines
2.0 KiB
Fortran
|
! Apply MO rotation
|
||
|
! Subroutine to apply the rotation matrix to the coefficients of the
|
||
|
! MOs.
|
||
|
|
||
|
! New MOs = Old MOs . Rotation matrix
|
||
|
|
||
|
! *Compute the new MOs with the previous MOs and a rotation matrix*
|
||
|
|
||
|
! Provided:
|
||
|
! | mo_num | integer | number of MOs |
|
||
|
! | ao_num | integer | number of AOs |
|
||
|
! | mo_coef(ao_num,mo_num) | double precision | coefficients of the MOs |
|
||
|
|
||
|
! Intent in:
|
||
|
! | R(mo_num,mo_num) | double precision | rotation matrix |
|
||
|
|
||
|
! Intent out:
|
||
|
! | prev_mos(ao_num,mo_num) | double precision | MOs before the rotation |
|
||
|
|
||
|
! Internal:
|
||
|
! | new_mos(ao_num,mo_num) | double precision | MOs after the rotation |
|
||
|
! | i,j | integer | indexes |
|
||
|
|
||
|
subroutine apply_mo_rotation(R,prev_mos)
|
||
|
|
||
|
include 'pi.h'
|
||
|
|
||
|
!BEGIN_DOC
|
||
|
! Compute the new MOs knowing the rotation matrix
|
||
|
!END_DOC
|
||
|
|
||
|
implicit none
|
||
|
|
||
|
! Variables
|
||
|
|
||
|
! in
|
||
|
double precision, intent(in) :: R(mo_num,mo_num)
|
||
|
|
||
|
! out
|
||
|
double precision, intent(out) :: prev_mos(ao_num,mo_num)
|
||
|
|
||
|
! internal
|
||
|
double precision, allocatable :: new_mos(:,:)
|
||
|
integer :: i,j
|
||
|
double precision :: t1,t2,t3
|
||
|
|
||
|
print*,''
|
||
|
print*,'---apply_mo_rotation---'
|
||
|
|
||
|
call wall_time(t1)
|
||
|
|
||
|
! Allocation
|
||
|
allocate(new_mos(ao_num,mo_num))
|
||
|
|
||
|
! Calculation
|
||
|
|
||
|
! Product of old MOs (mo_coef) by Rotation matrix (R)
|
||
|
call dgemm('N','N',ao_num,mo_num,mo_num,1d0,mo_coef,size(mo_coef,1),R,size(R,1),0d0,new_mos,size(new_mos,1))
|
||
|
|
||
|
prev_mos = mo_coef
|
||
|
mo_coef = new_mos
|
||
|
|
||
|
if (debug) then
|
||
|
print*,'New mo_coef : '
|
||
|
do i = 1, mo_num
|
||
|
write(*,'(100(F10.5))') mo_coef(i,:)
|
||
|
enddo
|
||
|
endif
|
||
|
|
||
|
! Save the new MOs and change the label
|
||
|
mo_label = 'MCSCF'
|
||
|
!call save_mos
|
||
|
call ezfio_set_determinants_mo_label(mo_label)
|
||
|
|
||
|
!print*,'Done, MOs saved'
|
||
|
|
||
|
! Deallocation, end
|
||
|
deallocate(new_mos)
|
||
|
|
||
|
call wall_time(t2)
|
||
|
t3 = t2 - t1
|
||
|
print*,'Time in apply mo rotation:', t3
|
||
|
print*,'---End apply_mo_rotation---'
|
||
|
|
||
|
end subroutine
|