2014-05-24 02:39:18 +02:00
|
|
|
program cisd
|
|
|
|
implicit none
|
2014-05-25 01:18:41 +02:00
|
|
|
integer :: i, j
|
2014-05-24 02:39:18 +02:00
|
|
|
|
2014-05-25 01:18:41 +02:00
|
|
|
print *, 'HF = ', HF_energy
|
|
|
|
print *, 'N_states = ', N_states
|
2014-05-24 02:39:18 +02:00
|
|
|
call H_apply_cisd
|
|
|
|
print *, 'N_det = ', N_det
|
2014-05-25 01:18:41 +02:00
|
|
|
do i = 1,N_states
|
|
|
|
print *, 'energy = ',CI_energy(i)
|
|
|
|
print *, 'E_corr = ',CI_electronic_energy(i) - ref_bitmask_energy
|
|
|
|
do j=1,N_det
|
|
|
|
psi_coef(j,i) = CI_eigenvectors(j,i)
|
|
|
|
enddo
|
|
|
|
enddo
|
|
|
|
SOFT_TOUCH CI_electronic_energy CI_eigenvectors
|
|
|
|
call CISD_SC2(psi_det,psi_coef,CI_electronic_energy,size(psi_coef,1),N_det,N_states,N_int)
|
|
|
|
TOUCH CI_electronic_energy CI_eigenvectors
|
2014-05-24 02:39:18 +02:00
|
|
|
|
2014-05-25 01:18:41 +02:00
|
|
|
do i = 1, N_states
|
|
|
|
print*,'eigvalues(i) = ',CI_energy(i)
|
|
|
|
enddo
|
2014-05-24 02:39:18 +02:00
|
|
|
end
|