LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 18:16:12 +01:00
Code Issues Releases Wiki Activity

Fixed overflow

Browse Source
This commit is contained in:
Anthony Scemama 2017-11-27 23:38:48 +01:00
parent 68967d2101
commit 6b0b988ee8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
config/ifort.cfg
View File

@ -9,7 +9,7 @@
FC : ifort FC : ifort
LAPACK_LIB : -mkl=parallel LAPACK_LIB : -mkl=parallel
IRPF90 : irpf90 IRPF90 : irpf90
IRPF90_FLAGS : --ninja --align=32 -DZMQ_PUSH IRPF90_FLAGS : --ninja --align=32
# Global options # Global options
################ ################

2
src/ZMQ/put_get.irp.f
View File

@ -49,7 +49,7 @@ subroutine zmq_get_dvector(zmq_to_qp_run_socket, worker_id, name, x, size_x)
double precision, intent(out) :: x(size_x) double precision, intent(out) :: x(size_x)
integer :: rc integer :: rc
integer*8 :: rc8 integer*8 :: rc8
character*(64) :: msg character*(256) :: msg
write(msg,'(A8,1X,I8,1X,A230)') 'get_data', worker_id, name write(msg,'(A8,1X,I8,1X,A230)') 'get_data', worker_id, name
rc = f77_zmq_send(zmq_to_qp_run_socket,trim(msg),len(trim(msg)),0) rc = f77_zmq_send(zmq_to_qp_run_socket,trim(msg),len(trim(msg)),0)