mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-02 03:33:37 +01:00
13 lines
193 B
Fortran
13 lines
193 B
Fortran
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
|
|
END_PROVIDER
|
|
|