mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-02 11:25:26 +02: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
|
|
|