From 3b735cb995a474d8edc3853cd491beb1a1e03174 Mon Sep 17 00:00:00 2001 From: Emmanuel Branlard Date: Mon, 20 Sep 2021 14:32:42 -0600 Subject: [PATCH] DvrM: fix size of unallocated (Fix #833) --- modules/aerodyn/src/AeroDyn_Driver_Subs.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/modules/aerodyn/src/AeroDyn_Driver_Subs.f90 b/modules/aerodyn/src/AeroDyn_Driver_Subs.f90 index 7f6b2867f0..9c67fdb7f6 100644 --- a/modules/aerodyn/src/AeroDyn_Driver_Subs.f90 +++ b/modules/aerodyn/src/AeroDyn_Driver_Subs.f90 @@ -569,15 +569,17 @@ subroutine concatOutputHeaders(dvr, WriteOutputHdr, WriteOutputUnt, errStat, err errStat = ErrID_None errMsg = '' + if (.not.allocated(dvr%out%WriteOutputHdr)) then call move_alloc(WriteOutputHdr, dvr%out%WriteOutputHdr) call move_alloc(WriteOutputUnt, dvr%out%WriteOutputUnt) else + nOld = size(dvr%out%WriteOutputHdr) + nAdd = size(WriteOutputHdr) + call move_alloc(dvr%out%WriteOutputHdr, TmpHdr) call move_alloc(dvr%out%WriteOutputUnt, TmpUnt) - nOld = size(dvr%out%WriteOutputHdr) - nAdd = size(WriteOutputHdr) allocate(dvr%out%WriteOutputHdr(nOld+nAdd)) allocate(dvr%out%WriteOutputUnt(nOld+nAdd)) dvr%out%WriteOutputHdr(1:nOld) = TmpHdr