mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-07-26 04:37:31 +02:00
21 lines
389 B
FortranFixed
21 lines
389 B
FortranFixed
|
BEGIN_PROVIDER [ integer, spin_mo_num ]
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! Number of spin-orbitals
|
||
|
|
END_DOC
|
||
|
|
spin_mo_num = mo_num * 2
|
||
|
|
END_PROVIDER
|
||
|
|
|
||
|
|
|
||
|
|
BEGIN_PROVIDER [ integer, spin_occ_num ]
|
||
|
|
&BEGIN_PROVIDER [ integer, spin_vir_num ]
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! Number of occupied/virtual spin-orbitals
|
||
|
|
END_DOC
|
||
|
|
spin_occ_num = elec_num
|
||
|
|
spin_vir_num = spin_mo_num - spin_occ_num
|
||
|
|
END_PROVIDER
|
||
|
|
|
||
|
|
|