LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-03 20:54:00 +01:00
Code Issues Releases Wiki Activity

removed disconnect messages

Browse Source
This commit is contained in:
Anthony Scemama 2016-10-04 10:02:07 +02:00
parent 7d320f213f
commit d8ac4af89d
2 changed files with 7 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Integrals_Monoelec/pseudopot.f90
View File

@ -1860,7 +1860,7 @@ double precision function int_prod_bessel(l,gam,n,m,a,b,arg)
double precision :: s_q_0, s_q_k, s_0_0, a_over_b_square double precision :: s_q_0, s_q_k, s_0_0, a_over_b_square
double precision :: int_prod_bessel_loc double precision :: int_prod_bessel_loc
double precision :: inverses(0:300) double precision :: inverses(0:300)
double precision :: two_qkmp1, qk double precision :: two_qkmp1, qk, mk, nk
logical done logical done
@ -1908,6 +1908,7 @@ double precision function int_prod_bessel(l,gam,n,m,a,b,arg)
s_q_0 = s_0_0 s_q_0 = s_0_0
mk = dble(m)
! Loop over q for the convergence of the sequence ! Loop over q for the convergence of the sequence
do while (.not.done) do while (.not.done)
@ -1919,10 +1920,10 @@ double precision function int_prod_bessel(l,gam,n,m,a,b,arg)
stop 'pseudopot.f90 : q > 300' stop 'pseudopot.f90 : q > 300'
endif endif
two_qkmp1 = dble(2*(q+m)+1)
qk = dble(q) qk = dble(q)
two_qkmp1 = 2.d0*(qk+mk)+1.d0
do k=0,q-1 do k=0,q-1
s_q_k = ( two_qkmp1*qk*inverses(k) ) * s_q_k s_q_k = two_qkmp1*qk*inverses(k)*s_q_k
sum=sum+s_q_k sum=sum+s_q_k
two_qkmp1 = two_qkmp1-2.d0 two_qkmp1 = two_qkmp1-2.d0
qk = qk-1.d0 qk = qk-1.d0

27
src/ZMQ/utils.irp.f
View File

@ -473,26 +473,11 @@ subroutine end_zmq_push_socket(zmq_socket_push,thread)
integer :: rc integer :: rc
character*(8), external :: zmq_port character*(8), external :: zmq_port
if (thread == 1) then rc = f77_zmq_setsockopt(zmq_socket_push,ZMQ_LINGER,300000,4)
rc = f77_zmq_disconnect(zmq_socket_push,zmq_socket_push_inproc_address) if (rc /= 0) then
! if (rc /= 0) then stop 'Unable to set ZMQ_LINGER on push socket'
! print *, 'f77_zmq_disconnect(zmq_socket_push,zmq_socket_push_inproc_address)'
! stop 'error'
! endif
else
rc = f77_zmq_disconnect(zmq_socket_push,zmq_socket_push_tcp_address)
if (rc /= 0) then
print *, 'f77_zmq_disconnect(zmq_socket_push,zmq_socket_push_tcp_address)'
stop 'error'
endif
endif endif
! rc = f77_zmq_setsockopt(zmq_socket_push,ZMQ_LINGER,20000,4)
! if (rc /= 0) then
! stop 'Unable to set ZMQ_LINGER on push socket'
! endif
rc = f77_zmq_close(zmq_socket_push) rc = f77_zmq_close(zmq_socket_push)
if (rc /= 0) then if (rc /= 0) then
print *, 'f77_zmq_close(zmq_socket_push)' print *, 'f77_zmq_close(zmq_socket_push)'
@ -814,12 +799,6 @@ subroutine end_zmq_to_qp_run_socket(zmq_to_qp_run_socket)
character*(8), external :: zmq_port character*(8), external :: zmq_port
integer :: rc integer :: rc
rc = f77_zmq_disconnect(zmq_to_qp_run_socket, trim(qp_run_address)//':'//trim(zmq_port(0)))
! if (rc /= 0) then
! print *, 'f77_zmq_disconnect(zmq_to_qp_run_socket, trim(qp_run_address)//'':''//trim(zmq_port(0)))'
! stop 'error'
! endif
rc = f77_zmq_setsockopt(zmq_to_qp_run_socket,ZMQ_LINGER,1000,4) rc = f77_zmq_setsockopt(zmq_to_qp_run_socket,ZMQ_LINGER,1000,4)
if (rc /= 0) then if (rc /= 0) then
stop 'Unable to set ZMQ_LINGER on zmq_to_qp_run_socket' stop 'Unable to set ZMQ_LINGER on zmq_to_qp_run_socket'