From 0e0e8fb7b664ad0ca5e59cb0a6556d865056a449 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Fri, 14 Sep 2018 19:44:55 +0200 Subject: [PATCH] Fixed variable character string --- plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f | 3 +-- plugins/dress_zmq/dress_stoch_routines.irp.f | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f index 7c48c57b..46fa2da7 100644 --- a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f +++ b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f @@ -160,8 +160,7 @@ subroutine ZMQ_pt2(E, pt2,relative_error, error) integer, external :: add_task_to_taskserver - character(len=:), allocatable :: task - allocate(character(len=100000) :: task) + character(100000) :: task integer :: j,k,ipos diff --git a/plugins/dress_zmq/dress_stoch_routines.irp.f b/plugins/dress_zmq/dress_stoch_routines.irp.f index 965f7add..38434224 100644 --- a/plugins/dress_zmq/dress_stoch_routines.irp.f +++ b/plugins/dress_zmq/dress_stoch_routines.irp.f @@ -232,7 +232,6 @@ subroutine ZMQ_dress(E, dress, delta_out, delta_s2_out, relative_error) implicit none - character(len=:), allocatable :: task integer(ZMQ_PTR) :: zmq_to_qp_run_socket, zmq_socket_pull integer, external :: omp_get_thread_num 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 double precision :: state_average_weight_save(N_states) - allocate(character(len=100000) :: task) + character(100000) :: task PROVIDE Nproc task(:) = CHAR(0) allocate(delta(N_states,N_det), delta_s2(N_states, N_det))