2019-01-25 11:39:31 +01:00
|
|
|
subroutine orthonormalize_mos
|
|
|
|
|
implicit none
|
|
|
|
|
integer :: m,p,s
|
2020-02-12 01:23:34 +01:00
|
|
|
if (is_complex) then
|
2020-01-28 23:44:16 +01:00
|
|
|
m = size(mo_coef_complex,1)
|
|
|
|
|
p = size(mo_overlap_complex,1)
|
|
|
|
|
call ortho_lowdin_complex(mo_overlap_complex,p,mo_num,mo_coef_complex,m,ao_num)
|
|
|
|
|
mo_label = 'Orthonormalized'
|
|
|
|
|
SOFT_TOUCH mo_coef_complex mo_label
|
|
|
|
|
else
|
|
|
|
|
m = size(mo_coef,1)
|
|
|
|
|
p = size(mo_overlap,1)
|
|
|
|
|
call ortho_lowdin(mo_overlap,p,mo_num,mo_coef,m,ao_num)
|
|
|
|
|
mo_label = 'Orthonormalized'
|
|
|
|
|
SOFT_TOUCH mo_coef mo_label
|
|
|
|
|
endif
|
2019-01-25 11:39:31 +01:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
