2019-03-19 10:13:33 +01:00
|
|
|
subroutine spatial_to_spin_MO_energy(nBas,e,nBas2,se)
|
|
|
|
|
2020-09-28 21:25:25 +02:00
|
|
|
! Convert MO energies from spatial to spin orbitals
|
2019-03-19 10:13:33 +01:00
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
! Input variables
|
|
|
|
|
|
|
|
integer,intent(in) :: nBas,nBas2
|
|
|
|
double precision,intent(in) :: e(nBas)
|
|
|
|
|
|
|
|
! Local variables
|
|
|
|
|
|
|
|
integer :: p
|
|
|
|
|
|
|
|
! Output variables
|
|
|
|
|
|
|
|
double precision,intent(out) :: se(nBas2)
|
|
|
|
|
|
|
|
do p=1,nBas2
|
|
|
|
|
|
|
|
se(p) = e((p+1)/2)
|
|
|
|
|
2023-12-03 18:47:30 +01:00
|
|
|
end do
|
2019-03-19 10:13:33 +01:00
|
|
|
|
|
|
|
! print*,'MO energies in spinorbital basis'
|
|
|
|
! call matout(nBas2,1,se)
|
|
|
|
|
2024-04-22 15:59:02 +02:00
|
|
|
end subroutine
|