mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-20 12:12:18 +02:00
11 lines
214 B
Fortran
11 lines
214 B
Fortran
subroutine orthonormalize_mos
|
|
implicit none
|
|
integer :: m,p,s,i
|
|
m = size(mo_coef,1)
|
|
p = size(mo_overlap,1)
|
|
call ortho_lowdin(mo_overlap,p,mo_num,mo_coef,m,ao_num,lin_dep_cutoff)
|
|
SOFT_TOUCH mo_coef
|
|
end
|
|
|
|
|