LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 05:43:47 +01:00
Code Issues Releases Wiki Activity

Fixed variable character string

Browse Source
This commit is contained in:
Anthony Scemama 2018-09-14 19:44:55 +02:00
parent 5c769d531c
commit 0e0e8fb7b6
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
View File

@ -160,8 +160,7 @@ subroutine ZMQ_pt2(E, pt2,relative_error, error)
integer, external :: add_task_to_taskserver integer, external :: add_task_to_taskserver
character(len=:), allocatable :: task character(100000) :: task
allocate(character(len=100000) :: task)
integer :: j,k,ipos integer :: j,k,ipos

3
plugins/dress_zmq/dress_stoch_routines.irp.f
View File

@ -232,7 +232,6 @@ subroutine ZMQ_dress(E, dress, delta_out, delta_s2_out, relative_error)
implicit none implicit none
character(len=:), allocatable :: task
integer(ZMQ_PTR) :: zmq_to_qp_run_socket, zmq_socket_pull integer(ZMQ_PTR) :: zmq_to_qp_run_socket, zmq_socket_pull
integer, external :: omp_get_thread_num integer, external :: omp_get_thread_num
double precision, intent(in) :: E(N_states), relative_error double precision, intent(in) :: E(N_states), relative_error
@ -246,7 +245,7 @@ subroutine ZMQ_dress(E, dress, delta_out, delta_s2_out, relative_error)
integer :: i, j, k, Ncp integer :: i, j, k, Ncp
double precision :: state_average_weight_save(N_states) double precision :: state_average_weight_save(N_states)
allocate(character(len=100000) :: task) character(100000) :: task
PROVIDE Nproc PROVIDE Nproc
task(:) = CHAR(0) task(:) = CHAR(0)
allocate(delta(N_states,N_det), delta_s2(N_states, N_det)) allocate(delta(N_states,N_det), delta_s2(N_states, N_det))