mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-31 05:03:40 +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
|
||
|
|