From 6c64747bcb115d0b091a137e2901bc8b1c59dd1e Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Thu, 7 May 2020 17:30:53 -0500 Subject: [PATCH] fixed attributes --- src/davidson/u0_h_u0.irp.f | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/davidson/u0_h_u0.irp.f b/src/davidson/u0_h_u0.irp.f index 6142e828..0f12a8df 100644 --- a/src/davidson/u0_h_u0.irp.f +++ b/src/davidson/u0_h_u0.irp.f @@ -797,7 +797,9 @@ subroutine H_S2_u_0_nstates_openmp_complex(v_0,s_0,u_0,N_st,sze) ! istart, iend, ishift, istep are used in ZMQ parallelization. END_DOC integer, intent(in) :: N_st,sze - complex*16, intent(inout) :: v_0(sze,N_st), s_0(sze,N_st), u_0(sze,N_st) + complex*16, intent(out) :: v_0(sze,N_st), s_0(sze,N_st) + complex*16, intent(inout) :: u_0(sze,N_st) + !complex*16, intent(inout) :: v_0(sze,N_st), s_0(sze,N_st), u_0(sze,N_st) integer :: k complex*16, allocatable :: u_t(:,:), v_t(:,:), s_t(:,:) !DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: u_t