quantum_package/plugins/CIS/cis.irp.f

program cis
  implicit none
  integer :: i

!  print *,   'HF      = ', HF_energy
!  print *,  'N_states = ', N_states
  call H_apply_cis
  print *,  'N_det = ', N_det
  do i = 1,N_states
   print *,  'energy  = ',CI_energy(i) 
   print *,  'E_corr  = ',CI_electronic_energy(i) - ref_bitmask_energy
  enddo
  psi_coef = ci_eigenvectors
  SOFT_TOUCH psi_coef
  call save_wavefunction

end
Hartree-Fock works well 2014-06-25 14:58:58 +02:00			`program cis`
			`implicit none`
			`integer :: i`

Minor changes 2015-07-28 16:58:41 +02:00			`! print *, 'HF = ', HF_energy`
			`! print *, 'N_states = ', N_states`
Hartree-Fock works well 2014-06-25 14:58:58 +02:00			`call H_apply_cis`
			`print *, 'N_det = ', N_det`
			`do i = 1,N_states`
			`print *, 'energy = ',CI_energy(i)`
			`print *, 'E_corr = ',CI_electronic_energy(i) - ref_bitmask_energy`
			`enddo`
			`psi_coef = ci_eigenvectors`
			`SOFT_TOUCH psi_coef`
			`call save_wavefunction`

			`end`