mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-30 00:44:28 +02:00
21 lines
332 B
Fortran
21 lines
332 B
Fortran
program mrcc
|
|
implicit none
|
|
call print_cas_coefs
|
|
call run_mrcc
|
|
end
|
|
|
|
subroutine print_cas_coefs
|
|
implicit none
|
|
|
|
integer :: i,j
|
|
print *, 'CAS'
|
|
print *, '==='
|
|
do i=1,N_det_cas
|
|
print *, psi_cas_coef(i,:)
|
|
call debug_det(psi_cas(1,1,i),N_int)
|
|
enddo
|
|
|
|
call write_double(6,ci_energy(1),"Initial CI energy")
|
|
end
|
|
|