mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-26 15:12:14 +02:00
21 lines
423 B
Fortran
21 lines
423 B
Fortran
|
program qp_ao_ints
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! Increments a running calculation to compute AO integrals
|
||
|
|
END_DOC
|
||
|
|
|
||
|
|
! 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)
|
||
|
|
call ao_bielec_integrals_in_map_slave_tcp
|
||
|
|
!$OMP END PARALLEL
|
||
|
|
|
||
|
|
print *, 'Done'
|
||
|
|
end
|
||
|
|
|