mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-11-07 22:53:42 +01:00
14 lines
289 B
FortranFixed
14 lines
289 B
FortranFixed
|
BEGIN_PROVIDER [ double precision, spin_fock_matrix_diag_mo, (spin_mo_num) ]
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! Diagonal of the Fock matrix in the spin-orbital basis
|
||
|
|
END_DOC
|
||
|
|
integer :: p
|
||
|
|
|
||
|
|
do p=1,spin_mo_num
|
||
|
|
spin_fock_matrix_diag_mo(p) = fock_matrix_diag_mo((p+1)/2)
|
||
|
|
enddo
|
||
|
|
|
||
|
|
END_PROVIDER
|
||
|
|
|