mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-01 17:13:42 +02:00
27 lines
547 B
Fortran
27 lines
547 B
Fortran
program qp_ao_ints
|
|
use omp_lib
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Increments a running calculation to compute AO integrals
|
|
END_DOC
|
|
integer :: i
|
|
|
|
call switch_qp_run_to_master
|
|
|
|
PROVIDE zmq_context
|
|
! Set the state of the ZMQ
|
|
zmq_state = 'ao_integrals'
|
|
|
|
! Provide everything needed
|
|
double precision :: integral, ao_bielec_integral
|
|
integral = ao_bielec_integral(1,1,1,1)
|
|
|
|
!$OMP PARALLEL DEFAULT(PRIVATE) PRIVATE(i)
|
|
i = omp_get_thread_num()
|
|
call ao_bielec_integrals_in_map_slave_tcp(i)
|
|
!$OMP END PARALLEL
|
|
|
|
print *, 'Done'
|
|
end
|
|
|