1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-12-22 20:34:05 +01:00
qp_plugins_scemama/deprecated/cc/dimensions.irp.f

21 lines
389 B
Fortran

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