From b051df9afd2f7e0e5f5321e493db49300f2e7782 Mon Sep 17 00:00:00 2001 From: Juha Ruokolainen Date: Wed, 21 Aug 2024 13:31:44 +0300 Subject: [PATCH] Allocate a variable before usage... --- fem/src/ModelDescription.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fem/src/ModelDescription.F90 b/fem/src/ModelDescription.F90 index 04932fd0c2..ae9e5875f5 100644 --- a/fem/src/ModelDescription.F90 +++ b/fem/src/ModelDescription.F90 @@ -4224,6 +4224,8 @@ SUBROUTINE LoadRestartFile( RestartFile,TimeCount,Mesh,Continuous,EOF,SolverId) CALL Info(Caller,'Skipping restart for child mesh',Level=4) RETURN END IF + + ALLOCATE(CHARACTER(MAX_STRING_LEN)::Row) ! This routine may be called either in Simulation section or from Solver section IF( PRESENT( SolverId ) ) THEN @@ -4334,7 +4336,6 @@ SUBROUTINE LoadRestartFile( RestartFile,TimeCount,Mesh,Continuous,EOF,SolverId) RestartFileOpen = .TRUE. - ALLOCATE(CHARACTER(MAX_STRING_LEN)::Row) READ( RestartUnit, '(A)', IOSTAT=iostat ) Row IF( iostat /= 0 ) THEN CALL Fatal(Caller,'Error reading header line!')