mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-26 15:12:14 +02:00
21 lines
479 B
Fortran
21 lines
479 B
Fortran
|
program qmcpack
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! Generates a file for QMCPACK
|
||
|
END_DOC
|
||
|
|
||
|
integer :: i,j
|
||
|
read_wf = .True.
|
||
|
TOUCH read_wf
|
||
|
call save_wavefunction
|
||
|
do j=1,ao_prim_num_max
|
||
|
do i=1,ao_num
|
||
|
ao_coef(i,j) = ao_coef(i,j) * ao_coef_normalization_factor(i)
|
||
|
enddo
|
||
|
enddo
|
||
|
call ezfio_set_ao_basis_ao_coef(ao_coef)
|
||
|
call system('rm '//trim(ezfio_filename)//'/mo_basis/ao_md5')
|
||
|
call system('./qp_convert_qmcpack_from_ezfio.py '//trim(ezfio_filename))
|
||
|
|
||
|
end
|