mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-17 00:20:34 +02:00
16 lines
276 B
Fortran
16 lines
276 B
Fortran
program CIS_full
|
|
implicit none
|
|
integer :: i
|
|
provide eigenvalues_CIS
|
|
call save_cis
|
|
end
|
|
subroutine save_cis
|
|
do i = 1, n_state_cis
|
|
print*,'eigenvalues_CIS(i) = ',eigenvalues_CIS(i)
|
|
enddo
|
|
call save_wavefunction_general(size_psi_CIS,n_state_cis,psi_CIS,coefs_CIS)
|
|
|
|
|
|
|
|
end
|