2019-01-25 11:39:31 +01:00
|
|
|
BEGIN_PROVIDER [ character*32,h0_type ]
|
|
|
|
implicit none
|
|
|
|
BEGIN_DOC
|
|
|
|
! Type of zeroth-order Hamiltonian
|
|
|
|
END_DOC
|
|
|
|
if (s2_eig) then
|
|
|
|
h0_type = 'SOP'
|
|
|
|
else
|
|
|
|
h0_type = 'EN'
|
|
|
|
endif
|
2019-01-31 11:20:17 +01:00
|
|
|
! h0_type = 'HF'
|
2019-01-25 11:39:31 +01:00
|
|
|
END_PROVIDER
|
|
|
|
|