mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-15 00:58:31 +02:00
25 lines
416 B
Fortran
25 lines
416 B
Fortran
program mrcc
|
|
implicit none
|
|
if (.not.read_wf) then
|
|
print *, 'read_wf has to be true.'
|
|
stop 1
|
|
endif
|
|
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
|
|
|